Branch Coverage

script/mojopaste

Criterion	Covered	Total	%
branch	10	14	71.4

line	true	false	branch
14	1	6	unless -d $dir
24	1	11	if not $id or $id =~ /\W/u
26	4	8	unless (eval { do { die "Hacking attempt! paste_id=($id)" if not $id or $id =~ /\W/u; 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) } })
184	0	3	unless $csv->parse(shift @_)
185	0	3	unless my(@row) = $csv->fields
189	0	1	unless @{$chart->{'data'};}