| line |
true |
false |
branch |
|
37
|
1 |
0 |
if (@_ == 1) |
|
39
|
0 |
1 |
if (index($_[0], "\n") != -1) { } |
|
|
1 |
0 |
elsif ($_[0] eq '__DATA__') { } |
|
50
|
0 |
1 |
unless eval {
do {
$fh->seek(0, 0);
$/ = \$pos;
$line = 1 + scalar(() = readline($fh) =~ /\n/gu)
}
} |
|
58
|
0 |
1 |
unless defined $cpppp |
|
60
|
0 |
1 |
unless length $cpppp |
|
86
|
25 |
3 |
if ($_[$i] eq "-setup") |
|
112
|
1 |
24 |
unless @{"${pkg}::ISA";} |
|
128
|
0 |
4 |
unless my $m = +(shift())->{'template_method'}{$name} |
|
167
|
0 |
1 |
if defined &{$class . '::BUILD';} |
|
169
|
0 |
1 |
unless eval join("\n", $class->_gen_BUILD_method($version, $perl, $src_lineno, $src_filename), 1) |
|
181
|
13 |
0 |
if (defined $new) |
|
182
|
0 |
13 |
unless $self->output->has_section($new) |
|
191
|
0 |
0 |
if @_ > 1 |
|
192
|
0 |
0 |
if @_ > 1 |
|
193
|
0 |
0 |
if @_ > 1 |
|
194
|
0 |
0 |
if @_ > 1 |
|
195
|
0 |
219 |
if @_ > 1 |
|
196
|
0 |
0 |
if @_ > 1 |
|
199
|
50 |
42 |
if ref $class |
|
207
|
12 |
0 |
!(@args & 1) ? : |
|
|
22 |
12 |
@args == 1 && ref $args[0] ? : |
|
213
|
10 |
24 |
if (my $p = $parse->{'template_parameter'}{$_}) { } |
|
214
|
1 |
1 |
unless ref $attrs{$_} eq "ARRAY" |
|
|
2 |
8 |
if ($p eq '@') { } |
|
|
3 |
5 |
elsif ($p eq '%') { } |
|
215
|
1 |
2 |
unless ref $attrs{$_} eq "HASH" |
|
218
|
0 |
24 |
unless $class->can($_) |
|
235
|
12 |
20 |
if $self->{'context'} |
|
247
|
0 |
0 |
unless defined $v |
|
248
|
0 |
0 |
if ($p eq '@') { } |
|
|
0 |
0 |
elsif ($p eq '%') { } |
|
249
|
0 |
0 |
ref $v eq 'HASH' ? : |
|
|
0 |
0 |
unless ref $v eq "ARRAY" |
|
253
|
0 |
0 |
ref $v eq 'ARRAY' ? : |
|
|
0 |
0 |
unless ref $v eq "HASH" |
|
262
|
8 |
22 |
if (exists $self->{$name}) { } |
|
265
|
0 |
1 |
unless $self->{$name} |
|
266
|
0 |
2 |
unless $self->{$name} |
|
|
2 |
0 |
ref $ref eq 'HASH' ? : |
|
|
1 |
2 |
ref $ref eq 'ARRAY' ? : |
|
|
5 |
3 |
if (ref $ref eq 'SCALAR') { } |
|
269
|
1 |
0 |
ref $ref eq 'HASH' ? : |
|
|
2 |
1 |
ref $ref eq 'ARRAY' ? : |
|
|
19 |
3 |
if (ref $ref eq 'SCALAR') { } |
|
277
|
21 |
9 |
ref $ref eq 'SCALAR' ? : |
|
298
|
0 |
0 |
if ($self->emit_POD) |
|
305
|
18 |
65 |
unless defined $self->{'current_out'} |
|
310
|
4 |
0 |
if $self->{'current_out_colgroup_state'}{$group_i} == 2 |
|
319
|
6 |
14 |
if $col > $maxcol |
|
320
|
5 |
15 |
if defined $1 and length $1 > $maxdigit |
|
324
|
10 |
10 |
$1 ? : |
|
332
|
0 |
0 |
ord $_ > 126 || ord $_ < 33 ? : |
|
349
|
20 |
133 |
if ($s->{'colgroup'}) { } |
|
|
133 |
0 |
elsif (defined $s->{'eval_idx'}) { } |
|
352
|
7 |
13 |
$s->{'last'} ? : |
|
356
|
0 |
133 |
unless my $fn = $expr_subs[$s->{'eval_idx'}] |
|
364
|
86 |
47 |
if defined $self->indent |
|
373
|
0 |
133 |
if @out == 1 and ref $out[0] eq "ARRAY" |
|
380
|
11 |
122 |
if (ord $s->{'eval'} == 64) |
|
381
|
0 |
11 |
unless defined $last_char |
|
382
|
3 |
8 |
if ($self->{'autostatementline'} and $last_char eq '{' || $last_char eq ';' and substr($text, $s->{'pos'} + $s->{'len'}, 1) eq ';') { } |
|
|
8 |
0 |
elsif ($self->{'autocomma'} and $last_char eq ',' || $last_char eq '(' || $last_char eq '{') { } |
|
|
0 |
0 |
elsif ($self->{'autoindent'} and not $is_inline and not $join_sep =~ /\n/u) { } |
|
386
|
3 |
0 |
if (not $is_inline and substr($text, $s->{'pos'} + $s->{'len'}, 2) eq ";\n") { } |
|
389
|
2 |
1 |
unless (@out) |
|
399
|
7 |
1 |
$is_inline ? : |
|
402
|
2 |
6 |
if (not @out or $out[0] =~ /^\s*,/u) |
|
410
|
128 |
5 |
if (@out) |
|
415
|
120 |
8 |
if ($self->{'autoindent'} and length $indent_prefix) |