| 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)) |