| 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 |