| 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'}::"
|