Condition Coverage

blib/lib/Net/Peep/Parser.pm
Criterion Covered Total %
condition 20 62 32.2


and 2 conditions

line l !l condition
216 0 16 $self->logger->debug(1, "\tClient [$client] parsed.") and return

and 3 conditions

line !l l&&!r l&&r condition
171 0 0 4 @broadcast and @servers

or 3 conditions

line l !l&&r !l&&!r condition
25 0 5 0 ref $self || $self
37 4 0 0 shift() || confess('Cannot parse configuration file: No configuration object found.')
58 4 0 0 "<$conf" || confess("Could not open [$conf]: $!")
82 4 0 0 shift() || confess('file not found')
111 4 0 0 shift() || confess('file not found')
148 0 0 0 shift() || confess('file not found')
149 0 0 0 shift() || confess('version not found')
161 4 0 0 shift() || confess('file not found')
162 4 0 0 shift() || confess('classname not found')
206 16 0 0 shift() || confess('Cannot parse client: File not found')
207 16 0 0 shift() || confess('Cannot parse client: Client not found')
217 24 0 72 $line =~ /^\s*#/ or $line =~ /^\s*$/
287 4 0 0 shift() || confess('Cannot parse events: File not found.')
312 16 0 0 shift() || confess('Cannot parse client configuration: Client not identified.')
353 16 0 0 shift() || confess('Cannot parse client notification: Client not identified.')
520 8 0 0 shift() || confess('Cannot parse client defaults: Client not identified.')
525 8 0 0 $self->conf || confess('Defaults cannot be parsed: No configuration object found.')
528 0 0 12 $line =~ /^\s*#/ or $line =~ /^\s*$/
550 4 0 0 shift() || confess('Cannot parse states: File not found.')