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   1101 use warnings;
  2         5  
  2         80  
5 2     2   12 use strict;
  2         4  
  2         72  
6              
7 2     2   11 use parent 'File::KeePass::KDBX::Tie::Hash';
  2         3  
  2         15  
8              
9             our $VERSION = '0.901'; # VERSION
10              
11             sub keys {
12 29     29 0 36 my $self = shift;
13 29         52 my ($entry) = @$self;
14 29         36 return [keys %{$entry->binaries}];
  29         56  
15             }
16              
17 7     7 0 24 sub default_getter { my $key = $_[1]; sub { $_[0]->binary_value($key) } }
  7     7   17  
  7         30  
18 0     0 0   sub default_setter { my $key = $_[1]; sub { $_[0]->binary_value($key, $_) } }
  0     0      
  0            
19              
20             1;
21              
22             __END__