| line |
true |
false |
branch |
|
31
|
0 |
1 |
if $host
|
|
33
|
0 |
1 |
if (my($ip) = $cmd_line =~ /tapper_ip\s*=\s*(\S+)/)
|
|
38
|
0 |
0 |
if $host
|
|
43
|
0 |
1 |
if ($ENV{'TAPPER_MCP_SERVER'})
|
|
58
|
0 |
2 |
if ($hostname =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { }
|
|
|
0 |
2 |
elsif ($hostname =~ /^([^\.]+)\./) { }
|
|
59
|
0 |
0 |
unless ($hostname) = gethostbyaddr(inet_aton($hostname), 2)
|
|
78
|
0 |
2 |
if $ENV{'TAPPER_CONFIG'}
|
|
88
|
0 |
2 |
if $help
|
|
90
|
1 |
1 |
if ($state eq 'install' or not -e $config_file_name)
|
|
91
|
1 |
0 |
unless $server
|
|
93
|
1 |
0 |
unless $tftp->get("$hostname-$state", $config_file_name)
|
|
99
|
0 |
1 |
unless my $config = YAML::Syck::LoadFile($config_file_name)
|
|
101
|
0 |
1 |
unless $$config{'hostname'}
|