1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# -*- perl -*-
# t/001_load.t - check module loading and create testing directory
use Test::More tests => 4;
BEGIN { use_ok( 'Method::Autoload' ); }
my $object;
$object=Method::Autoload->new(packages=>[qw{My::Bar My::Foo}]);
isa_ok ($object, 'Method::Autoload');
is($object->foo, "My::Bar::foo", 'AUTOLOAD from inline package');
is($object->bar, "My::Bar::bar", 'AUTOLOAD from inline package');
package My::Foo;
sub foo {"My::Foo::foo"};
1;
package My::Bar;
sub foo {"My::Bar::foo"};
sub bar {"My::Bar::bar"};
1;
|
