| line |
true |
false |
branch |
|
17
|
2 |
8 |
ref $_[0] ? :
|
|
22
|
3 |
2 |
ref $_[0] ? :
|
|
30
|
15 |
21 |
ref $self ? :
|
|
35
|
3 |
6 |
ref $_[0] ? :
|
|
40
|
3 |
1 |
ref $_[0] ? :
|
|
45
|
6 |
1 |
ref $_[0] ? :
|
|
50
|
6 |
1 |
ref $_[0] ? :
|
|
55
|
6 |
1 |
ref $_[0] ? :
|
|
149
|
1 |
5 |
$sub ? :
|
|
168
|
1 |
5 |
$code ? :
|
|
198
|
5 |
1 |
ref $code ? :
|
|
207
|
1 |
3 |
$_[2] ? :
|
|
|
1 |
4 |
ref $_[0] eq 'HASH' ? :
|
|
|
1 |
5 |
!ref($_[0]) ? :
|
|
226
|
4 |
6 |
if ($CLASS{'KEYWORD'}{$name}{"POD_$_"})
|
|
234
|
6 |
6 |
if $add eq $name
|
|
294
|
2 |
6 |
if ($CLASS{'DIST'})
|
|
327
|
1 |
7 |
unless open my $fh, ">", $file
|
|
330
|
4 |
3 |
if $tlib
|
|
345
|
1 |
4 |
unless open my $fh, ">", $file
|
|
354
|
13 |
55 |
if $_ =~ /\.pm|\.t/
|
|
357
|
5 |
50 |
unless (-d $1)
|
|
358
|
1 |
4 |
unless mkdir $1
|
|
365
|
0 |
0 |
if ($_[0] and scalar @{$_[0];})
|
|
372
|
0 |
0 |
if ($_[0] and scalar @{$_[0];})
|
|
380
|
4 |
5 |
if ($_[0]{'USE'})
|
|
384
|
1 |
3 |
if $use[0] and $use[0] =~ s/^\[(.*)\]$/$1/gs
|
|
388
|
1 |
8 |
if $_[0]{'BASE'}
|
|
389
|
1 |
8 |
if $_[0]{'PARENT'}
|
|
390
|
1 |
8 |
if $_[0]{'REQUIRE'}
|
|
405
|
4 |
41 |
if ($phases->{$_})
|
|
406
|
3 |
1 |
ref $phases->{$_} ? :
|
|
420
|
2 |
13 |
if ($#struct > 0)
|
|
423
|
5 |
8 |
ref $struct[0] ? :
|
|
424
|
1 |
12 |
unless defined $struct[0]
|
|
441
|
1 |
21 |
if $class->{'SUBS'}{$sub}{'NO_CODE'}
|
|
443
|
5 |
16 |
if ($class->{'SUBS'}{$sub}{'KEYWORD'}) { }
|
|
|
15 |
1 |
elsif ($class->{'SUBS'}{$sub}{'CODE'}) { }
|
|
449
|
1 |
1 |
(ref $meta->{'CODE'} || '') eq 'ARRAY' ? :
|
|
|
2 |
3 |
if defined $meta->{'CODE'}
|
|
450
|
4 |
1 |
$keyword->{'CODE'} ? :
|
|
452
|
14 |
1 |
ref $class->{'SUBS'}{$sub}{'CODE'} ? :
|
|
458
|
14 |
1 |
if $MACROS
|
|
484
|
14 |
4 |
$definition->{'SUBS'}{$sub}{'POD'} ? :
|
|
485
|
3 |
15 |
if ($definition->{'SUBS'}{$sub}{'KEYWORD'}) { }
|
|
|
4 |
11 |
elsif ($definition->{'SUBS'}{$sub}{'ACCESSOR'}) { }
|
|
490
|
2 |
1 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
495
|
2 |
2 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
500
|
5 |
6 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
504
|
2 |
7 |
if (scalar @{$sections{'accessor'};})
|
|
508
|
6 |
3 |
if (scalar @{$sections{'subs'};})
|
|
520
|
7 |
2 |
if $CLASS{'EMAIL'}
|
|
533
|
4 |
5 |
$definition->{'ABSTRACT'} ? :
|
|
|
1 |
8 |
$definition->{'SYNOPSIS'} ? :
|
|
558
|
1 |
13 |
if ($stderr_string)
|
|
571
|
1 |
5 |
if ($class->{'CLASS_TESTS'})
|
|
580
|
3 |
3 |
if ($class->{'SUBS'}{'new'}{'TEST'})
|
|
590
|
6 |
8 |
if $sub eq "new"
|
|
591
|
3 |
5 |
if $obj_ok
|
|
596
|
3 |
3 |
$class->{'SUBS'}{$sub}{'KEYWORD'} ? :
|
|
|
6 |
2 |
if $class->{'SUBS'}{$sub}{'TEST'}
|
|
637
|
37 |
1 |
ref $test ? :
|