| line |
true |
false |
branch |
|
93
|
1 |
6 |
unless $archive |
|
98
|
1 |
5 |
-d $archive ? : |
|
99
|
1 |
5 |
if ($is_directory) { } |
|
107
|
1 |
4 |
unless $format and $ARCHIVE_TYPES{$format} |
|
115
|
1 |
4 |
if ($extra_files) |
|
116
|
0 |
1 |
unless ref $extra_files eq 'ARRAY' |
|
119
|
0 |
3 |
unless -e $file |
|
120
|
0 |
3 |
unless -r $file |
|
125
|
1 |
4 |
if ($extra_props) |
|
126
|
0 |
1 |
unless ref $extra_props eq 'HASH' |
|
182
|
1 |
4 |
if ($is_dir) { } |
|
189
|
0 |
4 |
unless chdir $dir |
|
191
|
0 |
4 |
unless ('File::Spec'->file_name_is_absolute($output_file)) |
|
198
|
0 |
4 |
unless chdir $cwd |
|
202
|
1 |
4 |
if (my $x_files = $self->{'__archive_extra_files'}) |
|
207
|
0 |
3 |
if ('File::Spec'->file_name_is_absolute($x_file)) { } |
|
214
|
1 |
0 |
unless $is_dir |
|
219
|
1 |
4 |
if (my $extra_props = $self->{'__archive_extra_props'}) |
|
226
|
1 |
4 |
if ($is_dir) { } |
|
228
|
0 |
1 |
unless open my $out, '>', $meta_file |
|
233
|
0 |
4 |
unless $archive->write($output_file, $self->{'__archive_format'} eq 'tar.gz') |
|
238
|
0 |
5 |
unless $self->verbosity < -1 |
|
248
|
0 |
0 |
if ($meta and $meta->{'extra_files'}) |
|
256
|
0 |
16 |
if /^\./ |
|
257
|
8 |
8 |
if -d $_ |
|
259
|
0 |
8 |
if $rel_name eq 'meta.yml' |
|
260
|
8 |
0 |
unless $x_files{$rel_name} |
|
325
|
0 |
5 |
unless my $file = Cwd::abs_path($args->{'archive'}) |
|
330
|
1 |
4 |
$is_directory ? : |
|
332
|
0 |
5 |
unless chdir $dir |
|
335
|
4 |
1 |
unless $is_directory |
|
340
|
5 |
0 |
if (-e $yaml_file) |
|
343
|
0 |
5 |
if ($YAML::Tiny::VERSION < 1.57) { } |
|
345
|
0 |
0 |
if 'YAML::Tiny'->errstr |
|
350
|
0 |
5 |
if ($@) |
|
355
|
5 |
0 |
if ($args->{'meta_yaml_callback'}) |
|
360
|
5 |
0 |
if ($meta->{'file_order'} and ref $meta->{'file_order'} eq 'ARRAY') |
|
362
|
10 |
0 |
if -e $file |
|
368
|
0 |
5 |
unless (@tap_files) |
|
375
|
0 |
10 |
unless open my $fh, $tap_file |
|
377
|
6 |
4 |
if ($args->{'made_parser_callback'}) |
|
385
|
0 |
5 |
unless chdir $cwd |
|
386
|
4 |
1 |
unless $is_directory |