File Coverage

blib/lib/File/KeePass/KDBX/Tie/CustomData.pm
Criterion Covered Total %
statement 13 19 68.4
branch 1 2 50.0
condition n/a
subroutine 4 8 50.0
pod 0 3 0.0
total 18 32 56.2


line stmt bran cond sub pod time code
1             package File::KeePass::KDBX::Tie::CustomData;
2             # ABSTRACT: Database custom data
3              
4 2     2   915 use warnings;
  2         5  
  2         55  
5 2     2   19 use strict;
  2         3  
  2         36  
6              
7 2     2   8 use parent 'File::KeePass::KDBX::Tie::Hash';
  2         3  
  2         9  
8              
9             our $VERSION = '0.900'; # VERSION
10              
11             sub keys {
12 14     14 0 27 my $self = shift;
13 14         37 my ($kdbx) = @$self;
14 14 50       63 return [keys %{$kdbx->meta->{custom_data} || {}}];
  14         82  
15             }
16              
17 0     0 0   sub default_getter { my $key = $_[1]; sub { $_[0]->meta->{custom_data}{$key}{value} } }
  0     0      
  0            
18 0     0 0   sub default_setter { my $key = $_[1]; sub { $_[0]->meta->{custom_data}{$key}{value} = $_ } }
  0     0      
  0            
19              
20             1;
21              
22             __END__