Branch Coverage

blib/lib/Rcs.pm

Criterion	Covered	Total	%
branch	2	224	0.8

line	true	false	branch
60	0	0	if (@_)
72	0	1	if scalar grep(/^nonFatal$/, @_)
73	0	1	if scalar grep(/^Verbose$/, @_)
83	0	0	unless (@{$$self{'ACCESS'};})
101	0	0	if (ref $self) { }
102	0	0	if (@_)
103	0	0	ref $$self{'_ARCEXT'} ? :
108	0	0	if (@_)
121	0	0	if (@_)
133	0	0	unless (defined $$self{'AUTHOR'})
153	0	0	if (ref $self) { }
154	0	0	if (@_)
155	0	0	ref $$self{'_BINDIR'} ? :
160	0	0	if (@_)
184	0	0	if $self->quiet
187	0	0	unless -e $ciprog
188	0	0	unless -x $ciprog
189	0	0	unless system($ciprog, @param) == 0
216	0	0	if $self->quiet
219	0	0	unless -e $coprog
220	0	0	unless -x $coprog
221	0	0	unless system($coprog, @param) == 0
235	0	0	unless (defined $$self{'COMMENTS'})
260	0	0	unless (@_ == 1 or @_ == 6)
265	0	0	if (@_ == 6) { }
268	0	0	unless ($year =~ /^\d{4}$/)
280	0	0	unless ($target_time =~ /^\d+$/)
285	0	0	unless (defined $$self{'DATE'})
302	0	0	if $date <= $target_time
306	0	0	wantarray ? :
321	0	0	unless (defined $$self{'DATE'})
329	0	0	wantarray ? :
338	0	0	if (@_)
351	0	0	if (@_)
353	0	0	if ($filename =~ /(.*)$Dir_Sep(.*)/) { }
377	0	0	unless (defined $$self{'HEAD'})
390	0	0	unless (defined $$self{'LOCK'})
395	0	0	wantarray ? :
406	0	0	if (ref $self) { }
409	0	0	if (@_) { }
411	0	0	unless $mode == 0 or $mode == 1
414	0	0	ref $$self{'_QUIET'} ? :
419	0	0	ref $$self{'_QUIET'} ? :
427	0	0	if (@_) { }
429	0	0	unless $mode == 0 or $mode == 1
461	0	0	if $self->quiet
464	0	0	unless -e $rcsprog
465	0	0	unless -x $rcsprog
466	0	0	unless system($rcsprog, @param) == 0
493	0	0	unless -e $rcscleanprog
494	0	0	unless -x $rcscleanprog
495	0	0	unless system($rcscleanprog, @param) == 0
521	0	0	if $self->quiet
525	0	0	unless -e $rcsdiff_prog
527	0	0	unless -x $rcsdiff_prog
529	0	0	unless open DIFF, "$rcsdiff_prog $param_str $arcfile $workfile |"
538	0	0	if $status == 2
539	0	0	wantarray ? :
550	0	0	if (ref $self) { }
551	0	0	if (@_)
552	0	0	ref $$self{'_RCSDIR'} ? :
557	0	0	if (@_)
573	0	0	unless (defined $$self{'DATE'})
582	0	0	wantarray ? :
591	0	0	unless (@{$$self{'REVISIONS'};})
620	0	0	unless -e $rlogprog
621	0	0	unless -x $rlogprog
622	0	0	unless open RLOG, "$rlogprog $param_str $archive_file |"
627	0	0	if $?
648	0	0	unless -e $rcsmergeprog
649	0	0	unless -x $rcsmergeprog
650	0	0	unless open RCSMERGE, "$rcsmergeprog $param_str $archive_file |"
655	0	0	if $?
666	0	0	unless (defined $$self{'STATE'})
687	0	0	unless (defined $$self{'SYMBOLS'})
697	0	0	if $rev eq $revision
701	0	0	wantarray ? :
711	0	0	unless (defined $$self{'SYMBOLS'})
726	0	0	unless my $sym = shift()
728	0	0	unless (defined $$self{'SYMBOLS'})
733	0	0	$symbols{$sym} ? :
737	0	0	wantarray ? :
748	0	0	if (ref $self) { }
749	0	0	if (@_)
750	0	0	ref $$self{'_WORKDIR'} ? :
755	0	0	if (@_)
776	0	0	unless open RCS_FILE, $rcs_file
781	0	0	if (/^desc$/)
786	0	0	if /^\@$/
797	0	0	if (/^[\d\.]+$/)
800	0	0	if (/^log$/)
805	0	0	if /^\@$/
816	0	0	if (/^text$/)
818	0	0	unless (/^\@\@$/)
821	0	0	if /\@$/
850	0	0	unless open RCS_FILE, $rcs_file
853	0	0	if /^\s*$/
854	0	0	if /^desc$/
857	0	0	if (/^head\s/)
863	0	0	if (/^access$/)
868	0	0	if /;$/
874	0	0	if (/^symbols$/)
881	0	0	if /;$/
887	0	0	if (/^locks/)
890	0	0	if (/;$/)
898	0	0	unless $_
899	0	0	if /^;/
903	0	0	if /;$/
909	0	0	if (/^\d+\.\d+/)
948	0	0	unless $nonFatal
949	0	0	if $nonFatal and not $Quiet and carp($error_msg)
950	0	0	if $nonFatal and $Quiet