Branch Coverage

blib/lib/WebService/MyJSONs.pm
Criterion Covered Total %
branch 0 42 0.0


line true false branch
20 0 0 if @new > 0
37 0 0 unless &blessed($self)
39 0 0 unless defined $code
42 0 0 if $self->{'response_callback'}
43 0 0 if $ENV{'MYJSONS_DUMP_RESPONSE'}
46 0 0 unless $response->{'success'}
53 0 0 defined $message ? :
60 0 0 if $op =~ /\A(?: -h | --help | help )\z/imsux
62 0 0 if ($op eq 'get') { }
0 0 elsif ($op eq 'put') { }
63 0 0 unless defined $code
81 0 0 @args == 1 ? :
86 0 0 @args == 1 ? :
103 0 0 @args == 1 ? :
108 0 0 unless &blessed($self)
109 0 0 @args == 1 ? :
112 0 0 defined $code ? :
114 0 0 if $self->{'response_callback'}
115 0 0 if $ENV{'MYJSONS_DUMP_RESPONSE'}
118 0 0 unless $response->{'status'} == 302
120 0 0 unless defined $code