Branch Coverage

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


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 1 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 1 0 if ((my $content = [POST($url, [%{$payload;}])]->[0]->content) ne $EMPTY)
602 0 1 if ($response->code == 401 or $response->code == 403)
616 0 0 if (my $instance = 'WWW::Wookie::Widget::Instance'->new(do {
637 0 0 ref do {
641 0 0 ref do {
642 0 0 unless ($icon)