line |
true |
false |
branch |
103
|
0 |
5 |
unless my $changesFile = &List::Util::first(sub {
$_->name eq $changelog;
}
, @$files)
|
134
|
25 |
5 |
unless $template_file{$file->name}
|
182
|
0 |
0 |
if not $release_date && $self->_release_datetime or $release_date =~ /^[[:upper:]]+$/
|
214
|
5 |
10 |
if ($line =~ /^$re/)
|
215
|
0 |
5 |
unless $1 eq $version
|
221
|
5 |
10 |
if $line =~ /^\S/ and --$list_releases <= 0
|
226
|
0 |
5 |
unless length $text > 1
|
235
|
0 |
5 |
unless $release_date
|
249
|
4 |
1 |
$release_date =~ /
^ ( \d{4}-\d\d-\d\d
(?: \s \d\d:\d\d (?: :\d\d)? )?
) \b
/x ? :
|
257
|
5 |
0 |
if ($parser->success) { }
|
264
|
2 |
3 |
if ($release_datetime and $self->date_format)
|
290
|
5 |
5 |
if (not $version and $pmFile =~ m[^lib/(.+)\.pod$]) { }
|
297
|
0 |
10 |
unless $version
|
300
|
10 |
0 |
$self->report_versions ? :
|
343
|
0 |
0 |
unless defined $indent
|
352
|
0 |
0 |
unless $builder
|
356
|
0 |
0 |
$builder eq 'Build.PL' ? :
|
376
|
10 |
0 |
if defined($ver = $meta->{$key}{$module})
|
379
|
0 |
10 |
unless defined $ver
|
382
|
5 |
5 |
if ($ver) { }
|
396
|
5 |
0 |
if ($requires{'perl'})
|
402
|
5 |
0 |
if $v >= 5.006
|
405
|
0 |
5 |
unless @modules
|
451
|
0 |
0 |
if ($offset)
|