Branch Coverage

blib/lib/Cvs/Simple.pm
Criterion Covered Total %
branch 24 70 34.2


line true false branch
22 4 0 exists $PERMITTED{$_[0]} ? :
30 0 0 if ($cmd =~ /\b($PERM_REQ)\b/) { }
70 0 8 if (exists $args{'cvs_bin'}) { }
77 0 8 if (exists $args{'external'}) { }
87 0 8 if (exists $args{'callback'})
100 0 4 unless (&Cvs::Simple::Hook::permitted($hook))
104 3 1 if (defined $func)
105 0 3 unless (UNIVERSAL::isa($func, 'CODE'))
111 4 0 if (exists $callback_of{ident $self}{$hook}) { }
123 0 0 unless (&Cvs::Simple::Hook::permitted($hook))
133 8 6 if (@_ == 1)
144 0 0 unless defined $cmd and $cmd
151 0 0 unless defined $fh
154 0 0 if (defined $hook) { }
155 0 0 if ($self->callback($hook)) { }
163 0 0 if ($self->callback('All')) { }
182 2 0 unless @args and scalar @args == 3
201 2 0 unless (@args and scalar @args == 3)
214 0 4 if (@_ == 1)
226 0 4 $self->external ? :
239 2 0 unless @args
243 0 0 if (@args)
256 2 0 unless @args
260 0 0 if (@args)
275 4 0 unless (@args and scalar @args == 2 || scalar @args == 1)
287 0 0 @args == 2 ? :
311 0 4 if (scalar @args == 0) { }
2 2 elsif (@args == 2) { }
0 2 elsif (@args == 1) { }
315 2 0 unless UNIVERSAL::isa($args[1], 'ARRAY')
324 0 0 if (UNIVERSAL::isa($args[0], 'ARRAY')) { }
355 2 0 unless @args and scalar @args == 1 || scalar @args == 3
360 0 0 @args == 3 ? :
374 0 0 if (@args)
394 0 0 @args ? :