| script/mojopaste | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 1 | 5 | unless -d $dir |
| 24 | 1 | 11 | if not $id or $id =~ /\W/ |
| 26 | 4 | 8 | unless (eval { do { die "Hacking attempt! paste_id=($id)" if not $id or $id =~ /\W/; return 'Mojo::Promise'->new->resolve(decode('UTF-8', path($dir, $id)->slurp)) } }) |
| 39 | 0 | 3 | unless (eval { do { path($dir, $id)->spurt(encode('UTF-8', $text)); return 'Mojo::Promise'->new->resolve($id) } }) |
| 179 | 0 | 3 | unless $csv->parse(shift @_) |
| 180 | 0 | 3 | unless my(@row) = $csv->fields |
| 184 | 0 | 1 | unless @{$chart->{'data'};} |