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