unshift @INC, $dir;
}
-use Test::More tests => 17;
+use Test::More tests => 21;
# First we must set up some autoloader files
my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
sub new { bless {}, shift };
sub foo;
-sub bar;
sub bazmarkhianish;
package main;
-my $foo = new Foo;
+my $foo = Foo->new();
my $result = $foo->can( 'foo' );
ok( $result, 'can() first time' );
is( $foo->foo, 'foo', 'autoloaded first time' );
is( $foo->foo, 'foo', 'regular call' );
is( $result, \&Foo::foo, 'can() returns ref to regular installed sub' );
+$result = $foo->can( 'bar' );
+ok( $result, 'can() should work when importing AUTOLOAD too' );
+is( $foo->bar, 'bar', 'regular call' );
+is( $result, \&Foo::bar, '... returning ref to regular installed sub' );
eval {
$foo->will_fail;
# Used to be trouble with this
eval {
- my $foo = new Foo;
+ my $foo = Foo->new();
die "oops";
};
like( $@, qr/oops/, 'indirect method call' );
package Bar;
AutoLoader->import();
::ok( ! defined &AUTOLOAD, 'AutoLoader should not export AUTOLOAD by default' );
+::ok( ! defined &can, '... nor can()' );
package Foo;
AutoLoader->unimport();