| line |
true |
false |
branch |
|
45
|
618 |
0 |
if (@result == 1) |
|
48
|
0 |
0 |
if (@result > 1) { } |
|
95
|
642 |
1506 |
unless (UNIVERSAL::isa($meta, 'HASH')) |
|
100
|
1083 |
423 |
unless my $requires = $$meta{'requires'} |
|
101
|
0 |
423 |
if (UNIVERSAL::isa($requires, 'HASH')) |
|
109
|
423 |
0 |
if (UNIVERSAL::isa($requires, 'ARRAY')) |
|
112
|
0 |
606 |
unless (&Params::Util::_INSTANCE($dep, 'Module::META::Requires')) |
|
130
|
107 |
250 |
unless (UNIVERSAL::isa($meta, 'HASH')) |
|
135
|
130 |
120 |
unless my $requires = $$meta{'build_requires'} |
|
136
|
0 |
120 |
if (UNIVERSAL::isa($requires, 'HASH')) |
|
144
|
120 |
0 |
if (UNIVERSAL::isa($requires, 'ARRAY')) |
|
147
|
0 |
147 |
unless (&Params::Util::_INSTANCE($dep, 'Module::META::Requires')) |
|
168
|
466 |
138 |
if $library |
|
182
|
138 |
9 |
if $library |
|
210
|
0 |
2513 |
unless (defined $structs[0]) |
|
219
|
9 |
20 |
unless $_[0]{'archive'} |
|
227
|
9 |
0 |
if ($self->source =~ /\.(tar\.gz|tgz)$/) |
|
231
|
0 |
9 |
unless ($tar->read($path, 1)) |
|
238
|
0 |
0 |
if ($self->source =~ /\.zip$/) |
|
242
|
0 |
0 |
unless ($zip->read($path) == Archive::Zip::AZ_OK()) |
|
275
|
0 |
14 |
unless my $resource = shift() |
|
281
|
0 |
14 |
unless (-d $params{'to'}) |
|
284
|
0 |
14 |
unless (-w $params{'to'}) |
|
289
|
14 |
0 |
if ($self->archive->isa('Archive::Tar')) |
|
292
|
0 |
0 |
if ($self->archive->isa('Archive::Zip')) |
|
313
|
96 |
176 |
unless $item->is_file |
|
323
|
57 |
119 |
unless my $res = shift @dirs |
|
324
|
111 |
8 |
unless $res eq $resource |
|
327
|
0 |
8 |
if $params{'is_static'} |
|
338
|
8 |
6 |
if $extracted_files |
|
342
|
0 |
6 |
unless $params{'is_static'} |
|
354
|
8 |
0 |
unless $is_static |
|
357
|
4 |
4 |
unless -d $dir |
|
361
|
0 |
8 |
unless (open LIBRARY, '>', $path) |
|
364
|
0 |
8 |
unless (print LIBRARY $content) |
|
367
|
0 |
8 |
unless (close LIBRARY) |
|
388
|
622 |
6 |
if @_ |
|
391
|
626 |
2 |
wantarray ? : |