Branch Coverage

blib/lib/Business/Bitcoin.pm
Criterion Covered Total %
branch 17 30 56.6


line true false branch
26 0 2 unless $arg{'XPUB'}
27 0 2 if $arg{'StartIndex'} and $arg{'StartIndex'} =~ /\D/
28 0 2 if $arg{'Clobber'} and $arg{'DB'} ne ':memory:'
31 2 0 unless ($tables[0])
32 2 0 if ($arg{'Create'}) { }
33 0 2 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 reference text UNIQUE,\n\t\t created int NOT NULL,\n processed int,\n status text\n\t\t );")
42 0 2 unless $db->do('CREATE INDEX idx_requests_address ON requests(address);')
43 0 2 unless $db->do('CREATE INDEX idx_requests_reference ON requests(reference);')
46 0 2 unless $db->do("INSERT INTO SQLITE_SEQUENCE values ('requests',$startindex);")
57 0 2 unless $arg{'Amount'} =~ /^\d+$/
61 1 1 if $startindex == -1
73 2 16 if $auto eq 'DESTROY'
74 16 0 if ($auto =~ /^(xpub|path|db)$/x)
75 0 16 if defined $_[0]
77 16 0 if ($auto =~ /^(xpub|path|db|version)$/x) { }