line |
true |
false |
branch |
117
|
0 |
8452 |
unless @$symbols |
131
|
0 |
76 |
unless @$symbols |
144
|
1182 |
0 |
unless ref $debug eq "HASH" |
168
|
1 |
130 |
@_ ? : |
203
|
12306 |
594 |
@_ ? : |
207
|
8600 |
4300 |
@_ ? : |
273
|
0 |
54 |
@_ ? : |
276
|
1 |
34 |
if ($base eq $pkg) { } |
277
|
1 |
0 |
if $pkg =~ /(\w+)$/ |
295
|
0 |
0 |
unless $_[0]{'symbols'}{$_[1]} |
296
|
0 |
0 |
unless $_[0]{'symbols'}{$_[1]} |
297
|
0 |
0 |
unless $_[0]{'symbols'}{$_[1]} |
298
|
0 |
0 |
unless $_[0]{'symbols'}{$_[1]} |
299
|
0 |
0 |
unless $_[0]{'symbols'}{$_[1]} |
300
|
0 |
0 |
unless scalar_ref(@_) |
301
|
0 |
0 |
unless array_ref(@_) |
302
|
0 |
0 |
unless hash_ref(@_) |
325
|
105 |
125 |
@_ ? : |
346
|
0 |
596 |
if &DEBUG() |
347
|
180 |
416 |
if defined ${$pkg . "::" . $name;} |
355
|
88 |
32 |
@_ == 1 ? : |
359
|
86 |
34 |
unless ref $names eq "ARRAY" |
367
|
0 |
392 |
if &DEBUG() |
368
|
86 |
306 |
if defined ${$pkg . "::" . $name;} |
388
|
0 |
6723 |
if &DEBUG() |
390
|
3939 |
2784 |
if defined($value = ${$pkg . "::" . $name;}) |
391
|
0 |
6723 |
if &DEBUG() and $value |
394
|
1953 |
230 |
wantarray ? : |
408
|
72 |
87 |
unless defined $list |
409
|
66 |
21 |
if (ref $list eq 'ARRAY') { } |
410
|
0 |
66 |
unless @$list |
424
|
43 |
112 |
wantarray ? : |
440
|
96 |
47 |
unless defined $hash |
441
|
0 |
47 |
unless (ref $hash eq "HASH") |
460
|
0 |
1956 |
unless ref $hash eq "HASH" |
462
|
1951 |
5 |
if defined $hash->{$item} |
489
|
0 |
721 |
wantarray ? : |
499
|
0 |
720 |
unless defined($item = pop @pending) |
506
|
2598 |
0 |
wantarray ? : |
517
|
2127 |
0 |
@_ == 1 ? : |
520
|
2127 |
0 |
unless ref $bases eq "ARRAY" |
526
|
251 |
2061 |
if $pkg->isa($base) |
527
|
0 |
2061 |
if &DEBUG() |
536
|
3 |
0 |
@_ == 1 ? : |
538
|
3 |
0 |
unless ref $mixins eq "ARRAY" |
556
|
0 |
0 |
@_ == 1 ? : |
559
|
0 |
0 |
unless ref $syms eq "ARRAY" |
565
|
0 |
0 |
if &DEBUG() |
575
|
0 |
1384 |
if &DEBUG() |
580
|
1384 |
0 |
unless defined ${$pkg . "::" . "VERSION";} and ${$pkg . "::" . "VERSION";} |
582
|
1384 |
0 |
unless defined &{$pkg . "::" . "VERSION";} |
589
|
775 |
22 |
@_ == 1 ? : |
594
|
0 |
797 |
unless ref $constants eq "HASH" |
602
|
0 |
2449 |
if &DEBUG() |
610
|
493 |
0 |
@_ == 1 ? : |
613
|
493 |
0 |
unless ref $words eq "ARRAY" |
619
|
0 |
1287 |
if &DEBUG() |
641
|
637 |
1 |
@_ && ref $_[0] eq 'HASH' ? : |
650
|
1 |
637 |
if ($messages) { } |
651
|
0 |
1 |
if &DEBUG() |
655
|
0 |
637 |
if &DEBUG() |
669
|
4 |
21 |
unless @_ |
674
|
0 |
21 |
if &DEBUG() |
678
|
17 |
4 |
ref $code eq 'CODE' ? : |
685
|
75 |
638 |
@_ && ref $_[0] eq 'HASH' ? : |
691
|
0 |
4967 |
if &DEBUG() |
693
|
4966 |
1 |
ref $code eq 'CODE' ? : |
700
|
91 |
1 |
@_ && ref $_[0] eq 'HASH' ? : |
705
|
0 |
97 |
if &DEBUG() |
706
|
3 |
94 |
unless ref $code eq "CODE" |
718
|
74 |
442 |
@_ && ref $_[0] eq 'HASH' ? : |
719
|
0 |
516 |
if &DEBUG() |
731
|
219 |
0 |
$arg eq 1 ? : |
|
0 |
219 |
$arg eq 0 ? : |
752
|
2 |
1 |
keys %{$_[0]{'symbols'};} ? : |
757
|
0 |
98 |
unless _autoload($self->{'name'}) |
796
|
31 |
0 |
@_ == 1 ? : |
800
|
26 |
5 |
unless ref $args |
805
|
26 |
5 |
if ref $args eq "ARRAY" |
809
|
0 |
31 |
unless ref $args eq "HASH" |
812
|
0 |
31 |
if &DEBUG() |
832
|
649 |
5742 |
unless (defined ${$class . "::" . "BADGER_LOADED";} or scalar grep({not /::$/;} keys %$symbols) > 1) |
836
|
0 |
649 |
if &DEBUG() |
839
|
22 |
627 |
if $@ |
850
|
0 |
0 |
if scalar grep({not /::$/;} keys %$symbols) == 1 and exists $symbols->{'import'} |