| line |
true |
false |
branch |
|
46
|
1 |
1 |
if (defined $configfile) { } |
|
49
|
1 |
0 |
unless defined $self->{'configfile'} |
|
68
|
0 |
0 |
if ($channels =~ /(\d+)\-(\d+)/) { } |
|
|
0 |
0 |
elsif ($channels =~ /^(\d+)$/) { } |
|
|
0 |
0 |
elsif ($channels =~ /^\d+,/) { } |
|
70
|
0 |
0 |
if ($end > $beg) |
|
80
|
0 |
0 |
if $DEBUG |
|
101
|
0 |
0 |
unless open CF, "<$configfile" |
|
108
|
0 |
0 |
if ($line =~ /^;/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\[(\w+)\]$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^channel\s*[=>]+\s*(.*)$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^(\w+)\s*[=>]+\s*(.*)/) { } |
|
114
|
0 |
0 |
if $DEBUG > 3 |
|
118
|
0 |
0 |
if $DEBUG > 3 |
|
122
|
0 |
0 |
if $DEBUG |