line | % | coverage | branch |
22 | 100 | T | F | unless defined $type |
25 | 100 | T | F | if $@ |
26 | 100 | T | F | unless defined $args |
27 | 100 | T | F | unless 'HASH' eq ref $args |
46 | 100 | T | F | unless exists $$self{$arg} |
47 | 100 | T | F | unless _is_color($$self{$arg}) |
65 | 100 | T | F | unless $$self{'-allns'} |
66 | 100 | T | F | unless ($$self{'-sized'}) |
87 | 50 | T | F | unless exists $valid_parms{$parm} or $class->valid_param($parm) |
96 | 100 | T | F | if exists $$self{$name} and $$self{$name} <= 0 |
98 | 100 | T | F | if exists $$self{$name} |
100 | 100 | T | F | if defined $default |
107 | 100 | T | F | if exists $$self{$name} and $$self{$name} < 0 |
109 | 100 | T | F | if exists $$self{$name} |
111 | 50 | T | F | if defined $default |
119 | 100 | T | F | unless exists $$self{'mark'} |
121 | 100 | T | F | unless 'ARRAY' eq ref $$self{'mark'} |
124 | 100 | T | F | unless 0 == @{$$self{'mark'};} % 2 |
130 | 100 | T | F | unless $index =~ /^(?:first|last|high|low|\d+)$/ |
132 | 100 | T | F | unless _is_color($color) |
141 | 100 | T | F | if $color =~ /^#[[:xdigit:]]{3}$/ |
142 | 100 | T | F | if $color =~ /^#[[:xdigit:]]{6}$/ |
143 | 100 | T | F | if $color =~ /^rgb\(\d+,\d+,\d+\)$/ |
144 | 100 | T | F | if $color =~ /^rgb\(\d+%,\d+%,\d+%\)$/ |
145 | 100 | T | F | if $color =~ /^[[:alpha:]]+$/ |