| line |
true |
false |
branch |
|
107
|
2 |
2 |
unless exists $args{'locale'} |
|
109
|
3 |
1 |
if $args{'locale'} =~ /^.._(.+?)(\.|$)/ |
|
121
|
1 |
9 |
if (@_ == 2 and not ref $_[1]) { } |
|
133
|
9 |
0 |
ref $_[0] ? : |
|
135
|
0 |
9 |
ref $_[0] ? : |
|
139
|
0 |
9 |
if ($self->locale =~ /^([a-z]{2})-/) |
|
144
|
0 |
9 |
unless defined $requires |
|
148
|
2 |
7 |
unless defined $$provides{$_} |
|
149
|
2 |
5 |
unless $$provides{$_} >= $$requires{$_} |
|
172
|
1 |
1 |
unless ($date) |
|
176
|
257 |
1 |
if $_ lt $v |
|
177
|
1 |
0 |
if $date = $perlhist{$_} |
|
180
|
0 |
2 |
unless $date |
|
212
|
1 |
1 |
unless (%perlhist) |
|
217
|
313 |
127 |
if (/([1-5]\.[A-Za-z0-9\._]+)\s+(\d{4}-[\?\w]{3}-[\?\d]{2})/) |
|
223
|
13 |
300 |
if ($vers =~ /^(\d)\.(\d{3})\.\.(\d*)/) |
|
232
|
4 |
309 |
if ($date =~ /\?/) { } |
|
260
|
0 |
4 |
if (grep {$_ eq '-check';} @_) |
|
263
|
0 |
0 |
unless $class->new->perl_can |