blib/lib/Pod/Checker.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 45 | 76 | 59.2 |
line | l | !l | condition |
---|---|---|---|
868 | 0 | 0 | $self->num_errors(-1) and return |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
517 | 0 | 21 | 58 | $opts{-'severity'} and $opts{'-severity'} eq 'ERROR' |
519 | 0 | 58 | 21 | $opts{-'severity'} and $opts{'-severity'} eq 'WARNING' |
563 | 0 | 0 | 0 | @_ > 1 && $_[1] |
701 | 187 | 62 | 0 | $inner eq 'L' and $Pod::Simple::VERSION ge '3.33' |
738 | 77 | 72 | 11 | $self->{'_head_num'} == 1 and $self->{'_head_text'} eq 'NAME' |
749 | 3 | 6 | 1 | $self->{'_head_num'} == 1 and $self->{'_head_text'} eq 'NAME' |
772 | 18 | 24 | 1 | $h > 1 and not $$self{'_count_head' . ($h - 1)} |
779 | 30 | 8 | 5 | $self->{'_cmds_since_head'} == 1 and $prev_h >= $h |
834 | 0 | 1 | 0 | @{$self->{'paras'};} && $self->{'paras'}[0][0] =~ /Verbatim/i |
84 | 0 | 1 | $self->{'_thispara'} eq '' and not @{$self->{'paras'};} && $self->{'paras'}[0][0] =~ /Verbatim/i | |
941 | 8 | 14 | 40 | $link->type eq 'pod' and $link->node |
22 | 40 | 0 | $link->type eq 'pod' and $link->node and !$link->page || $self->{'_pod_name'} && $link->page eq $self->{'_pod_name'} | |
1020 | 43 | 19 | 0 | $self->{'-page'} eq '' and $self->{'-node'} eq '' |
line | l | !l | condition |
---|---|---|---|
389 | 3 | 0 | $infile ||= \*STDIN |
390 | 3 | 0 | $outfile ||= \*STDERR |
432 | 0 | 4 | $new->{'output_fh'} ||= *STDERR{'IO'} |
438 | 1 | 3 | $opts{'-quiet'} || 0 |
502 | 79 | 0 | $opts{'-msg'} || '' |
521 | 79 | 0 | $self->{'output_fh'} || \*STDERR |
876 | 25 | 62 | $nodes{$1} ||= 2 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
517 | 0 | 0 | 79 | not %opts or $opts{-'severity'} and $opts{'-severity'} eq 'ERROR' |
519 | 0 | 0 | 79 | not %opts or $opts{-'severity'} and $opts{'-severity'} eq 'WARNING' |
523 | 79 | 0 | 0 | $self->{'-warnings'} or not %opts |
79 | 0 | 0 | $self->{'-warnings'} or not %opts or $opts{'-severity'} ne 'WARNING' | |
941 | 19 | 0 | 21 | !$link->page || $self->{'_pod_name'} && $link->page eq $self->{'_pod_name'} |
997 | 0 | 62 | 0 | $self->{'-line'} ||= $caller->{'_line'} |
998 | 0 | 62 | 0 | $self->{'-type'} ||= $simple_link->{'type'} |