Branch Coverage

blib/lib/Palm/Keyring.pm
Criterion Covered Total %
branch 150 236 63.5


line true false branch
95 2 0 if (@_)
97 2 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif ($_[0] =~ /^-[a-zA-Z0-9_]{1,20}$/) { }
135 1 1 if ($$self{'version'} == 5)
137 0 1 unless my $c = crypts($$self{'options'}{'cipher'})
144 2 0 if (defined $$options{'password'})
162 0 64 if (not defined $crypt && length $crypt) { }
0 64 elsif ($crypt =~ /\D/) { }
166 0 0 if ($$c{'alias'} eq $crypt)
181 0 80 if (not defined $label && length $label) { }
60 20 elsif (exists $LABELS{$label}) { }
187 20 42 if ($LABELS{$l}{'name'} eq $label)
193 0 0 if ($label =~ /^\d+$/) { }
210 1 1 if ($$self{'version'} == 4)
215 1 0 if (ref $$self{'records'} eq 'ARRAY') { }
224 1 1 if ($$self{'version'} == 4)
238 0 17 unless exists $$rec{'data'}
240 2 15 if ($$self{'version'} == 4) { }
15 0 elsif ($$self{'version'} == 5) { }
242 1 1 unless (exists $$self{'records'})
247 1 0 if ($$self{'records'}[0] eq '__DELETE_ME__')
253 0 1 unless $encrypted
264 0 15 unless my $c = crypts($$self{'appinfo'}{'cipher'})
289 2 3 if ($$self{'version'} == 4) { }
3 0 elsif ($$self{'version'} == 5) { }
290 1 1 if ($$rec{'encrypted'})
299 3 0 if ($$rec{'plaintext'}{'0'}) { }
339 1 5 if ($$self{'version'} == 4) { }
5 0 elsif ($$self{'version'} == 5) { }
343 0 5 unless _parse_appinfo_v5($appinfo)
356 0 5 unless (exists $$appinfo{'other'})
386 1 1 if ($$self{'version'} == 4) { }
1 0 elsif ($$self{'version'} == 5) { }
431 0 1 unless ($pass or $$self{'appinfo'}{'key'})
435 0 10 unless ($rec)
439 0 10 unless ($data)
443 0 10 if ($pass and not $self->Password($pass))
448 2 8 if ($$rec{'encrypted'})
453 3 7 if ($$self{'version'} == 4) { }
7 0 elsif ($$self{'version'} == 5) { }
478 7 0 if (defined $ivec)
488 10 0 if ($encrypted) { }
489 0 10 if ($encrypted eq '1')
515 3 0 if ($old and %{$old;}) { }
518 2 6 if $key eq 'lastchange'
519 3 3 if ($$new{$key} ne $$old{$key})
524 2 1 if (exists $$new{'lastchange'} and exists $$old{'lastchange'} and $$new{'lastchange'}{'day'} != $$old{'lastchange'}{'day'} || $$new{'lastchange'}{'month'} != $$old{'lastchange'}{'month'} || $$new{'lastchange'}{'year'} != $$old{'lastchange'}{'year'}) { }
540 0 3 unless $changed
544 2 1 if ($$new{'lastchange'} and not $need_newdate) { }
550 0 2 if ($year >= 1900)
557 1 2 if ($need_newdate)
580 0 7 unless my $c = crypts($cipher)
582 7 0 unless (defined $ivec)
588 7 0 if ($$new{'3'}{'data'})
592 20 4 if (not $old) { }
1 3 elsif ($k == 3) { }
595 1 0 if ($old and ($$new{$k}{'data'}{'day'} == $$old{$k}{'data'}{'day'} and $$new{$k}{'data'}{'month'} == $$old{$k}{'data'}{'month'} and $$new{$k}{'data'}{'year'} == $$old{$k}{'data'}{'year'}))
607 1 2 if ($n ne $o)
613 0 7 if $changed == 0
615 1 6 if ($need_newdate) { }
629 0 6 if ($$new{'3'}{'data'}{'year'} >= 1900)
636 7 17 if $$new{$k}{'label_id'} == 0
642 7 0 if ($$c{'name'} eq 'None') { }
0 0 elsif ($$c{'name'} eq 'DES_EDE3' or $$c{'name'} eq 'Rijndael') { }
659 0 0 unless ($c)
680 2 15 unless ($pass or $$self{'appinfo'}{'key'})
684 0 24 unless ($rec)
688 0 24 if ($pass and not $self->Password($pass))
692 0 24 unless ($$rec{'encrypted'})
697 6 18 if ($$self{'version'} == 4) { }
18 0 elsif ($$self{'version'} == 5) { }
739 24 0 if ($plaintext)
756 6 0 if ($packed_date)
776 0 18 unless my $c = crypts($cipher)
780 18 0 if ($$c{'name'} eq 'None') { }
0 0 elsif ($$c{'name'} eq 'DES_EDE3' or $$c{'name'} eq 'Rijndael') { }
797 0 0 unless ($c)
812 18 45 unless ($field)
829 4 27 unless ($pass)
835 2 25 if ($$self{'version'} == 4 and not exists $$self{'encpassword'} or $$self{'version'} == 5 and not exists $$self{'appinfo'}{'masterhash'})
842 2 23 if ($new_pass)
846 0 4 unless ($acct)
852 0 2 unless ($self->_password_update($new_pass))
864 10 15 if (defined $$self{'password'} and $pass eq $$self{'password'})
869 2 13 if ($$self{'version'} == 4) { }
13 0 elsif ($$self{'version'} == 5) { }
874 2 0 if ($valid)
876 2 0 if ($$self{'digest'})
898 0 2 unless ($pass)
901 0 2 unless (defined $data)
912 0 2 if ($data ne $salt . $digest)
926 0 13 unless my $c = crypts($$appinfo{'cipher'})
940 13 0 if ($$appinfo{'masterhash'} eq $hash) { }
959 2 2 if ($$self{'version'} == 4) { }
2 0 elsif ($$self{'version'} == 5) { }
962 0 2 unless ($data)
984 0 2 unless ($hash)
1004 0 2 unless (defined $pass)
1034 0 2 unless my $c = crypts($cipher)
1056 0 2 if ($pass and not $self->Password($pass))
1088 0 4 unless (defined $pass)
1119 0 15 if ($dop)
1149 6 54 unless (length $pt)
1150 3 51 if (length $pt < 8)
1151 0 3 if ($flag == $DECRYPT)
1155 18 36 if ($flag == $ENCRYPT) { }
1182 18 60 if ($len + 4 > length $field)
1187 15 45 if ($len % 2)
1198 60 0 if ($l)
1203 18 42 if ($label_id and $label_id == 3)
1221 20 0 if (defined $field) { }
1223 3 17 if (defined $$field{'label'} and not $label)
1228 20 0 if ($l)
1233 20 0 defined $$field{'data'} ? :
1235 7 13 if ($label and $label == 3)
1243 6 14 if ($len % 2)
1298 0 0 if defined $maxlines and $offset >= $maxlines * 16
1323 0 0 if defined $maxlines and $offset >= $maxlines * 8