Branch Coverage

blib/lib/WWW/GoodData.pm
Criterion Covered Total %
branch 0 94 0.0


line true false branch
78 0 0 ref $_ ? :
81 0 0 unless ($links{$root})
84 0 0 if (exists $$response{'about'}) { }
0 0 elsif (exists $$response{'query'} and exists $$response{'query'}{'entries'}) { }
0 0 elsif (scalar keys %$response == 1) { }
95 0 0 if ref $$response{$structure} eq 'ARRAY'
104 0 0 if (exists $$element{$type}{'links'}{'self'} and exists $$element{$type}{'meta'})
140 0 0 $$link{$_} ne $$this_link{$_} ? :
0 0 unless not exists $$link{$_} && exists $$this_link{$_}
147 0 0 unless @path
149 0 0 unless @matches
150 0 0 unless scalar @matches == 1
160 0 0 ref $_[0] && ref $_[0] ne 'HASH' ? :
168 0 0 $$_{'link'}->rel($root)->authority ? :
192 0 0 if @links
248 0 0 unless defined $$self{'login'}
274 0 0 unless my $old_passwd = shift()
275 0 0 unless my $new_passwd = shift()
277 0 0 unless defined $$self{'login'}
302 0 0 unless $$self{'login'}
320 0 0 unless my $uri = $self->get_uri('URI'->new($project), {'category', 'self', 'type', 'project'})
342 0 0 unless my $title = shift()
352 0 0 $driver ? :
0 0 $token ? :
0 0 $template ? :
390 0 0 $sso_provider ? :
431 0 0 unless $$self{'login'}
475 0 0 if ref $result eq 'HASH'
480 0 0 if $_[0] and exists $_[0]{'raw'}
481 0 0 unless my $exported = $self->poll(sub { $$self{'agent'}->get($result); } , sub { $_[0]{'raw'} ne 'null' if $_[0] and exists $_[0]{'raw'}; } )
484 0 0 if exists $$exported{'uri'}
494 0 0 if exists $compat{$wanted}
495 0 0 if $$exported{'type'} =~ /^$wanted/
514 0 0 unless $$model{'type'} eq 'image/png'
553 0 0 unless $$upload_info{'dataSetSLIManifest'}
588 0 0 unless my $result = $self->poll(sub { $$self{'agent'}->get($task); } , sub { not +(shift())->{'taskStatus'} =~ /^(RUNNING|PREPARED)$/; } )
590 0 0 if $$result{'taskStatus'} eq 'OK'
591 0 0 if $$result{'taskStatus'} eq 'WARNING'
615 0 0 if &$cond($ret)
633 0 0 unless my $type = shift()
634 0 0 unless my $title = shift()
636 0 0 unless my $expression = shift()
638 0 0 if (defined $uri) { }
669 0 0 unless my $title = shift()
675 0 0 if (defined $uri) { }
716 0 0 if $$self{'login'}
722 0 0 unless open my $fh, '<', $file