| line |
true |
false |
branch |
|
38
|
0 |
3 |
unless $code |
|
45
|
1 |
2 |
if $ENV{'SWAGGER_API_FILE'} |
|
53
|
1 |
2 |
unless $ENV{'SWAGGER_API_FILE'} ||= $file |
|
54
|
1 |
1 |
if not $method or $method =~ /\W/ |
|
60
|
1 |
0 |
if $_ eq 'help' |
|
61
|
0 |
0 |
if $_ eq '-b' |
|
62
|
0 |
0 |
if /^\{/ |
|
63
|
0 |
0 |
if /^(\w+)=(.*)/ |
|
67
|
0 |
0 |
if $base_url |
|
70
|
0 |
0 |
$res->json ? : |
|
72
|
0 |
0 |
unless (eval {
do {
my $res = $client->$method($args);
print $OUT $res->json ? Mojo::Util::dumper($res->json) : $res->body;
1
}
}) |
|
82
|
0 |
0 |
if $ENV{'SWAGGER_API_FILE'} |
|
93
|
0 |
0 |
unless $file |
|
103
|
0 |
0 |
unless $file |
|
111
|
0 |
0 |
unless $file |
|
114
|
0 |
0 |
unless (@errors) |
|
133
|
9 |
1 |
unless $methods[-1] eq $needle |
|
135
|
3 |
1 |
unless %{$paths->{$path};} |
|
138
|
1 |
1 |
unless ($needle) |
|
151
|
1 |
4 |
if $_[0] eq 'edit' |
|
152
|
1 |
3 |
if $_[0] eq 'perldoc' |
|
153
|
1 |
2 |
if $_[0] eq 'pod' |
|
154
|
1 |
1 |
if $_[0] eq 'validate' |
|
155
|
1 |
0 |
if $_[0] eq 'client' |