my $pck =;
my $pckpath = $pck; $pckpath =~ s!::!/!g;

sub callback {
   my ($filename) = @_;

   my $name = "";
   my $basename = Ox::File::basename($filename);

   require "$pckpath/Type/$basename";
}