Branch Coverage

blib/lib/Net/Telnet/Brcd.pm
Criterion Covered Total %
branch 0 28 0.0


line true false branch
43 0 0 unless ($proto->open($switch))
46 0 0 unless ($proto->login($user, $pass))
61 0 0 unless my $proto = $$self{'PROTO'}
63 0 0 if (@cmd)
76 0 0 if ($match eq $_brcd_commit)
80 0 0 if ($match eq $_brcd_continue)
96 0 0 unless my $proto = $$self{'PROTO'}
101 0 0 unless ($proto->print($cmd))
110 0 0 unless my $proto = $$self{'PROTO'}
112 0 0 unless ($proto->print("\cD"))
122 0 0 unless my $proto = $$self{'PROTO'}
125 0 0 $arg_ref ? :
126 0 0 if ($str =~ /{_brcd_prompt_re}/)
135 0 0 if exists $$self{'PROTO'}