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 |