| line |
true |
false |
branch |
|
79
|
0 |
15 |
if ($opt->{'list'} or not $script_name)
|
|
82
|
0 |
0 |
unless $path->is_dir
|
|
85
|
0 |
0 |
$opt->{'list'} ? :
|
|
94
|
15 |
0 |
if ($script_name =~ m[/]u) { }
|
|
100
|
0 |
0 |
unless $path->is_dir
|
|
102
|
0 |
0 |
if $script->is_file
|
|
106
|
0 |
15 |
unless $script->is_file
|
|
152
|
3 |
35 |
if ($line =~ /^---\s*(\w+)$/u) { }
|
|
|
3 |
32 |
elsif ($line eq '---') { }
|
|
166
|
0 |
35 |
unless $key
|
|
181
|
1 |
1 |
if @load
|
|
188
|
0 |
12 |
if @code
|
|
226
|
6 |
1 |
if (ref $eval_data) { }
|
|
231
|
0 |
6 |
if $@
|
|
236
|
0 |
1 |
if $@
|
|
255
|
0 |
1 |
if $@
|
|
257
|
0 |
3 |
if $data->{$forbidden}
|
|
259
|
0 |
1 |
if $data->{'code'}
|
|
266
|
2 |
2 |
unless defined $data->{$key}
|
|
267
|
0 |
2 |
if ref $data->{$key} eq "ARRAY"
|
|
270
|
0 |
1 |
if ($data->{'default'} and ref $data->{'default'} ne "HASH")
|
|
295
|
0 |
15 |
unless $self->check_script_arguments($opt, $script_name)
|
|
301
|
0 |
15 |
if ($opt->{'cat'})
|
|
309
|
1 |
14 |
if ($content =~ /^#!/u or $content =~ /^use/mu)
|
|
312
|
0 |
1 |
unless $done
|
|
319
|
0 |
13 |
if ($opt->doc)
|
|
321
|
0 |
0 |
if $commit_msg
|
|
325
|
3 |
10 |
if (my(@missing) = sort(keys %{$$script_data{"missing"}}))
|
|
334
|
0 |
10 |
if ($opt->{'commit'})
|
|
339
|
0 |
10 |
if ($commit_msg and not $opt->{'no_commit'})
|
|
342
|
0 |
0 |
if $r
|
|
346
|
1 |
9 |
if $opt->{'verbose'}
|
|
354
|
8 |
2 |
if ($script_data->{'code'})
|
|
361
|
0 |
8 |
if $@
|
|
364
|
1 |
9 |
if ($script_data->{'sub'})
|
|
368
|
0 |
10 |
unless ($inst->needs_save)
|
|
376
|
0 |
10 |
if ($commit_msg and not $opt->{'no_commit'})
|
|
394
|
2 |
5 |
unless defined $res
|