| line |
true |
false |
branch |
|
51
|
0 |
0 |
if (defined $port) { } |
|
54
|
0 |
0 |
unless defined $self->{'PORT'} |
|
63
|
0 |
0 |
if (defined $host) { } |
|
66
|
0 |
0 |
unless defined $self->{'HOST'} |
|
75
|
0 |
0 |
if (defined $user) |
|
85
|
0 |
0 |
if (defined $secret) |
|
133
|
0 |
0 |
if ($telnet->print($string)) |
|
145
|
0 |
0 |
if $DEBUG > 2 |
|
151
|
0 |
0 |
if (defined $callback) { } |
|
154
|
0 |
0 |
unless defined $self->{'callback'} |
|
168
|
0 |
0 |
if ($result =~ /Event/) |
|
194
|
0 |
0 |
if (defined $configfile) { } |
|
197
|
0 |
0 |
unless defined $self->{'configfile'} |
|
217
|
0 |
0 |
unless open CF, "<$configfile" |
|
224
|
0 |
0 |
if ($line =~ /^;/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\[(\w+)\]$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^port\s*[=>]+\s*(\d+)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^(\w+)\s*[=>]+\s*(.*)/) { } |
|
230
|
0 |
0 |
if $DEBUG > 3 |
|
236
|
0 |
0 |
if $DEBUG |