| line |
true |
false |
branch |
|
31
|
1 |
10 |
unless get_options(\%option, "remote|r", "all|a", "exclude|e=s\@", "exclude_file|exclude-file|f=s", "max_age|max-age|m=i", "min_age|min-age|n=i", "tag|t!", "tag_prefix|tag-prefix|p=s", "tag_suffix|tag-suffix|s=s", "test!")
|
|
47
|
2 |
7 |
$option{'all'} ? :
|
|
|
1 |
9 |
$option{'remote'} ? :
|
|
52
|
0 |
10 |
unless ($self->can($action))
|
|
58
|
1 |
9 |
if ($option{'exclude_file'})
|
|
61
|
1 |
2 |
unless $exclude
|
|
62
|
1 |
1 |
if $exclude =~ /^\s*(?:[#].*)$/msx
|
|
70
|
12 |
19 |
if $branch =~ m[^ (?:[^/]+/)? master $]msx
|
|
71
|
1 |
18 |
if grep {$branch =~ /$_/;} @excludes
|
|
77
|
2 |
16 |
if too_young_to_die($details)
|
|
79
|
11 |
5 |
if $max < $details->{'time'}
|
|
95
|
15 |
1 |
unless ($too_old)
|
|
99
|
10 |
6 |
if ($in_master or $too_old)
|
|
100
|
9 |
1 |
$in_master ? :
|
|
102
|
2 |
8 |
$branch =~ m[/] ? :
|
|
104
|
5 |
5 |
if ($option{'tag'})
|
|
106
|
3 |
2 |
unless $option{'test'}
|
|
109
|
8 |
2 |
unless ($option{'test'})
|
|
110
|
2 |
6 |
if ($remote) { }
|
|
114
|
0 |
2 |
unless (eval {
|
|
140
|
1 |
15 |
unless $option{'max_age'}
|
|
148
|
14 |
4 |
unless $option{'min_age'}
|