| line |
true |
false |
branch |
|
41
|
0 |
15 |
unless my $type = ref $self |
|
46
|
0 |
15 |
unless (exists $$self{$field}) |
|
48
|
0 |
0 |
if $name =~ /^[A-Z]+$/ |
|
51
|
15 |
0 |
if $#_ |
|
58
|
0 |
11 |
unless scalar @_ % 2 == 1 |
|
68
|
3 |
8 |
exists $param{'wrap_after'} ? : |
|
74
|
0 |
15 |
unless defined eval {
do {
&AUTOLOAD($self, $value)
}
} |
|
85
|
11 |
0 |
if (@_) |
|
101
|
0 |
11 |
unless defined $chars |
|
104
|
3 |
1 |
if (length $chars) { } |
|
135
|
25 |
1988 |
if ($_[0] =~ /\G[$hWS]*(\n+)/cog) { } |
|
139
|
11 |
1977 |
unless $_[0] =~ /\G($re)/g |
|
142
|
1977 |
823 |
if ($length + length($word) <= $width or $length == $lineStart) { } |
|
153
|
0 |
11 |
if ($length != $lineStart) { } |