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 |