| line |
true |
false |
branch |
|
65
|
0 |
31 |
ref $_[0] ? : |
|
66
|
0 |
31 |
ref $_[0] ? : |
|
89
|
1 |
0 |
if ($@) { } |
|
101
|
0 |
0 |
if ($Log::Log4perl::VERSION < 1.11) |
|
109
|
0 |
30 |
unless defined $word and length $word |
|
110
|
0 |
30 |
$$self{'html_esc_code'} ? : |
|
174
|
0 |
3 |
if $_[0] |
|
185
|
18 |
90 |
if not defined $$self{'grid'}[$x - 1][$y - 1] or $$self{'grid'}[$x - 1][$y - 1] eq '_' |
|
189
|
15 |
3 |
unless $row eq '' or $row =~ /$re/s |
|
200
|
0 |
1 |
if $_[0] |
|
201
|
0 |
1 |
unless $$self{'inputs'} |
|
210
|
6 |
30 |
if not defined $$self{'grid'}[$x - 1][$y - 1] or $$self{'grid'}[$x - 1][$y - 1] eq '_' |
|
229
|
0 |
3 |
unless $$self{'words'} and scalar @{$$self{'words'};} |
|
258
|
0 |
90 |
unless (ref $w) |
|
260
|
0 |
0 |
if $$self{'html_esc_code'} |
|
265
|
0 |
3 |
if (exists $$self{'limit'}) |
|
292
|
0 |
3 |
if ($Color::Spectrum::VERSION) |
|
304
|
0 |
30 |
@clrs ? : |
|
318
|
15 |
15 |
if $cside % 2 |
|
321
|
6 |
24 |
if (++$cside == 4) |
|
330
|
0 |
30 |
ref $_[0] ? : |
|
333
|
6 |
24 |
if ($$args{'from_x'} > $$args{'to_x'}) { } |
|
341
|
6 |
24 |
if ($$args{'from_y'} > $$args{'to_y'}) { } |
|
354
|
0 |
120 |
unless $$self{'grid'}[$x - 1][$y - 1] |
|
355
|
27 |
93 |
if $$self{'grid'}[$x - 1][$y - 1] ne '_' |
|
356
|
3 |
90 |
unless @{$$self{'inputs'};} |
|
359
|
0 |
90 |
if $$args{'clr'} |
|
363
|
0 |
90 |
if $$args{'clrs'} |
|
376
|
90 |
0 |
if (require CGI::Util) |
|
379
|
0 |
30 |
if not defined $$self{'name'} |
|
387
|
6 |
84 |
if (defined $$self{'url'}) |
|
391
|
0 |
90 |
defined $$self{'clr'} ? : |