Select Code to Download

Select or download this

is_deeply( [ sort keys %mods ], [ sort qw(Cwd strict Carp) ],
           "Got the correct modules" );

Select or download this

#     Failed test (t\n1_modules_required.t at line 17)
#     Structures begin differing at:
...
t\n1_modules_required.t .. 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/3 subtests

Select or download this
```
package Bar;

...

1;
```

Select or download this

my $bar = Module::Info->new_from_module( 'Bar' );
...
my %mods = $bar->modules_required;

Select or download this

bless({
  dir => "...\\t\\lib",
...
  safe => 0,
  use_version => 0,
}, "Module::Info")

Select or download this

my @mods = $self->_call_B('modules_used');

Select or download this

 "-MO=Module::Info,modules_used" "...\t\lib\Bar.pm"

Select or download this

...\perl\bin\perl.exe  "-MO=Module::Info,modules_used" "...\t\lib\Bar.
+pm"

Select or download this

...\perl\bin\perl.exe  "-MO=Module::Info,modules_used" "...\t\lib\Bar.
+pm"

Select or download this

Subroutine B::OP::parent redefined at ...\blib\lib/B/BUtils.pm line 21
+7.
, use Cwd () at "...\t\lib\Bar.pm" line 3
...
, require bare strict.pm at line 15
, require bare Carp.pm at line 19
, ...\t\lib\Bar.pm syntax OK