Select Code to Download

Select or download this

package RequireHookTest;

...
__PACKAGE__->meta->make_immutable;

1;

Select or download this

#!perl

...
is(defined $rht_test2, 1, 'Test RequireHookTest::Test2->new()');
isa_ok($rht_test2, 'RequireHookTest::Test2', 'Test RequireHookTest::Te
+st2->new() ISA');

Select or download this

$ prove -v sscce_require_hook_test.t
sscce_require_hook_test.t ..
...
  Parse errors: Bad plan.  You planned 6 tests but ran 4.
Files=1, Tests=4,  0 wallclock secs ( 0.00 usr  0.03 sys +  0.20 cusr 
+ 0.09 csys =  0.33 CPU)
Result: FAIL

Select or download this

...
ok 3 - Test RequireHookTest::Test2->new()
ok 4 - 'Test RequireHookTest::Test2->new() ISA' isa 'RequireHookTest::
+Test2'
Can't locate object method "new" via package "RequireHookTest::Test1" 
+at sscce_require_hook_test.t line 23.
...

Select or download this
```
push @INC, [ $for_inc_ref ];
```