lib/HTML/TagCloud/Centred.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 23 | 65.2 |
line | l | !l | condition |
---|---|---|---|
229 | 0 | 3 | $$self{'words'} and scalar @{$$self{'words'};} |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
109 | 0 | 30 | 0 | defined $word and length $word |
line | l | !l | condition |
---|---|---|---|
240 | 2 | 1 | $$self{'size_max_pc'} ||= 120 |
245 | 2 | 1 | $$self{'scale_code'} ||= sub { ($$self{'size_max_pc'} - $$self{'size_min_pc'}) / scalar(@{$$self{'words'};}); } |
378 | 0 | 30 | $$self{'html_esc_code'} ||= sub { if (require CGI::Util) { return CGI::Util::escape(shift()); }; return shift(); } |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
185 | 0 | 18 | 90 | not defined $$self{'grid'}[$x - 1][$y - 1] or $$self{'grid'}[$x - 1][$y - 1] eq '_' |
189 | 3 | 0 | 15 | $row eq '' or $row =~ /$re/s |
210 | 0 | 6 | 30 | not defined $$self{'grid'}[$x - 1][$y - 1] or $$self{'grid'}[$x - 1][$y - 1] eq '_' |
241 | 2 | 1 | 0 | $$self{'size_min_pc'} ||= $$self{'size_max_pc'} / 2 |