| line |
true |
false |
branch |
|
87
|
52 |
52 |
unless $pkg =~ /\A Text::Printf/x or $pkg =~ /\A Exception::Class/x |
|
105
|
0 |
52 |
if substr($msg, -1, 1) eq "\n" |
|
153
|
0 |
42 |
if exists $boilerplate_for{$self} |
|
154
|
0 |
42 |
if exists $delimiters_for{$self} |
|
155
|
0 |
42 |
if exists $regex_for{$self} |
|
156
|
0 |
42 |
if exists $value_hashes_for{$self} |
|
157
|
0 |
42 |
if exists $defaults_for{$self} |
|
158
|
0 |
42 |
if exists $bad_keys_of{$self} |
|
160
|
0 |
42 |
if @occupied |
|
173
|
26 |
16 |
if (@_ == 1) { } |
|
|
12 |
4 |
elsif (@_ == 2) { } |
|
|
1 |
3 |
elsif (@_ > 2) { } |
|
176
|
0 |
26 |
unless defined $arg |
|
180
|
25 |
1 |
if ($ref eq '') { } |
|
|
1 |
0 |
elsif ($ref eq 'HASH') { } |
|
198
|
0 |
12 |
unless defined $arg |
|
202
|
11 |
1 |
if ($ref eq '') { } |
|
215
|
1 |
10 |
if ($ref ne 'HASH') |
|
230
|
11 |
28 |
if (exists $$options_ref{'delimiters'}) { } |
|
234
|
1 |
10 |
unless ref $delim eq 'ARRAY' |
|
240
|
1 |
9 |
unless @$delim == 2 |
|
247
|
5 |
4 |
unless $ref0 eq '' || $ref0 eq 'Regexp' and $ref1 eq '' || $ref1 eq 'Regexp' |
|
254
|
2 |
2 |
$ref0 ? : |
|
|
2 |
2 |
$ref0 ? : |
|
301
|
1 |
6 |
if ref $arg ne 'HASH' |
|
316
|
1 |
8 |
if ref $arg ne 'HASH' |
|
338
|
5 |
5 |
unless @_ |
|
342
|
1 |
4 |
if @_ |
|
344
|
1 |
3 |
unless defined $text |
|
360
|
2 |
53 |
if ref $arg ne 'HASH' |
|
365
|
4 |
35 |
if exists $value_hashes_for{$self} |
|
367
|
6 |
33 |
if exists $defaults_for{$self} |
|
371
|
1 |
38 |
unless defined $str |
|
380
|
5 |
33 |
if (@$bk > 0) |
|
382
|
3 |
2 |
@$bk == 1 ? : |
|
401
|
59 |
114 |
unless exists $$hashref{$keyword} |
|
406
|
3 |
111 |
if ref $value eq 'ARRAY' and $value eq $Text::Printf::DONTSET |
|
409
|
1 |
110 |
unless defined $value |
|
410
|
86 |
25 |
unless defined $format |
|
416
|
8 |
17 |
if (defined $extend) |
|
420
|
7 |
1 |
if index($extend, ',') >= 0 |
|
421
|
5 |
3 |
if index($extend, '$') >= 0 |
|
476
|
3 |
1 |
if (ref $_[0] eq 'GLOB' or UNIVERSAL::can($_[0], 'print')) |
|
479
|
1 |
2 |
if @_ < 1 |
|
486
|
2 |
0 |
if ($fh) { } |
|
488
|
1 |
1 |
if (UNIVERSAL::can($fh, 'print')) { } |
|
510
|
0 |
0 |
if @_ < 2 |
|
521
|
2 |
11 |
if @_ == 0 |
|
531
|
2 |
14 |
if ref $arg ne 'HASH' |
|
543
|
1 |
1 |
$ref eq '' ? : |