| line |
true |
false |
branch |
|
20
|
0 |
0 |
unless @args
|
|
21
|
0 |
0 |
if join($", @args) =~ /^(-v|--version)$/
|
|
23
|
0 |
0 |
if ($cmd =~ /^(?:
|
|
32
|
0 |
0 |
unless $self->can($method)
|
|
40
|
0 |
0 |
-f 'Meta' ? :
|
|
42
|
0 |
0 |
if (my $base_file = delete $meta->{'base'})
|
|
52
|
0 |
0 |
unless system(@cmd) == 0
|
|
96
|
0 |
0 |
unless ref $value eq "HASH"
|
|
98
|
0 |
0 |
unless defined $value
|
|
100
|
0 |
0 |
if (defined $value)
|
|
101
|
0 |
0 |
if (not ref $value) { }
|
|
|
0 |
0 |
elsif (ref $value eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $value eq 'HASH') { }
|
|
109
|
0 |
0 |
unless $kk =~ /^(?:perl)$/
|
|
120
|
0 |
0 |
if $self->{'meta'}{'=zild'}{'no_changes_yaml'}
|
|
123
|
0 |
0 |
unless @changes
|
|
124
|
0 |
0 |
if ($value) { }
|
|
126
|
0 |
0 |
unless length $value
|
|
127
|
0 |
0 |
unless my $text = io()->file("Changes")->all
|
|
129
|
0 |
0 |
unless $text =~ s/^$key:.*/$line/m
|
|
133
|
0 |
0 |
unless $value = $changes[0]{$key}
|
|
144
|
0 |
0 |
if $self->{'meta'}{'=zild'}{'no_changes_yaml'}
|
|
146
|
0 |
0 |
unless scalar @$changes
|
|
150
|
0 |
0 |
unless ref $entry eq "HASH"
|
|
153
|
0 |
0 |
unless @keys == 3
|
|
157
|
0 |
0 |
unless exists $entry->{$key}
|
|
159
|
0 |
0 |
unless defined $entry->{$key} or $key eq "date"
|
|
160
|
0 |
0 |
if (defined $entry->{$key})
|
|
161
|
0 |
0 |
if ($key eq 'changes') { }
|
|
163
|
0 |
0 |
unless ref $entry->{$key} eq "ARRAY"
|
|
166
|
0 |
0 |
if ref $change_entry
|
|
172
|
0 |
0 |
if ref $entry->{$key}
|
|
177
|
0 |
0 |
if (@$changes >= 2)
|
|
180
|
0 |
0 |
if $changes1 eq $changes2
|
|
184
|
0 |
0 |
unless "version"->parse($v0) > "version"->parse($v1)
|
|
192
|
0 |
0 |
unless -e $path
|
|
199
|
0 |
0 |
unless -d $sharedir
|
|
205
|
0 |
0 |
unless $ENV{'PERL_ZILLA_DIST_GIT_HUB_WEBHOOKS'}
|
|
206
|
0 |
0 |
unless -d ".git"
|
|
212
|
0 |
0 |
if ($file->exists)
|
|
216
|
0 |
0 |
if "version"->parse($hook_version) >= "version"->parse($api_version)
|
|
220
|
0 |
0 |
unless my $command = $self->$method
|
|
222
|
0 |
0 |
unless system($command) == 0
|
|
236
|
0 |
0 |
unless $irc = $self->{'meta'}{'devel'}{'irc'}
|
|
237
|
0 |
0 |
unless $irc =~ /^(\w\S*)#(\w\S*)$/
|
|
249
|
0 |
0 |
if $@
|