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