Branch Coverage

blib/lib/Net/Peep/Parser.pm
Criterion Covered Total %
branch 76 96 79.1


line true false branch
39 0 4 unless -e $conf->getOption('config')
48 4 196 if (@_)
64 40 76 if $line =~ /^\s*#/
66 0 76 if $line =~ /^\s*version (.*)/
67 4 72 if $line =~ /^\s*general/
68 4 72 if $line =~ /^\s*notification/
69 4 72 if $line =~ /^\s*class (.*)/
70 16 60 if $line =~ /^\s*client (.*)/
71 4 72 if $line =~ /^\s*events/
72 4 72 if $line =~ /^\s*states/
87 0 12 if $line =~ /^\s*#/
88 4 8 if ($line =~ /^\s*end/) { }
95 4 4 if ($key eq 'version') { }
4 0 elsif ($key eq 'sound-path') { }
116 16 12 if $line =~ /^\s*#/
117 4 8 if ($line =~ /^\s*end/) { }
124 4 4 if ($key eq 'smtp-relays') { }
4 0 elsif ($key eq 'notification-interval') { }
129 0 4 unless $value =~ /^\d+$/
169 4 8 if ($line =~ /^\s*end/) { }
171 4 0 if (@broadcast and @servers)
192 4 4 if $line =~ /^\s*broadcast (.*)/
193 4 4 if $line =~ /^\s*server (.*)/
216 16 96 if $line =~ /^\s*end client $client/
217 24 72 if $line =~ /^\s*#/ or $line =~ /^\s*$/
219 16 56 if ($line =~ /^\s*class(.*)/)
228 16 56 if ($line =~ /^\s*port (\d+)/)
235 8 64 if ($line =~ /^\s*default/)
239 8 12 if $line =~ /^\s*end default/
248 16 56 if ($line =~ /^\s*config/)
252 16 408 if $line =~ /^\s*end config/
264 16 56 if ($line =~ /^\s*notification/)
268 16 68 if $line =~ /^\s*end notification/
294 4 80 if $line =~ /^\s*end/
295 8 72 if $line =~ /^\s*#/
318 1 15 if ($who eq $name)
359 68 0 if $line =~ /^\s*#/
360 0 0 if $line =~ /^\s*$/
362 0 0 if ($line =~ /^\s*(notification-hosts)\s+(.*)$/) { }
0 0 elsif ($line =~ /^\s*(notification-recipients)\s+(.*)$/) { }
0 0 elsif ($line =~ /^\s*(notification-level)\s+(\S+)/) { }
528 0 12 if $line =~ /^\s*#/ or $line =~ /^\s*$/
529 12 0 if ($line =~ /^\s*([\w\-]+)\s+(\S+)/)
531 0 12 if ($conf->optionExists($option)) { }
535 12 0 unless $conf->optionExists($option)
557 4 16 if $line =~ /^\s*end/
558 4 12 if $line =~ /^\s*#/
576 4 330 unless (exists $$self{'__LOGGER'})