| line |
true |
false |
branch |
|
20
|
0 |
0 |
unless $self->{$section} |
|
36
|
2 |
17 |
if -d $File::Find::name and not $self->recursive |
|
37
|
2 |
17 |
if $File::Find::name eq $path |
|
38
|
1 |
18 |
if $File::Find::prune |
|
39
|
5 |
13 |
if $File::Find::name =~ /[.] pm \z/msx |
|
51
|
1 |
2 |
unless @{$self->{'pod'};} |
|
53
|
0 |
3 |
if ($self->i) { } |
|
|
0 |
3 |
elsif (not $OUT) { } |
|
54
|
0 |
0 |
unless open $OUT, '>', $self->{'perl_module'} |
|
66
|
3 |
0 |
unless $self->{'pod_has_encoding'} |
|
69
|
1 |
2 |
if @{$self->{'data'};} |
|
84
|
0 |
3 |
unless open my $IN, '<', $self->{'perl_module'} |
|
89
|
1 |
105 |
if /^=encoding\s/ |
|
90
|
2 |
103 |
if /^has\s+([a-z]\w*)/ |
|
91
|
3 |
102 |
if /^sub\s+([a-z]\w*)/ |
|
92
|
2 |
103 |
if /^=head2\s([a-z]\w*)/ |
|
93
|
3 |
102 |
if /^package\s+([^\s;]+)/ |
|
94
|
0 |
105 |
if /^VERSION.*([\d\.]+)/ |
|
95
|
61 |
44 |
if /^=head/ .. /=cut/ |
|
96
|
2 |
103 |
if @{$self->{'data'};} or /^__DATA__$/ |
|
97
|
39 |
64 |
unless @{$self->{'data'};} or $pod or $_ =~ /$eopm/ |
|
112
|
0 |
1 |
unless $self->{'attrs'} |
|
114
|
0 |
1 |
unless $self->{'subs'} |
|
115
|
0 |
1 |
$self->{'module_version'} ? : |