| 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
|
|
134
|
27 |
15 |
if (ref $data->{$item} eq 'ARRAY') { }
|
|
|
1 |
14 |
elsif ($data->{$item}) { }
|
|
168
|
3 |
35 |
if ($line =~ /^---\s*(\w+)$/u) { }
|
|
|
3 |
32 |
elsif ($line eq '---') { }
|
|
182
|
0 |
35 |
unless $key
|
|
197
|
1 |
1 |
if @load
|
|
204
|
0 |
12 |
if @code
|
|
242
|
6 |
1 |
if (ref $eval_data) { }
|
|
247
|
0 |
6 |
if $@
|
|
252
|
0 |
1 |
if $@
|
|
270
|
0 |
1 |
if $@
|
|
272
|
0 |
3 |
if $data->{$forbidden}
|
|
274
|
0 |
1 |
if $data->{'code'}
|
|
281
|
2 |
2 |
unless defined $data->{$key}
|
|
282
|
0 |
2 |
if ref $data->{$key} eq "ARRAY"
|
|
285
|
0 |
1 |
if ($data->{'default'} and ref $data->{'default'} ne "HASH")
|
|
310
|
0 |
15 |
unless $self->check_script_arguments($opt, $script_name)
|
|
316
|
0 |
15 |
if ($opt->{'cat'})
|
|
324
|
1 |
14 |
if ($content =~ /^#!/u or $content =~ /^use/mu)
|
|
327
|
0 |
1 |
unless $done
|
|
334
|
0 |
13 |
if ($opt->doc)
|
|
336
|
0 |
0 |
if $commit_msg
|
|
340
|
3 |
10 |
if (my(@missing) = sort(keys %{$$script_data{"missing"}}))
|
|
349
|
0 |
10 |
if ($opt->{'commit'})
|
|
354
|
0 |
10 |
if ($commit_msg and not $opt->{'no_commit'})
|
|
357
|
0 |
0 |
if $r
|
|
361
|
1 |
9 |
if $opt->{'verbose'}
|
|
369
|
8 |
2 |
if ($script_data->{'code'})
|
|
376
|
0 |
8 |
if $@
|
|
379
|
1 |
9 |
if ($script_data->{'sub'})
|
|
383
|
0 |
10 |
unless ($inst->needs_save)
|
|
391
|
0 |
10 |
if ($commit_msg and not $opt->{'no_commit'})
|
|
409
|
2 |
5 |
unless defined $res
|