| line |
true |
false |
branch |
|
98
|
0 |
0 |
unless $AUTOLOAD =~ /([^:]+)$/ |
|
99
|
0 |
0 |
if uc $1 eq $1 |
|
100
|
0 |
0 |
unless my $obj = $self->load($1) |
|
119
|
0 |
0 |
unless (grep {$_ eq $self->{'prefix'};} @INC) |
|
132
|
0 |
1 |
if @parts > 1 |
|
138
|
0 |
1 |
unless open my $FROM, '<', $from |
|
139
|
0 |
1 |
unless open my $TO, '>', $to |
|
148
|
0 |
3 |
if (/^=(?:b(?:egin|ack)|head\d|(?:po|en)d|item|(?:ove|fo)r)/) { } |
|
|
0 |
3 |
elsif (/^=cut\s*\z/ and $in_pod) { } |
|
|
3 |
0 |
elsif (not $in_pod) { } |
|
158
|
0 |
1 |
unless close $FROM |
|
159
|
0 |
1 |
unless close $TO |
|
167
|
0 |
0 |
unless ($self->{'extensions'}) |
|
170
|
0 |
0 |
if ref $inc or $inc eq $self->{'prefix'} |
|
182
|
0 |
0 |
unless defined &{ref($obj) . "::$method";} |
|
186
|
0 |
0 |
if $copy xor $is_admin |
|
188
|
0 |
0 |
unless (@extobj) |
|
194
|
0 |
0 |
if $copy |
|
202
|
0 |
0 |
unless $pathname ||= $self->{'pathnames'}{$pkg} |
|
206
|
0 |
0 |
if -f $file |
|
219
|
0 |
0 |
unless $#{$objects;} > 0 and -t STDIN |
|
235
|
0 |
0 |
if $choice > 0 and $choice <= @$objects |
|
244
|
0 |
0 |
unless ($pkg =~ /^main::.*::$/) |
|
245
|
0 |
0 |
if $pkg =~ /^::/ |
|
246
|
0 |
0 |
unless $pkg =~ /^main::/ |
|
247
|
0 |
0 |
unless $pkg =~ /::$/ |
|
252
|
0 |
0 |
unless defined $stem_symtab and exists $stem_symtab->{$leaf} |
|
257
|
0 |
0 |
if $name eq "$self->{'dispatch'}::" |
|
263
|
0 |
0 |
if $name eq "$self->{'dispatch'}::" |