| blib/lib/CSS/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 26 | 65.3 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 3 | unless my $file = shift() |
| 21 | 0 | 3 | unless -e $file |
| 22 | 0 | 3 | unless -f _ |
| 23 | 0 | 3 | unless -r _ |
| 27 | 0 | 3 | unless open CSS, $file |
| 36 | 1 | 7 | ref $_[0] ? : |
| 45 | 0 | 21 | unless (/^\s*([^{]+?)\s*\{(.*)\}\s*$/) |
| 58 | 0 | 30 | unless (/^\s*(\*?[\w._-]+)\s*:\s*(.*?)\s*$/) |
| 69 | 1 | 4 | if $@ |
| 87 | 0 | 1 | unless my $file = shift() |
| 90 | 0 | 1 | unless open CSS, '>' . $file |
| 117 | 1 | 1 | unless my $css = $_[0]->write_string |
| 123 | 1 | 1 | unless my $css = $_[0]->write_string |