| line |
true |
false |
branch |
|
27
|
0 |
2 |
unless $self->has_filename
|
|
61
|
2 |
0 |
if ($self->files->{'META.json'}) { }
|
|
|
0 |
0 |
elsif ($self->files->{'META.yml'}) { }
|
|
88
|
0 |
3 |
unless -d $dir
|
|
103
|
24 |
12 |
if $_->is_file
|
|
119
|
0 |
0 |
if $_->is_dir
|
|
132
|
2 |
1 |
$self->has_dir ? :
|
|
137
|
2 |
3 |
unless $self->has_filename
|
|
138
|
1 |
2 |
if $self->dir_has_dist
|
|
144
|
14 |
24 |
if ($_->is_dir) { }
|
|
196
|
1 |
11 |
if ($key =~ /\.pm$/ or $key =~ /\.pl$/)
|
|
200
|
1 |
1 |
unless defined $_ and $_ ne "main"
|
|
201
|
1 |
0 |
unless defined $namespaces{$_}
|
|
220
|
1 |
11 |
if ($key =~ m[^lib/] and $key =~ /\.pod$/)
|
|
241
|
11 |
1 |
unless $_ =~ m[^bin/] or $_ =~ m[^script/]
|
|
267
|
0 |
0 |
$self->has_filename ? :
|
|
273
|
1 |
2 |
if $self->has_dir and $self->has_filename
|
|
278
|
0 |
3 |
unless @args
|
|
279
|
2 |
1 |
if @args % 2 == 1 and ref $args[0] ne "HASH"
|
|
280
|
2 |
1 |
if ($arg)
|
|
282
|
1 |
1 |
if (-f $arg) { }
|
|
|
1 |
0 |
elsif (-d $arg) { }
|