Branch Coverage

blib/lib/Net/Laconica.pm
Criterion Covered Total %
branch 10 50 20.0


line true false branch
22 13 7 unless (exists $$self{'uri'} and exists $$self{'username'} and exists $$self{'password'} or exists $$self{'uri'} and exists $$self{'username'})
28 2 5 unless is_http_uri($$self{'uri'})
29 2 3 unless is_alphanumeric($$self{'username'})
32 3 0 if (substr($$self{'uri'}, length($$self{'uri'}) - 1, 1) ne '/')
48 0 1 if (@_ == 1) { }
1 0 elsif (@_ == 0) { }
50 0 0 if ($number > 20)
63 0 0 unless defined $$self{'value'}
64 0 0 if $$self{'value'} eq 'content' and shift() eq 'a'
72 0 1 unless ($$self{'login'})
85 0 0 unless (exists $$self{'password'})
89 0 0 if (@_ == 1) { }
92 0 0 if (length $message > 140)
103 0 0 unless defined $$self{'value'}
104 0 0 if $$self{'value'} eq 'content' and shift() eq 'a'
113 0 0 unless $$self{'login'}
122 0 0 unless exists $_[1]{'class'}
124 0 0 if ($_[1]{'class'} eq 'nickname') { }
0 0 elsif ($_[1]{'class'} eq 'content') { }
0 0 elsif ($_[1]{'class'} eq 'error') { }
134 0 0 unless defined $$class{'value'}
135 0 0 if ($$class{'value'} eq 'content') { }
0 0 elsif ($$class{'value'} eq 'nickname') { }
0 0 elsif ($$class{'value'} eq 'error') { }
141 0 0 if ($error eq 'Incorrect username or password.' or $error eq 'No such user.')