view release on metacpan or  search on metacpan

t/WhiteHole.t  view on Meta::CPAN

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';
};