Branch Coverage

blib/lib/Net/Stripe/Simple.pm

Criterion	Covered	Total	%
branch	20	146	13.7

line	true	false	branch
33	0	1	unless $api
53	0	0	@_ == 1 ? :
	1	0	ref $_[0] eq 'HASH' ? :
54	0	1	unless $action
55	0	1	unless exists $actions->{$action}
57	0	1	unless $method
72	0	0	unless defined $id
79	0	0	unless defined $id
101	0	0	unless defined $id
108	0	0	unless defined $customer
128	0	0	unless defined $id
137	0	0	unless defined $id
154	0	0	unless defined $id
163	0	0	unless defined $id
164	0	0	unless defined $charge
165	0	0	if @errors
176	0	0	unless defined $id
177	0	0	unless defined $charge
178	0	0	if @errors
188	0	0	unless defined $id
230	0	0	unless defined $id
231	0	0	unless defined $customer
232	0	0	if @errors
241	0	0	unless defined $id
242	0	0	unless defined $customer
243	0	0	if @errors
253	0	0	unless defined $id
254	0	0	unless defined $customer
255	0	0	if @errors
290	0	0	unless defined $id
291	0	0	unless defined $customer
292	0	0	if @errors
301	0	0	unless defined $id
302	0	0	unless defined $customer
303	0	0	if @errors
313	0	0	unless defined $id
314	0	0	unless defined $customer
315	0	0	if @errors
375	0	0	unless defined $id
376	0	0	unless defined $customer
377	0	0	if @errors
401	0	0	unless defined $id
410	0	0	unless defined $id
419	0	0	unless defined $id
449	0	0	unless defined $id
458	0	0	unless defined $id
480	0	0	unless defined $id
516	0	0	unless defined $id
525	0	0	unless @_
554	0	0	unless defined $id
594	0	0	if $args and %$args
607	0	0	if (&blessed($value) and $value->isa('Net::Stripe::Simple::Data') and exists $value->{'id'})
616	1	0	if ($ref eq 'HASH') { }
	0	0	elsif ($ref eq 'ARRAY') { }
620	0	1	if ref $sv
626	0	0	if ref $sv
630	0	0	$value ? :
	0	0	ref $value eq 'JSON::PP::Boolean' ? :
644	0	0	if $args and %$args
652	1	0	$obj ? :
670	0	1	if ($resp->code == 200) { }
675	0	1	if ($resp->header('Content_Type') =~ m[text/html]) { }
688	1	0	if ($@)
689	1	0	$resp ? :
698	1	0	if $e
699	0	0	if $ret
708	0	0	if defined $message
716	9	9	unless $rr
717	0	9	if &blessed($ref) and not $rr =~ /^JSON::/
718	9	0	if $rr eq 'HASH'
720	9	0	if ($rr eq 'HASH') { }
	0	0	elsif ($rr eq 'ARRAY') { }
730	2	3	ref $_[0] ? :