File Coverage

blib/lib/File/KeePass/KDBX/Tie/Strings.pm
Criterion Covered Total %
statement 17 20 85.0
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 3 0.0
total 23 31 74.1


line stmt bran cond sub pod time code
1             package File::KeePass::KDBX::Tie::Strings;
2             # ABSTRACT: Entry strings
3              
4 1     1   447 use warnings;
  1         2  
  1         34  
5 1     1   15 use strict;
  1         8  
  1         18  
6              
7 1     1   9 use parent 'File::KeePass::KDBX::Tie::Hash';
  1         2  
  1         4  
8              
9             our $VERSION = '0.902'; # VERSION
10              
11             my %STANDARD = map { $_ => 1 } qw(Notes Password Title UserName URL);
12              
13             sub keys {
14 26     26 0 30 my $self = shift;
15 26         44 my ($entry) = @$self;
16 26         33 return [grep { !$STANDARD{$_} } keys %{$entry->strings}];
  182         455  
  26         49  
17             }
18              
19 8     8 0 19 sub default_getter { my $key = $_[1]; sub { $_[0]->string_value($key) } }
  8     8   22  
  8         31  
20 0     0 0   sub default_setter { my $key = $_[1]; sub { $_[0]->string_value($key, $_) } }
  0     0      
  0            
21              
22             1;
23              
24             __END__