Branch Coverage

blib/lib/Pod/Readme/Filter.pm
Criterion Covered Total %
branch 40 68 58.8


line true false branch
82 2 0 if ($self->input_file) { }
87 0 0 if ($fh->fdopen(fileno STDIN, 'r')) { }
106 4 0 if ($self->output_file) { }
111 0 0 if ($fh->fdopen(fileno STDOUT, 'w')) { }
168 6 1 if $self->input_file
214 18 0 if ($target and $target =~ $self->_target_regex)
215 18 0 if (my $cmd = shift @args)
217 18 0 if (my $method = $self->can("cmd_$cmd")) { }
258 18 101 if ($mode eq 'pod:for') { }
7 94 elsif ($mode eq 'pod:begin') { }
259 18 0 if ($line =~ /$blank/) { }
270 0 7 unless ($line =~ /$blank/)
279 41 53 if (my($cmd) = $line =~ /^=(\w+)\s/)
280 1 40 $cmd eq 'cut' ? :
282 40 1 if ($self->in_pod)
284 18 22 if ($cmd eq 'for') { }
4 18 elsif ($cmd eq 'begin') { }
4 14 elsif ($cmd eq 'end') { }
295 3 1 if ($target =~ $self->_target_regex) { }
297 1 2 if (@args)
301 0 1 if (substr($target, 0, 1) eq ':')
322 3 1 if ($target =~ $self->_target_regex)
324 2 1 if ($buffer ne '')
336 55 39 if $self->in_target and $self->in_pod
347 0 44 unless $self->filter_line($line)
369 0 0 if $start
371 0 0 if $stop
374 0 0 unless ($type =~ /^(?:text|pod)$/)
379 0 0 unless my $fh = 'IO::File'->new($file, 'r')
386 0 0 if $start and not $line =~ /$start/
387 0 0 if $stop and $line =~ /$stop/
391 0 0 if ($type eq 'text') { }
432 6 8 unless $self->can($name)
433 12 0 if (my $method = $self->can($name))