| line |
true |
false |
branch |
|
128
|
3 |
0 |
unless @where
|
|
136
|
12 |
3 |
unless / [.] pm \z /msx
|
|
141
|
3 |
0 |
unless $dir[-1]
|
|
144
|
2 |
1 |
unless exists $module_tried{$module}
|
|
149
|
2 |
1 |
if (@not_tried)
|
|
174
|
17 |
4 |
unless defined $name
|
|
179
|
11 |
10 |
if _eval_in_pkg($eval, $ctx->trace->call)
|
|
185
|
8 |
2 |
if $opt->{'load_error'}
|
|
193
|
2 |
4 |
if _load_module($opt, $module, $version, $import)
|
|
196
|
4 |
0 |
unless defined $name
|
|
199
|
1 |
3 |
if defined $num and $num =~ / [^0-9] /msx
|
|
215
|
2 |
3 |
if _load_module($opt, $module, $version, $import)
|
|
218
|
3 |
0 |
unless defined $name
|
|
252
|
9 |
41 |
unless ($psr)
|
|
265
|
3 |
47 |
unless ($psr->getoptions($opt, ("load_error=s", "require|req!")))
|
|
266
|
3 |
0 |
if (defined $opt_err) { }
|
|
274
|
34 |
13 |
if ($opt->{'load_error'})
|
|
277
|
1 |
33 |
unless $opt->{'load_error'} =~ / ( %+ ) [ #0+-]* [0-9]* s /msx and length($1) % 2
|
|
285
|
13 |
5 |
if (@ARGV)
|
|
295
|
4 |
9 |
unless @ARGV
|
|
302
|
1 |
3 |
unless defined $module
|
|
315
|
1 |
6 |
unless defined $module
|
|
317
|
1 |
5 |
defined $arg[0] && $arg[0] =~ /(?x: (?x:
|
|
335
|
3 |
1 |
unless my $code = $pkg->can("CLASS")
|
|
355
|
4 |
0 |
if __PACKAGE__ eq $hint_pkg
|
|
364
|
29 |
44 |
unless "HASH" eq ref $arg[0]
|
|
369
|
16 |
57 |
if defined $version
|
|
372
|
19 |
54 |
if ($import and @{$import;}) { }
|
|
|
42 |
12 |
elsif (defined $import xor not $opt->{'require'}) { }
|
|
387
|
2 |
32 |
if ($max_arg and @ARGV > $max_arg)
|
|
394
|
4 |
28 |
unless defined $module
|
|
397
|
7 |
22 |
if (defined $version)
|
|
398
|
3 |
4 |
unless $version =~ /(?x: (?x:
|
|
402
|
3 |
23 |
unless not defined $import or "ARRAY" eq ref $import
|
|
431
|
22 |
11 |
if __PACKAGE__ eq $info[0]
|
|
433
|
11 |
0 |
unless $info[1] =~ / \A [(] eval \b /msx
|