Branch Coverage

blib/lib/SeeAlso/Source/BeaconAggregator/Publisher.pm

Criterion	Covered	Total	%
branch	47	352	13.3

line	true	false	branch
146	0	1	unless my($self) = shift @_
148	0	1	if $error
152	0	1	defined $self->{'identifierClass'} ? :
157	0	1	if $ENV{'DBI_PROFILE'}
158	0	1	unless $sth->execute
163	0	7	if (defined $c)
167	0	0	$c->can('pretty') ? :
169	0	0	unless defined $expanded and $expanded ne ''
171	1	6	$row->[1] > 1 ? :
178	0	2	unless my($self) = shift @_
181	2	0	if @_ and not ref $_[0]
182	2	0	if @_ and not ref $_[0]
184	2	0	if @_ and not ref $_[0]
185	2	0	@_ && ref $_[0] ? :
190	0	2	if $ENV{'DBI_PROFILE'}
191	0	2	unless $metasth->execute
196	0	18	unless $val
197	4	14	if ($key =~ s/^bc//) { }
	12	2	elsif (exists $osd{$key}) { }
200	10	2	if (ref $osd{$key}) { }
209	0	2	if ($osd{'Examples'} and ref $osd{'Examples'}) { }
	0	2	elsif (my $expl = $osd{'Examples'}) { }
225	0	2	if ($beaconmeta{'TARGET'}) { }
	2	0	elsif ($cgibase) { }
237	2	0	if $timestamp > 0
247	1	0	if $revisit and $revisit =~ /^[+-]?\d+$/ and $revisit > 0
250	2	0	if $cgibase
256	26	6	unless my $val = $beaconmeta{$_}
257	0	6	if $val =~ /^-/
267	0	2	if $ENV{'DBI_PROFILE'}
268	0	2	unless $laststh->execute
269	2	0	if (my $aryref = $laststh->fetchrow_arrayref)
271	2	0	if $sq
274	2	0	if (my $cu = $admref->{'gcountu'})
276	0	2	$type ? :
363	0	0	unless my $cgi = $server->{'cgi'}
372	0	0	unless ($hash)
386	0	0	if ($self->{'cluster'})
388	0	0	if $ENV{'DBI_PROFILE'}
394	0	0	$extra->{'force_single'} ? :
401	0	0	if ($clusterid) { }
411	0	0	if $ENV{'DBI_PROFILE'}
412	0	0	unless $sth->execute($clusterid, $clusterid)
423	0	0	if $ENV{'DBI_PROFILE'}
424	0	0	unless $sth->execute($hash)
431	0	0	if $onerow->[11] and exists $self->{'aliasfilter'}{$onerow->[11]}
437	0	0	if ($h eq $hash) { }
	0	0	elsif ($clusterid and ref $c) { }
442	0	0	$c->can('pretty') ? :
444	0	0	$clusterid ? :
	0	0	unless defined $p
446	0	0	if ($onerow->[1]) { }
	0	0	elsif ($onerow->[5]) { }
448	0	0	if $onerow->[7]
452	0	0	if $onerow->[7]
454	0	0	unless $uri
458	0	0	if ($label = $onerow->[8]) { }
	0	0	elsif ($label = $onerow->[9] || $onerow->[10] || $onerow->[11] || '???') { }
461	0	0	if $onerow->[1]
463	0	0	unless $didalready{join "\177", $label, $uri}++
467	0	0	if (not $hits) { }
	0	0	elsif ($hits == 1) { }
485	0	0	unless ($canon =~ m[://])
488	0	0	if $prefix
490	0	0	if (my $multired = $extra->{'redirect_300'}) { }
503	0	0	if (my $r = $sources->r)
517	0	0	if ($_->[1]) { }
518	0	0	$_->[4] ? :
520	0	0	$_->[4] ? :
523	0	0	$_->[4] ? :
528	0	0	if ($server->{'formats'}{'sources'})
579	0	0	unless ($hash)
594	0	0	if ($self->{'cluster'})
596	0	0	if $ENV{'DBI_PROFILE'}
597	0	0	unless $clusterh->execute($hash, $hash)
601	0	0	if ($c) { }
604	0	0	$c->can('pretty') ? :
612	0	0	if ($clusterid)
613	0	0	if ($clusterid eq $hash) { }
	0	0	elsif ($c) { }
618	0	0	$c->can('pretty') ? :
625	0	0	if $ENV{'DBI_PROFILE'}
626	0	0	unless $varianth->execute($clusterid)
629	0	0	if ($c) { }
632	0	0	$c->can('pretty') ? :
633	0	0	unless exists $idlist{$p}
636	0	0	unless exists $idlist{$v}
643	0	0	if ($clusterid) { }
648	0	0	if $ENV{'DBI_PROFILE'}
649	0	0	unless $countsth->execute($clusterid, $clusterid)
655	0	0	if $ENV{'DBI_PROFILE'}
656	0	0	unless $countsth->execute($hash)
672	0	0	$extra->{'css'} ? :
688	0	0	if $prefix
690	0	0	if %idlist
694	0	0	if ($clusterid) { }
702	0	0	if $ENV{'DBI_PROFILE'}
703	0	0	unless $srcsth->execute($clusterid, $clusterid)
712	0	0	if $ENV{'DBI_PROFILE'}
713	0	0	unless $srcsth->execute($hash)
721	0	0	if ($lastseq and $onerow->{'seqno'} == $lastseq) { }
725	0	0	unless defined $pval
726	0	0	if $key eq 'link'
735	0	0	unless ($key =~ /altid|feed|target|uri|link/i)
736	0	0	if defined $pval
737	0	0	if ($key =~ /time|revisit/i)
738	0	0	unless $val
741	0	0	if ($key =~ /^bc(\w+)$/) { }
	0	0	elsif ($key =~ /^(hash|altid|hits|info|link)$/) { }
742	0	0	if $pval
746	0	0	if $pval
760	0	0	scalar @vary > 1 ? :
766	0	0	if ($multi eq 'single') { }
775	0	0	$h eq $hash ? :
777	0	0	if ($h eq $hash) { }
	0	0	elsif ($clusterid and ref $c) { }
782	0	0	$c->can('pretty') ? :
784	0	0	$clusterid ? :
	0	0	unless defined $p
787	0	0	if ($uri = $vary->{'link'}) { }
	0	0	elsif ($repos->{'ALTTARGET'} and $vary->{'altid'}) { }
	0	0	elsif ($repos->{'TARGET'}) { }
	0	0	elsif ($repos->{'ALTTARGET'}) { }
796	0	0	$didalreadysee{$uri}++ ? :
799	0	0	if ($repos->{'IMGTARGET'})
804	0	0	if ($hits == 1) { }
	0	0	elsif ($hits == 0) { }
805	0	0	if $repos->{'ONEMESSAGE'}
807	0	0	if $repos->{'SOMEMESSAGE'}
808	0	0	unless ($rlabel)
815	0	0	if $guri
820	0	0	if $vary->{'info'}
821	0	0	if $hits and not $rlabel =~ /%s/
826	0	0	if $guri
827	0	0	if $hits
828	0	0	if $vary->{'info'}
829	0	0	if $variantid
859	0	0	$h eq $hash ? :
861	0	0	if ($h eq $hash) { }
	0	0	elsif ($clusterid and ref $c) { }
866	0	0	$c->can('pretty') ? :
868	0	0	$clusterid ? :
	0	0	unless defined $p
871	0	0	if ($uri = $vary->{'link'}) { }
	0	0	elsif ($repos->{'ALTTARGET'} and $vary->{'altid'}) { }
	0	0	elsif ($repos->{'TARGET'}) { }
	0	0	elsif ($repos->{'ALTTARGET'}) { }
880	0	0	$didalreadysee{$uri}++ ? :
883	0	0	if ($repos->{'IMGTARGET'})
886	0	0	if $vary->{'hits'} and $vary->{'hits'} != 1
889	0	0	if $guri
891	0	0	if $hits
896	0	0	if $guri
897	0	0	if $vary->{'hits'}
898	0	0	if $vary->{'info'}
899	0	0	if $variantid
909	0	0	if /(MESSAGE|TARGET)$/
910	0	0	unless $repos->{$_}
914	0	0	if /^(FORMAT|PREFIX|REVISIT|VERSION)$/
917	0	0	if $meta->{'_mtime'}
922	0	0	unless /^(FORMAT|PREFIX|REVISIT|VERSION)$/
923	0	0	unless $repos->{$_}
926	0	0	if $meta->{'_ftime'}
927	0	0	if $meta->{'_fstat'}
928	0	0	if $meta->{'_utime'}
929	0	0	if $meta->{'_ustat'}
930	0	0	if $meta->{'_counti'}
931	0	0	if $meta->{'_countu'}
932	0	0	if $meta->{'_sort'}
933	0	0	if $meta->{'_admin'}
980	0	1	if $ENV{'DBI_PROFILE'}
981	0	1	unless $metasth->execute
985	0	9	unless $val
986	2	7	if ($key =~ s/^bc//) { }
	6	1	elsif (exists $osd{$key}) { }
989	5	1	if (ref $osd{$key}) { }