Branch Coverage

blib/lib/WWW/Wookie/Connector/Service.pm
Criterion Covered Total %
branch 12 70 17.1


line true false branch
118 0 0 if ($service_name)
121 0 0 if ($self->getLocale)
150 1 0 if (not defined $service or $service eq $ALL) { }
0 0 elsif ($service) { }
157 0 1 if ($self->getLocale)
185 0 1 if (defined $userid and $userid =~ /$TESTUSER(\d+)/gimsux)
235 0 2 if ("WWW::Wookie::Widget" eq ref $widget_or_guid)
239 1 1 if (defined $guid and $guid eq $EMPTY)
248 0 0 if (my $locale = $self->getLocale)
252 0 0 if ($response->code == 201)
257 0 0 if ($instance)
264 2 0 if (my $e = "Exception::Class"->caught("WookieConnectorException"))
276 0 0 if (ref $instance ne "WWW::Wookie::Widget::Instance")
289 0 0 if ($response->code > 200)
323 0 0 if ($response->code == 200 or $response->code == 201) { }
0 0 elsif ($response->code > 201) { }
348 0 0 unless ($response->is_success)
380 0 0 if ($response->code == 201 or $response == 200) { }
387 2 1 if (my $e = "Exception::Class"->caught("WookieConnectorException"))
392 1 0 if (my $e = "Exception::Class"->caught("WookieWidgetInstanceException"))
416 0 0 if ($response->code == 200)
438 0 0 if ($response->code == 200) { }
0 0 elsif ($response->code == 201) { }
0 0 elsif ($response->code > 201) { }
467 0 0 if ($response->code == 200) { }
0 0 elsif ($response->code == 201) { }
0 0 elsif ($response->code > 201) { }
578 1 0 unless ($url =~ m[/(?:widgets|services)(?:[?/]|$)]gimsux)
586 0 1 unless (defined $method)
590 0 0 if ((my $content = [$self->_ua->POST($url), [%{$payload;}]]->[0]->content) ne $EMPTY)
606 0 0 if ($response->code == 401 or $response->code == 403)
620 0 0 if (my $instance = "WWW::Wookie::Widget::Instance"->new(do {
641 0 0 ref do {
645 0 0 ref do {
646 0 0 unless ($icon)