Select Code to Download

sub dynamic_require {
    my ($self, $ns_extension) = @_;
...

    return;
}

$rht->dynamic_require('A::B::C');
my $rht_abc = MooselessRequireHookTest::A::B::C->new();
is(defined $rht_abc, 1, 'Test MooselessRequireHookTest::A::B::C->new()
+');
isa_ok($rht_abc, 'MooselessRequireHookTest::A::B::C', 'Test MooselessR
+equireHookTest::A::B::C->new() ISA');

warn "\$coderef[$coderef] \$filename[$filename]\n";

sscce_mooseless_require_hook_test.t ..
1..8
...
All tests successful.
Files=1, Tests=8,  0 wallclock secs ( 0.00 usr  0.03 sys +  0.08 cusr 
+ 0.03 csys =  0.14 CPU)
Result: PASS

/home/ken/tmp/pm_sscce_require_hook/lib
/home/ken/perl5/perlbrew/perls/perl-5.32.0/lib/site_perl/5.32.0/cygwin
+-thread-multi
...
CODE(0x60008aa00)
CODE(0x600868c78)
CODE(0x60086da88)