Branch Coverage

blib/lib/WWW/OPG.pm
Criterion Covered Total %
branch 10 28 35.7


line true false branch
80 1 2 if ref $class
85 0 2 if (exists $$params{'useragent'}) { }
119 1 0 unless ref $self
124 0 0 unless $r->is_success
129 0 0 if ($power =~ /^\s*([0-9]+),?([0-9]+)$/)
133 0 0 if ($date =~ m[^(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+) (AM|PM)])
137 0 0 if ($hour == 12) { }
0 0 elsif ($7 eq 'PM') { }
139 0 0 if ($7 eq 'AM')
157 0 0 if (not exists $$self{'updated'} or $$self{'updated'} != $dt)
190 1 1 unless ref $self
192 1 0 unless exists $$self{'power'}
213 1 1 unless ref $self
215 1 0 unless exists $$self{'updated'}