| line |
true |
false |
branch |
|
24
|
0 |
0 |
unless (ref $self)
|
|
28
|
0 |
0 |
unless (exists $$self{'_PAYPAL_VARS'}{$field})
|
|
62
|
0 |
0 |
unless $self->_init
|
|
63
|
0 |
0 |
unless $self->_validate_txn
|
|
77
|
0 |
0 |
unless my $cgi = $self->cgi
|
|
82
|
0 |
0 |
unless (scalar(keys %{$$self{'_PAYPAL_VARS'};} > 3))
|
|
109
|
0 |
0 |
if ($responce->is_error)
|
|
114
|
0 |
0 |
if ($responce->content eq 'INVALID') { }
|
|
|
0 |
0 |
elsif ($responce->content eq 'VERIFIED') { }
|
|
146
|
0 |
0 |
if (defined $$self{'query'})
|
|
172
|
0 |
0 |
if (defined $$self{'response'})
|
|
185
|
0 |
0 |
if (defined $$self{'ua'})
|
|
213
|
0 |
0 |
unless (defined $self->status)
|
|
216
|
0 |
0 |
if $self->status eq 'Completed'
|
|
225
|
0 |
0 |
unless (defined $self->status)
|
|
228
|
0 |
0 |
if $self->status eq 'Failed'
|
|
237
|
0 |
0 |
unless (defined $self->status)
|
|
240
|
0 |
0 |
if ($self->status eq 'Pending')
|
|
251
|
0 |
0 |
unless (defined $self->status)
|
|
254
|
0 |
0 |
if $self->status eq 'Denied'
|
|
266
|
0 |
0 |
if (defined $msg)
|
|
287
|
0 |
0 |
if (defined $file and not -e $file)
|
|
288
|
0 |
0 |
unless open FH, '>' . $file
|
|
290
|
0 |
0 |
unless close FH
|