| line |
true |
false |
branch |
|
289
|
8 |
68 |
if (ref $method) { } |
|
345
|
0 |
1 |
if @_ |
|
|
0 |
32 |
if @_ |
|
351
|
0 |
2 |
if ($$conf{$pkg}{$method}) |
|
355
|
0 |
2 |
if (@_) |
|
462
|
0 |
0 |
ref $pkg ? : |
|
|
0 |
0 |
if @_ |
|
|
0 |
0 |
if (@_ and $pkg ne $internalpkg) { } |
|
|
0 |
0 |
ref $pkg ? : |
|
|
0 |
0 |
if @_ |
|
|
0 |
0 |
if (@_ and $pkg ne $internalpkg) { } |
|
465
|
0 |
2 |
unless ($method =~ /^_/) |
|
469
|
0 |
0 |
if ($$conf{$pkg}{$method}) |
|
473
|
0 |
0 |
if (@_) |
|
499
|
0 |
427 |
unless ref $self |
|
501
|
151 |
276 |
if @_ |
|
599
|
32 |
0 |
ref $self ? : |
|
600
|
32 |
0 |
ref $self ? : |
|
602
|
32 |
0 |
if (@_) { } |
|
607
|
1 |
31 |
defined $code ? : |
|
608
|
0 |
0 |
defined $code ? : |
|
|
0 |
32 |
if not $nolog and $self->ERRFILE and $error |
|
638
|
31 |
0 |
ref $self ? : |
|
658
|
0 |
0 |
defined $self->error ? : |
|
|
0 |
0 |
defined $self->errcode ? : |
|
681
|
0 |
0 |
if (defined $self->error) { } |
|
|
0 |
0 |
elsif (defined $self->errcode) { } |
|
688
|
0 |
0 |
if (defined $self->errcode) |
|
755
|
0 |
5 |
@_ ? : |
|
756
|
0 |
5 |
@_ ? : |
|
759
|
0 |
0 |
unless -e $conf_file |
|
760
|
0 |
0 |
if (not $$loaded{$conf_file} or -M $conf_file <= 0) |
|
763
|
0 |
0 |
unless open CONF, $conf_file |
|
765
|
0 |
0 |
if not defined $line or $line =~ /^\s*#/ or $line =~ /^\s*$/ |
|
766
|
0 |
0 |
if ($line =~ /define package\s+(\S+)/) |
|
772
|
0 |
0 |
unless $line =~ /^(?:\s*(\d+)\s*:)?\s*(\w+)\s*(\@?)=\s*(.+)/ |
|
777
|
0 |
0 |
unless (defined $val) |
|
781
|
0 |
0 |
unless (defined $array) |
|
785
|
0 |
0 |
unless defined $val |
|
787
|
0 |
0 |
if defined $user and $user != $> |
|
789
|
0 |
0 |
if $val eq 'undef' |
|
791
|
0 |
0 |
if defined $val and $val =~ /^\\/ |
|
793
|
0 |
0 |
if ($array) { } |
|
801
|
0 |
0 |
unless @_ |
|
947
|
0 |
3 |
unless $class->isa_path |
|
949
|
0 |
0 |
if ($self->can($method)) |
|
952
|
0 |
0 |
if $self->can($method) |
|
953
|
0 |
0 |
defined $$conf{$pkg}{$method} ? : |
|
954
|
0 |
0 |
defined $self->error ? : |
|
|
0 |
0 |
unless defined $return |
|
969
|
31 |
0 |
if (@_) { } |
|
976
|
31 |
0 |
if ($self->can($method)) |
|
982
|
31 |
0 |
defined $value ? : |
|
983
|
0 |
0 |
defined $self->error ? : |
|
|
0 |
31 |
unless defined $return |
|
1012
|
0 |
6 |
if $$seen{$class}++ |
|
1014
|
2 |
4 |
if $$paths{$class} |
|
1021
|
0 |
3 |
if $$seen{$super} |
|
1054
|
3 |
33 |
if (defined $file) { } |
|
1055
|
0 |
3 |
if (not ref $file) { } |
|
|
3 |
0 |
elsif (ref($file) =~ /^(?:GLOB|ARRAY|CODE)$/) { } |
|
1057
|
0 |
0 |
if ($IO =~ /^(?:>>?|<)$/) { } |
|
1058
|
0 |
0 |
unless open $handle, $IO . $file |
|
1068
|
0 |
3 |
if ref $file eq 'GLOB' |
|
1120
|
0 |
4 |
if (ref $list eq 'GLOB') { } |
|
|
4 |
0 |
elsif (ref $list eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $list eq 'CODE') { } |
|
1122
|
0 |
0 |
unless defined $email |
|
1188
|
0 |
3 |
if (ref $file eq 'GLOB') { } |
|
|
0 |
3 |
elsif (ref $file eq 'ARRAY') { } |
|
|
3 |
0 |
elsif (ref $file eq 'CODE') { } |
|
1189
|
0 |
0 |
if $value |
|
1224
|
3 |
0 |
ref $value ? : |
|
1226
|
3 |
0 |
if defined $v2 |
|
1298
|
0 |
32 |
if (@_) { } |