Branch Coverage

blib/lib/WWW/Facebook/FQL.pm
Criterion Covered Total %
branch 7 30 23.3


line true false branch
58 0 1 if ($lev <= $$self{'verbose'})
79 0 1 unless $resp->is_success
93 0 1 $$self{'session_key'} ? :
98 0 1 unless ($resp->is_success)
102 0 1 if ($$self{'verbose'} > 2)
172 0 1 if (-f "$ENV{'HOME'}/.fqlrc")
174 0 0 if (open IN, "$ENV{'HOME'}/.fqlrc")
176 0 0 unless $@
182 1 0 unless $self->_get_auth_token
189 0 0 if @_
192 0 0 unless $mech->success
199 0 0 unless $resp->is_success
203 0 0 if ($mech->content =~ /Terms of Service/)
205 0 0 unless $mech->res->is_success
240 0 0 if (not $$self{'secret'} or $$self{'private'} eq $$self{'secret'})