File Coverage

blib/lib/File/KeePass/KDBX/Tie/Binary.pm
Criterion Covered Total %
statement 16 19 84.2
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 3 0.0
total 22 30 73.3


line stmt bran cond sub pod time code
1             package File::KeePass::KDBX::Tie::Binary;
2             # ABSTRACT: Entry binary
3              
4 2     2   1297 use warnings;
  2         6  
  2         69  
5 2     2   11 use strict;
  2         4  
  2         47  
6              
7 2     2   11 use parent 'File::KeePass::KDBX::Tie::Hash';
  2         5  
  2         15  
8              
9             our $VERSION = '0.900'; # VERSION
10              
11             sub keys {
12 39     39 0 56 my $self = shift;
13 39         65 my ($entry) = @$self;
14 39         47 return [keys %{$entry->binaries}];
  39         85  
15             }
16              
17 11     11 0 45 sub default_getter { my $key = $_[1]; sub { $_[0]->binary_value($key) } }
  11     11   22  
  11         57  
18 0     0 0   sub default_setter { my $key = $_[1]; sub { $_[0]->binary_value($key, $_) } }
  0     0      
  0            
19              
20             1;
21              
22             __END__