Branch Coverage

blib/lib/Business/Bitcoin.pm
Criterion Covered Total %
branch 13 26 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 );")
42 0 1 unless $db->do("INSERT INTO SQLITE_SEQUENCE values ('requests',$startindex);")
53 0 1 unless $args{'Amount'} =~ /^\d+$/
57 1 0 if $startindex == -1
64 0 6 if $auto eq 'DESTROY'
65 6 0 if ($auto =~ /^(xpub|db|kucmd)$/x)
66 0 6 if defined $_[0]
68 6 0 if ($auto =~ /^(xpub|db|version|kucmd)$/x) { }