script/podify.pl | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 17 | 26 | 65.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
36 | 15 | 2 | 2 | -d $File::Find::name and not $self->recursive |
line | l | !l | condition |
---|---|---|---|
115 | 1 | 0 | $self->{'module_name'} || 'Unknown' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
93 | 0 | 3 | 0 | $self->{'module_name'} ||= $1 |
94 | 0 | 0 | 0 | $self->{'module_version'} ||= $1 |
96 | 1 | 1 | 103 | @{$self->{'data'};} or /^__DATA__$/ |
97 | 2 | 61 | 42 | @{$self->{'data'};} or $pod |
63 | 3 | 39 | @{$self->{'data'};} or $pod or $_ =~ /$eopm/ | |
115 | 1 | 0 | 0 | $ENV{'PODIFY_AUTHOR'} || (getpwuid $<)[6] || (getpwuid $<)[0] |
123 | 1 | 1 | 0 | delete $self->{'attrs'}{$_} or delete $self->{'subs'}{$_} |