| line |
true |
false |
branch |
|
15
|
1 |
0 |
unless ref $$meta{'author'} eq 'ARRAY' |
|
25
|
1 |
1 |
if (@args) |
|
26
|
0 |
1 |
if (not grep(/^[-+]/, @args)) { } |
|
31
|
0 |
1 |
if ($arg =~ /^-(.*)/) { } |
|
37
|
1 |
0 |
if ($arg =~ /^(see)/) { } |
|
51
|
0 |
5 |
unless my $output = $self->$method |
|
61
|
1 |
0 |
$uc ? : |
|
75
|
0 |
1 |
unless my $badge = $$self{'meta'}{'badge'} |
|
76
|
1 |
0 |
unless ref $badge |
|
77
|
0 |
1 |
unless my $repo = $$meta{'devel'}{'git'} |
|
78
|
0 |
1 |
unless $repo =~ s[.*[:/]([^/]+)/([^/]+?)(?:\.git)?$][$1/$2] |
|
80
|
0 |
1 |
unless eval 'require Swim::Plugin::badge; 1' |
|
92
|
1 |
0 |
$uc ? : |
|
94
|
1 |
0 |
if (my $see = $$meta{'see'}) |
|
96
|
0 |
1 |
unless ref $see |
|
109
|
1 |
0 |
$uc ? : |
|
111
|
0 |
1 |
if (@$authors > 1) |
|
112
|
0 |
0 |
$uc ? : |
|
126
|
1 |
0 |
$uc ? : |
|
132
|
1 |
0 |
if ($$author{'copyright'}) |