| 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}) |