view release on metacpan or  search on metacpan

t/WhiteHole.t  view on Meta::CPAN

47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
package Moo;
sub AUTOLOAD { return "AUTOLOADER!" }
 
package Test;
 
sub foo { return 456 }
@Test::ISA = qw(Class::WhiteHole Moo);
 
::ok( Test->foo == 456,         "static methods work" );
::ok( !eval { Test->bar; 1; },  "autoloader blocked"  ); # must be line 57
 
# There's a precedence problem.  Can't pass this all at once.
my $ok = $@ eq qq{Can\'t locate object method "bar" via package "Test" at $0 line 57.\n};
::ok( $ok,                      "Dying message preserved");
 
::ok( Test->can('foo'),         "UNIVERSAL not effected" );
 
eval {
    my $test_obj = bless {}, 'Test';
};