| blib/lib/Preproc/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 24 | 34 | unless /[^\040-\176]/ |
| 54 | 0 | 16 | unless open my $fh, '>', $file |
| 61 | 0 | 16 | unless open my $fh, '<', $file |
| 74 | 0 | 16 | unless (my $outfile = $infile) =~ s/\.pp$//i |
| 83 | 16 | 74 | if (/\G (?| ^ \@\@ (.*) \n? | \@\@ (.*) ) /cgimx) { } |
| 10 | 64 | elsif (/\G \[\@> \s* (.*?) (?: -\@\] \s* | \@\] ) /cgisx) { } | |
| 22 | 42 | elsif (/\G \[\@ \s* (.*?) (?: -\@\] \s* | \@\] ) /cgisx) { } | |
| 42 | 0 | elsif (/ ( [^\[\@]+ ) /cgix) { } | |
| 109 | 0 | 16 | unless system($^X, $plfile) == 0 |