Branch Coverage

blib/lib/App/OATH.pm
Criterion Covered Total %
branch 36 38 94.7


line true false branch
61 1 1 if (-e $filename)
76 2 3 if ($entry =~ m[^otpauth://totp/]) { }
2 1 elsif ($entry =~ /^[^:]+:[^:]+$/) { }
80 1 1 if (exists $data->{$key}) { }
92 1 1 if (exists $data->{$key}) { }
121 2 2 if ($search)
122 1 1 if index(lc $account, lc $search) == -1
146 2 4 if ($search)
147 1 1 if index(lc $account, lc $search) == -1
149 5 0 if length $account > $max_len
154 2 4 if ($search)
155 1 1 if index(lc $account, lc $search) == -1
212 9 4 unless open my $file, '<', $filename
226 0 4 unless open my $file, '>', $filename
235 1 3 if $self->{'newpass'}
252 1 6 unless ($d)
264 8 12 unless exists $self->{'data_plaintext'}
270 12 8 unless exists $self->{'data_encrypted'}
288 9 2 if $self->{'password'}