| line |
true |
false |
branch |
|
28
|
0 |
2 |
unless $args{'Amount'} =~ /^\d+$/ |
|
|
0 |
2 |
if $args{'StartIndex'} and $args{'StartIndex'} =~ /\D/ |
|
31
|
1 |
1 |
defined $args{'StartIndex'} ? : |
|
32
|
1 |
1 |
defined $args{'Reference'} ? : |
|
33
|
0 |
2 |
unless $db->do("INSERT INTO requests values ($index, '$args{'Amount'}', NULL, $refid, '${timestamp}', NULL, NULL);") |
|
36
|
0 |
2 |
unless my $address = _getaddress($args{'_BizBTC'}, $index) |
|
43
|
2 |
0 |
defined $args{'Confirmations'} ? : |
|
53
|
0 |
0 |
if $paid =~ /\D/ |
|
55
|
0 |
0 |
$paid >= $self->amount ? : |
|
60
|
0 |
2 |
unless defined $args{'Address'} or defined $args{'Reference'} |
|
61
|
0 |
2 |
if defined $args{'Address'} and defined $args{'Reference'} |
|
62
|
0 |
2 |
unless defined $args{'_BizBTC'} and $args{'_BizBTC'}->db->ping |
|
65
|
1 |
1 |
defined $args{'Address'} ? : |
|
72
|
0 |
2 |
defined $args{'Confirmations'} ? : |
|
87
|
0 |
0 |
if $processed |
|
88
|
0 |
0 |
if $refid |
|
89
|
0 |
0 |
if $status |
|
90
|
0 |
0 |
if $amount |
|
91
|
0 |
0 |
unless my $updates = join(',', @updates) |
|
92
|
0 |
0 |
unless $self->db->do("UPDATE requests SET $updates where address='${address}';") |
|
104
|
1 |
1 |
if ($bizbtc->path eq 'electrum') { } |
|
143
|
2 |
0 |
if $i % 2 ne $y % 2 |
|
153
|
4 |
1 |
$K->y % 2 ? : |
|
170
|
4 |
8 |
if $auto eq 'DESTROY' |
|
171
|
0 |
8 |
if ($auto =~ /^(confirmations|processed|status|amount|reference|error)$/x and defined $_[0]) |
|
174
|
8 |
0 |
if ($auto =~ /^(reqid|amount|address|reference|version|created|confirmations|processed|status|error)$/x) |
|
177
|
0 |
0 |
if ($auto =~ /^(db|id)$/x) |