Select Code to Download

my $foo = Foo->new qw(
                        Foo::Bar 
                        Foo::Baz
                      );

    my @submodules = @_;
    for ( @submodules ) {
        eval "require $_" || die "$!";
    }

my $foo = Foo->new qw(
                        Bar 
                        Baz
                      );

    for ( @submodules ) {
        eval "require Foo::$_" || die "$!";
    }

package Foo;
sub new {
...
    bless { submodules => \@submodules }, $class;
}
1;

package Foo::Bar;
sub details {
...
}

1;

#!/usr/bin/perl
use Foo;
...
      . $/;
}
# prints: Simon is a doctor

package Foo;
sub new {
...
    bless { submodules => \@submodules }, $class;
}
1;

package Foo::Bar;
sub details {
...
}

1;

#!/usr/bin/perl
use Foo;
...
}
# prints: Can't locate object method "details" via package "Bar" 
# (perhaps you forgot to load "Bar"?)