| line |
true |
false |
branch |
|
14
|
2 |
2 |
if ($class eq 'ShipIt::ProjectType::Perl') |
|
15
|
0 |
2 |
if -e 'Build.PL' |
|
16
|
2 |
0 |
if -e 'Makefile.PL' |
|
28
|
0 |
0 |
if defined $self->{'version'} |
|
30
|
0 |
0 |
if (-e 'Build.PL') { } |
|
39
|
0 |
0 |
unless open my $fh, 'Makefile.PL' |
|
42
|
0 |
0 |
if (/VERSION_FROM.+([\'\"])(.+?)\1/) |
|
47
|
0 |
0 |
if (/(?:(?:all|version)_from|reference_module)(?:\s*\(|\s+)([\'\"])(.+?)\1/) |
|
51
|
0 |
0 |
if (/\bVERSION\b.+([\'\"])(.+?)\1/) |
|
61
|
0 |
0 |
unless open my $fh, 'Build.PL' |
|
63
|
0 |
0 |
if (/\bdist_version_from\b.+([\'\"])(.+?)\1/) |
|
67
|
0 |
0 |
if (/\bmodule_name\b.+([\'\"])(.+?)\1/) |
|
71
|
0 |
0 |
if (/\bdist_version\b.+([\'\"])(.+?)\1/) |
|
85
|
0 |
0 |
if -d 'lib' |
|
93
|
39 |
75 |
if ($string =~ /
(
( use \s* version \s* ; \s* )?
(our)? \s* \$VER SION \s* = \s* # trick PAUSE from parsing this line
(
['"] v?[\d\.\_]+ ['"]
| q{1,2}\( \s* v?[\d\.\_]+ \s* \)
| [\d\.\_]+
| qv\( \s* ['"] v? [\d\.\_]+ ['"] \s* \)
)
)
/msx) |
|
114
|
0 |
21 |
unless my $file = $self->{'ver_from'} |
|
115
|
0 |
21 |
unless open my $fh, $file |
|
117
|
21 |
72 |
if (my $versionpart = $self->_versioncode_from_string($line)) |
|
123
|
0 |
21 |
if $@ |
|
133
|
7 |
0 |
if (my $file = $self->{'ver_from'}) |
|
149
|
0 |
0 |
if (-e 'Makefile.PL') |
|
152
|
0 |
0 |
unless $contents =~ s/(\bVERSION\b.+)([\'\"])(.+?)\2/$1$2$newver$2/ |