blib/lib/WebService/Async/Segment.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 18 | 20 | 90.0 |
line | true | false | branch |
---|---|---|---|
77 | 4 | 0 | if exists $args{$k} |
101 | 12 | 2 | if &blessed($self->{'base_uri'}) |
115 | 12 | 2 | if $self->{'ua'} |
174 | 1 | 17 | unless $method |
177 | 3 | 3 | unless $args{'user_id'} or $args{'anonymous_id'} |
196 | 12 | 1 | if ($result->code == 200) |
257 | 87 | 47 | unless ref $args eq "HASH" |
258 | 15 | 32 | unless ref $snake_fields eq "HASH" |
262 | 0 | 120 | unless defined $args->{$key} |
264 | 40 | 80 | if ($snake_fields->{$key} and not ref $snake_fields->{$key}) |