line |
true |
false |
branch |
85
|
8 |
2 |
if -f 'Makefile.PL' and $self->munge_makefile_pl
|
86
|
8 |
2 |
if -f 'Build.PL' and $self->munge_build_pl
|
93
|
0 |
24 |
if $file->is_bytes
|
95
|
0 |
24 |
if ($file->name =~ /\.pod$/)
|
100
|
1 |
23 |
unless (-r $file->name)
|
105
|
23 |
0 |
if ($self->rewrite_version($file, $self->_next_version)) { }
|
127
|
3 |
20 |
if $version =~ /_/ and scalar $version =~ /\./g <= 1
|
132
|
2 |
21 |
$self->global ? :
|
|
23 |
0 |
if ($self->global ? $content =~ s/^${assign_regex}[^\n]*$/$code/gms : $content =~ s/^${assign_regex}[^\n]*$/$code/ms)
|
159
|
8 |
0 |
if ($content =~ s/"VERSION" => "[^"]+"/"VERSION" => "$next_version"/ms)
|
179
|
8 |
0 |
if ($content =~ s/"dist_version" => "[^"]+"/"dist_version" => "$next_version"/ms)
|