| line |
true |
false |
branch |
|
17
|
1 |
1 |
ref $_[0] ? :
|
|
22
|
2 |
2 |
ref $_[0] ? :
|
|
30
|
8 |
21 |
ref $self ? :
|
|
35
|
3 |
6 |
ref $_[0] ? :
|
|
40
|
2 |
0 |
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
|
0 |
1 |
$_[2] ? :
|
|
|
0 |
1 |
ref $_[0] eq 'HASH' ? :
|
|
|
1 |
1 |
!ref($_[0]) ? :
|
|
212
|
4 |
2 |
if ($CLASS{'KEYWORD'}{$name}{"POD_$_"})
|
|
220
|
2 |
2 |
if $add eq $name
|
|
280
|
2 |
6 |
if ($CLASS{'DIST'})
|
|
311
|
1 |
7 |
unless open my $fh, '>', $file
|
|
314
|
4 |
3 |
if ($tlib)
|
|
324
|
0 |
4 |
unless open my $fh, '>', $file
|
|
335
|
12 |
52 |
if $_ =~ /\.pm|\.t/
|
|
338
|
5 |
47 |
unless (-d $1)
|
|
339
|
1 |
4 |
unless mkdir $1
|
|
347
|
3 |
5 |
if ($_[0]{'USE'})
|
|
351
|
0 |
3 |
if $use[0] and $use[0] =~ s/^\[(.*)\]$/$1/gs
|
|
355
|
1 |
7 |
if $_[0]{'BASE'}
|
|
356
|
1 |
7 |
if $_[0]{'PARENT'}
|
|
357
|
1 |
7 |
if $_[0]{'REQUIRE'}
|
|
372
|
4 |
41 |
if ($phases->{$_})
|
|
373
|
3 |
1 |
ref $phases->{$_} ? :
|
|
387
|
0 |
5 |
if ($#struct > 0)
|
|
390
|
0 |
5 |
ref $struct[0] ? :
|
|
391
|
0 |
5 |
unless defined $struct[0]
|
|
409
|
0 |
19 |
if $class->{'SUBS'}{$sub}{'NO_CODE'}
|
|
411
|
3 |
16 |
if ($class->{'SUBS'}{$sub}{'KEYWORD'}) { }
|
|
|
15 |
1 |
elsif ($class->{'SUBS'}{$sub}{'CODE'}) { }
|
|
417
|
0 |
0 |
(ref $meta->{'CODE'} || '') eq 'ARRAY' ? :
|
|
|
0 |
3 |
if defined $meta->{'CODE'}
|
|
420
|
14 |
1 |
ref $class->{'SUBS'}{$sub}{'CODE'} ? :
|
|
426
|
14 |
1 |
if $MACROS
|
|
452
|
14 |
4 |
$definition->{'SUBS'}{$sub}{'POD'} ? :
|
|
453
|
3 |
15 |
if ($definition->{'SUBS'}{$sub}{'KEYWORD'}) { }
|
|
|
4 |
11 |
elsif ($definition->{'SUBS'}{$sub}{'ACCESSOR'}) { }
|
|
458
|
2 |
1 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
463
|
2 |
2 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
468
|
5 |
6 |
$definition->{'SUBS'}{$sub}{'EXAMPLE'} ? :
|
|
472
|
2 |
7 |
if (scalar @{$sections{'accessor'};})
|
|
476
|
6 |
3 |
if (scalar @{$sections{'subs'};})
|
|
488
|
7 |
2 |
if $CLASS{'EMAIL'}
|
|
501
|
4 |
5 |
$definition->{'ABSTRACT'} ? :
|
|
|
1 |
8 |
$definition->{'SYNOPSIS'} ? :
|
|
526
|
1 |
12 |
if ($stderr_string)
|
|
539
|
1 |
3 |
if ($class->{'CLASS_TESTS'})
|
|
549
|
2 |
2 |
if ($class->{'SUBS'}{'new'}{'TEST'})
|
|
559
|
4 |
6 |
if $sub eq 'new'
|
|
560
|
3 |
3 |
if $obj_ok
|
|
565
|
3 |
3 |
$class->{'SUBS'}{$sub}{'KEYWORD'} ? :
|
|
|
6 |
0 |
if $class->{'SUBS'}{$sub}{'TEST'}
|
|
606
|
35 |
0 |
ref $test ? :
|