| 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] ? :
|
|
135
|
1 |
5 |
$sub ? :
|
|
154
|
1 |
5 |
$code ? :
|
|
184
|
5 |
1 |
ref $code ? :
|
|
193
|
1 |
3 |
$_[2] ? :
|
|
|
1 |
4 |
ref $_[0] eq 'HASH' ? :
|
|
|
1 |
5 |
!ref($_[0]) ? :
|
|
212
|
4 |
6 |
if ($CLASS{'KEYWORD'}{$name}{"POD_$_"})
|
|
220
|
6 |
6 |
if $add eq $name
|
|
280
|
2 |
6 |
if ($CLASS{'DIST'})
|
|
311
|
1 |
7 |
unless open my $fh, ">", $file
|
|
314
|
4 |
3 |
if $tlib
|
|
329
|
1 |
4 |
unless open my $fh, ">", $file
|
|
338
|
13 |
55 |
if $_ =~ /\.pm|\.t/
|
|
341
|
5 |
50 |
unless (-d $1)
|
|
342
|
1 |
4 |
unless mkdir $1
|
|
350
|
4 |
5 |
if ($_[0]{'USE'})
|
|
354
|
1 |
3 |
if $use[0] and $use[0] =~ s/^\[(.*)\]$/$1/gs
|
|
358
|
1 |
8 |
if $_[0]{'BASE'}
|
|
359
|
1 |
8 |
if $_[0]{'PARENT'}
|
|
360
|
1 |
8 |
if $_[0]{'REQUIRE'}
|
|
375
|
4 |
41 |
if ($phases->{$_})
|
|
376
|
3 |
1 |
ref $phases->{$_} ? :
|
|
390
|
2 |
13 |
if ($#struct > 0)
|
|
393
|
5 |
8 |
ref $struct[0] ? :
|
|
394
|
1 |
12 |
unless defined $struct[0]
|
|
411
|
1 |
21 |
if $class->{'SUBS'}{$sub}{'NO_CODE'}
|
|
413
|
5 |
16 |
if ($class->{'SUBS'}{$sub}{'KEYWORD'}) { }
|
|
|
15 |
1 |
elsif ($class->{'SUBS'}{$sub}{'CODE'}) { }
|
|
419
|
1 |
1 |
(ref $meta->{'CODE'} || '') eq 'ARRAY' ? :
|
|
|
2 |
3 |
if defined $meta->{'CODE'}
|
|
420
|
4 |
1 |
$keyword->{'CODE'} ? :
|
|
422
|
14 |
1 |
ref $class->{'SUBS'}{$sub}{'CODE'} ? :
|
|
428
|
14 |
1 |
if $MACROS
|
|
454
|
14 |
4 |
$definition->{'SUBS'}{$sub}{'POD'} ? :
|
|
455
|
3 |
15 |
if ($definition->{'SUBS'}{$sub}{'KEYWORD'}) { }
|
|
|
4 |
11 |
elsif ($definition->{'SUBS'}{$sub}{'ACCESSOR'}) { }
|
|
460
|
2 |
1 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
465
|
2 |
2 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
470
|
5 |
6 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
474
|
2 |
7 |
if (scalar @{$sections{'accessor'};})
|
|
478
|
6 |
3 |
if (scalar @{$sections{'subs'};})
|
|
490
|
7 |
2 |
if $CLASS{'EMAIL'}
|
|
503
|
4 |
5 |
$definition->{'ABSTRACT'} ? :
|
|
|
1 |
8 |
$definition->{'SYNOPSIS'} ? :
|
|
528
|
1 |
13 |
if ($stderr_string)
|
|
541
|
1 |
5 |
if ($class->{'CLASS_TESTS'})
|
|
550
|
3 |
3 |
if ($class->{'SUBS'}{'new'}{'TEST'})
|
|
560
|
6 |
8 |
if $sub eq "new"
|
|
561
|
3 |
5 |
if $obj_ok
|
|
566
|
3 |
3 |
$class->{'SUBS'}{$sub}{'KEYWORD'} ? :
|
|
|
6 |
2 |
if $class->{'SUBS'}{$sub}{'TEST'}
|
|
607
|
37 |
1 |
ref $test ? :
|