Branch Coverage

blib/lib/Astro/Bibcode.pm

Criterion	Covered	Total	%
branch	64	104	61.5

line	true	false	branch
126	0	1	if (@_)
128	0	0	if (scalar @_ == 1) { }
133	0	0	unless defined $retval
139	0	0	if exists $args{$k}
171	5	30	if (@_) { }
177	0	5	unless (keys %parts)
199	0	30	unless (defined $$self{'BIBCODE'})
345	0	15	unless keys %JOURNALS
348	10	5	if (exists $JOURNALS{$jcode}) { }
	5	0	elsif (defined $confcode) { }
379	3	12	if defined $confcode and not $flag
383	6	6	unless (length $flag)
385	3	3	if ($journal =~ /thesi/i) { }
394	0	6	if (exists $CLASS{$flag}) { }
	6	0	elsif (exists $CLASS_ADS{$flag}) { }
420	1	29	unless keys %CONF_ADS
423	10	20	if (exists $CONF_ADS{substr $bibcode, 0, 13}) { }
	0	20	elsif (exists $CONF_ADS{substr $bibcode, 4, 9}) { }
	4	16	elsif ($bibcode =~ /proc/) { }
436	4	0	if (exists $CONF_ADS{substr $c, 0, 13})
461	10	15	if length $_ > $max
496	0	10	unless defined $bibcode
502	0	10	unless length $bibcode == 19
534	10	0	if ($a ne '%')
536	0	70	unless defined $v
541	5	5	if (not wantarray) { }
581	10	0	$year =~ /^\d{4}$/ ? :
603	10	0	$jcode =~ /^[A-Za-z&]+$/ ? :
643	2	0	wantarray ? :
	2	8	unless $vol
652	4	4	if ($vol =~ /^\d+$/) { }
	0	4	elsif ($vol =~ /([$classes])(\d\d)$/) { }
	0	4	elsif ($second =~ /^([$classes])$/) { }
	4	0	elsif ($vol =~ /^($adsmatch)$/) { }
654	4	0	wantarray ? :
664	0	0	wantarray ? :
668	0	0	wantarray ? :
670	4	0	wantarray ? :
701	10	0	if $m eq '.'
704	0	0	$m =~ /^[A-Za-z]$/ ? :
719	10	0	$page =~ /^\d+$/ ? :
733	10	0	$i =~ /^[A-Za-z:%]$/ ? :
755	0	1238	if $line =~ /^\#/
758	1	1237	if $line =~ /^=cut/
771	918	319	if (length $code)
777	917	1	if $old and $jbuff
783	319	918	if $jbuff
789	1	0	if $current and $jbuff
794	0	4226	if $line =~ /^\#/
795	1	4225	if length $line < 14
824	10	20	if ($j eq 'L') { }
	20	0	elsif ($j eq 'R') { }