| line |
true |
false |
branch |
|
22
|
1 |
224 |
unless defined $type |
|
25
|
1 |
223 |
if $@ |
|
26
|
1 |
222 |
unless defined $args |
|
27
|
1 |
221 |
unless 'HASH' eq ref $args |
|
46
|
193 |
212 |
unless exists $$self{$arg} |
|
47
|
2 |
210 |
unless _is_color($$self{$arg}) |
|
65
|
187 |
2 |
unless $$self{'-allns'} |
|
66
|
6 |
183 |
unless ($$self{'-sized'}) |
|
87
|
0 |
410 |
unless exists $valid_parms{$parm} or $class->valid_param($parm) |
|
96
|
6 |
866 |
if exists $$self{$name} and $$self{$name} <= 0 |
|
98
|
31 |
835 |
if exists $$self{$name} |
|
100
|
410 |
425 |
if defined $default |
|
107
|
2 |
427 |
if exists $$self{$name} and $$self{$name} < 0 |
|
109
|
22 |
405 |
if exists $$self{$name} |
|
111
|
405 |
0 |
if defined $default |
|
119
|
129 |
84 |
unless exists $$self{'mark'} |
|
121
|
1 |
83 |
unless 'ARRAY' eq ref $$self{'mark'} |
|
124
|
1 |
82 |
unless 0 == @{$$self{'mark'};} % 2 |
|
130
|
7 |
77 |
unless $index =~ /^(?:first|last|high|low|\d+)$/ |
|
132
|
1 |
76 |
unless _is_color($color) |
|
141
|
213 |
101 |
if $color =~ /^#[[:xdigit:]]{3}$/ |
|
142
|
2 |
99 |
if $color =~ /^#[[:xdigit:]]{6}$/ |
|
143
|
1 |
98 |
if $color =~ /^rgb\(\d+,\d+,\d+\)$/ |
|
144
|
1 |
97 |
if $color =~ /^rgb\(\d+%,\d+%,\d+%\)$/ |
|
145
|
79 |
18 |
if $color =~ /^[[:alpha:]]+$/ |