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   624 use warnings;
  1         3  
  1         36  
5 1     1   5 use strict;
  1         2  
  1         24  
6              
7 1     1   5 use parent 'File::KeePass::KDBX::Tie::Hash';
  1         2  
  1         8  
8              
9             our $VERSION = '0.900'; # VERSION
10              
11             my %STANDARD = map { $_ => 1 } qw(Notes Password Title UserName URL);
12              
13             sub keys {
14 26     26 0 34 my $self = shift;
15 26         43 my ($entry) = @$self;
16 26         33 return [grep { !$STANDARD{$_} } keys %{$entry->strings}];
  182         539  
  26         51  
17             }
18              
19 8     8 0 23 sub default_getter { my $key = $_[1]; sub { $_[0]->string_value($key) } }
  8     8   15  
  8         41  
20 0     0 0   sub default_setter { my $key = $_[1]; sub { $_[0]->string_value($key, $_) } }
  0     0      
  0            
21              
22             1;
23              
24             __END__