| line |
true |
false |
branch |
|
84
|
26 |
79 |
if ($lib) { }
|
|
89
|
26 |
0 |
if $makes{'class'}
|
|
201
|
9 |
2 |
unless $PREFIX
|
|
202
|
1 |
10 |
if ($args{'-author'})
|
|
208
|
1 |
10 |
if $args{'-version'}
|
|
210
|
4 |
7 |
$args{'-module'} ? :
|
|
235
|
0 |
11 |
unless ($lib)
|
|
248
|
5 |
72 |
unless (-d $path)
|
|
249
|
0 |
5 |
unless mkdir $path
|
|
260
|
0 |
26 |
unless open FH, ">", $f
|
|
302
|
1 |
3 |
if ($args{'pre'} eq '~') { }
|
|
|
1 |
2 |
elsif ($args{'pre'} eq '=') { }
|
|
335
|
3 |
21 |
$+{'array'} ? :
|
|
346
|
24 |
1 |
defined $hak->{'sub'} ? :
|
|
361
|
8 |
16 |
unless $spec[0]{'string'}
|
|
364
|
22 |
2 |
$spec[0]{'string'} =~ /[\'\"\s]+(ro|rw)[\'\"\s]+/ ? :
|
|
369
|
3 |
1 |
$spec[0]{'ident'} eq 'undef' ? :
|
|
|
4 |
20 |
if $spec[0]{'ident'}
|
|
370
|
9 |
15 |
$spec[0]{'hash'} ? :
|
|
371
|
22 |
2 |
if ($spec[0] and keys %{$spec[0];})
|
|
372
|
1 |
18 |
$spec[0]{'sub'} ? :
|
|
|
19 |
3 |
!$attrHash && $oc <= 3 ? :
|
|
373
|
4 |
18 |
if $spec[0]
|
|
381
|
16 |
3764 |
if $_
|
|
404
|
8 |
16 |
if ($h{'match'} =~ /=head1 NAME\n*([^\s]+)/)
|
|
412
|
18 |
8 |
unless ($POD{$class})
|
|
441
|
26 |
0 |
if ($POD{$class})
|
|
442
|
18 |
8 |
unless ($POD{$class}{'PARSED'})
|
|
540
|
32 |
6178 |
if $_
|
|
568
|
4 |
806 |
if $_
|
|
570
|
2 |
0 |
$attrs{'allow'} ? :
|
|
587
|
19 |
0 |
if ($args{'pod'})
|
|
598
|
11 |
8 |
if $args{'generate_pod'}
|
|
612
|
1 |
16 |
if ($_ =~ /\s*use\s*((?!qw)(?&PerlQualifiedIdentifier))\s*((?&PerlList)) $PPR::GRAMMAR/msx)
|
|
618
|
8 |
8 |
unless @list
|
|
624
|
16 |
96 |
if $attrs{$o}
|
|
631
|
2 |
24 |
if ($attrs{'allow'})
|
|
635
|
5 |
21 |
$attrs{'is'} ? :
|
|
641
|
6 |
8 |
unless ($l =~ s/^\s*\-/${last}::/)
|
|
644
|
2 |
12 |
if ($l =~ s/^\s*\~//)
|
|
645
|
2 |
0 |
$PREFIX ? :
|
|
649
|
6 |
20 |
$attrs{'with'} ? :
|
|
651
|
1 |
25 |
$attrs{'use'} ? :
|
|
678
|
0 |
26 |
if ($error)
|