Branch Coverage

blib/lib/Business/Bitcoin.pm
Criterion Covered Total %
branch 15 30 50.0


line true false branch
26 0 1 unless $args{'XPUB'}
27 0 1 if $args{'StartIndex'} and $args{'StartIndex'} =~ /\D/
28 1 0 if $args{'Clobber'}
31 1 0 unless ($tables[0])
32 1 0 if ($args{'Create'}) { }
33 0 1 unless $db->do("CREATE TABLE requests (\n\t\t reqid INTEGER PRIMARY KEY AUTOINCREMENT,\n\t\t amount int NOT NULL,\n address text,\n refid text UNIQUE,\n\t\t created int NOT NULL\n\t\t );")
40 0 1 unless $db->do('CREATE INDEX idx_requests_address ON requests(address);')
41 0 1 unless $db->do('CREATE INDEX idx_requests_refid ON requests(refid);')
44 0 1 unless $db->do("INSERT INTO SQLITE_SEQUENCE values ('requests',$startindex);")
55 0 1 unless $args{'Amount'} =~ /^\d+$/
59 1 0 if $startindex == -1
71 0 5 if $auto eq 'DESTROY'
72 5 0 if ($auto =~ /^(xpub|db|kucmd)$/x)
73 0 5 if defined $_[0]
75 5 0 if ($auto =~ /^(xpub|db|version|kucmd)$/x) { }