| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless ref $msg eq 'HASH'
|
|
29
|
0 |
0 |
if ($self->cfg->{'guest_number'}) { }
|
|
43
|
0 |
0 |
unless my $server = $self->cfg->{'mcp_host'} || $self->cfg->{'mcp_server'}
|
|
44
|
0 |
0 |
unless my $port = $self->cfg->{'mcp_port'} || $self->cfg->{'port'}
|
|
55
|
0 |
0 |
if ($$message{$key} =~ m[/]) { }
|
|
70
|
0 |
0 |
if (my $sock = 'IO::Socket::INET'->new('PeerAddr', $server, 'PeerPort', $port, 'Proto', 'tcp')) { }
|
|
88
|
0 |
0 |
if (my $sock = 'IO::Socket::INET'->new('PeerAddr', $self->cfg->{'report_server'}, 'PeerPort', $self->cfg->{'report_port'}, 'Proto', 'tcp')) { }
|
|
99
|
0 |
0 |
if $@
|
|
126
|
0 |
0 |
if $tests[$i - 1]{'error'}
|
|
128
|
0 |
0 |
if $tests[$i - 1]{'test'}
|
|
140
|
0 |
0 |
if $error
|
|
145
|
0 |
0 |
if $error
|
|
159
|
0 |
0 |
if $error
|
|
162
|
0 |
0 |
unless open STDOUT, '>>', "$output.stdout"
|
|
163
|
0 |
0 |
unless open STDERR, '>>', "$output.stderr"
|