Branch Coverage

blib/lib/WWW/Wookie/Connector/Service.pm
Criterion Covered Total %
branch 15 70 21.4


line true false branch
120 0 0 if ($service_name)
123 0 0 if ($self->getLocale)
152 1 0 if (not defined $service or $service eq $ALL) { }
0 0 elsif ($service) { }
159 0 1 if ($self->getLocale)
187 0 1 if (defined $userid and $userid =~ /$TESTUSER(\d+)/gimsux)
237 0 2 if ('WWW::Wookie::Widget' eq ref $widget_or_guid)
241 1 1 if (defined $guid and $guid eq $EMPTY)
250 0 0 if (my $locale = $self->getLocale)
254 0 0 if ($response->code == 201)
259 0 0 if ($instance)
266 2 0 if (my $e = 'Exception::Class'->caught('WookieConnectorException'))
278 0 0 if (ref $instance ne 'WWW::Wookie::Widget::Instance')
291 0 0 if ($response->code > 200)
325 0 0 if ($response->code == 200 or $response->code == 201) { }
0 0 elsif ($response->code > 201) { }
350 1 0 unless ($response->is_success)
382 0 0 if ($response->code == 201 or $response == 200) { }
389 2 1 if (my $e = 'Exception::Class'->caught('WookieConnectorException'))
394 1 0 if (my $e = 'Exception::Class'->caught('WookieWidgetInstanceException'))
418 0 0 if ($response->code == 200)
440 0 0 if ($response->code == 200) { }
0 0 elsif ($response->code == 201) { }
0 0 elsif ($response->code > 201) { }
469 0 0 if ($response->code == 200) { }
0 0 elsif ($response->code == 201) { }
0 0 elsif ($response->code > 201) { }
580 1 0 unless ($url =~ m[/(?:widgets|services)(?:[?/]|$)]gimsux)
588 0 1 unless (defined $method)
592 1 0 if ((my $content = [POST($url, [%{$payload;}])]->[0]->content) ne $EMPTY)
604 0 1 if ($response->code == 401 or $response->code == 403)
618 0 0 if (my $instance = 'WWW::Wookie::Widget::Instance'->new(do {
639 0 0 ref do {
643 0 0 ref do {
644 0 0 unless ($icon)