Branch Coverage

blib/lib/Business/OnlinePayment/IPayment/Return.pm
Criterion Covered Total %
branch 30 36 83.3


line true false branch
166 16 6 if (uc $self->status eq 'SUCCESS' and $self->successDetails) { }
182 16 1 if (uc $self->status eq 'ERROR' or not $self->is_success) { }
200 2 2 unless $data
205 12 8 if (my $f = $data->{$k})
223 0 8 unless $self->is_error
225 1 7 unless ($error_details)
230 1 6 if ($error_details->{'retFatalerror'})
234 20 1 if $error_details->{$k}
252 6 18 unless $self->successDetails and defined $self->successDetails->{'retTransDate'}
259 6 12 unless $self->successDetails and defined $self->successDetails->{'retTransTime'}
265 6 3 if ($self->ret_transdate or $self->ret_transtime) { }
281 1 20 unless $self->successDetails and defined $self->successDetails->{'retTrxNumber'}
295 1 2 unless $self->successDetails and defined $self->successDetails->{'retAuthCode'}
308 0 2 unless $self->successDetails and defined $self->successDetails->{'retStorageId'}
321 0 0 unless $self->successDetails and defined $self->successDetails->{'trxIssuerAvsResponse'}
334 0 0 unless $self->successDetails and defined $self->successDetails->{'trxPayauthStatus'}
347 2 2 unless ($self->errorDetails)
348 1 1 if (lc $self->status eq 'success') { }