Branch Coverage

blib/lib/WebService/Antigate.pm
Criterion Covered Total %
branch 14 24 58.3


line true false branch
22 1 7 unless defined $args{'key'}
35 7 0 unless defined $self->{'wait'} or defined $self->{'attempts'}
37 0 7 unless exists $API_VERSIONS{$self->{'api_version'}}
38 5 2 $class eq 'WebService::Antigate' ? :
47 2 0 if defined $_[0]
76 0 0 defined $self->{'wait'} ? :
98 1 0 defined $self->{'wait'} ? :
107 0 0 unless ($captcha_id = $self->upload(%opts))
121 1 3 if ($_[1] =~ /^\x47\x49\x46\x38(?:\x37|\x39)\x61/)
126 1 2 if ($_[1] =~ /^\x89\x50\x4E\x47\x0D\x0A\x1A\x0A/)
131 1 1 if ($_[1] =~ /^\xFF\xD8\xFF\xE0..\x4A\x46\x49\x46\x00/)
142 0 0 unless open my $fh, '<:raw', $_[0]