File Coverage

blib/lib/File/KeePass/KDBX/Tie/CustomIcons.pm
Criterion Covered Total %
statement 13 20 65.0
branch n/a
condition n/a
subroutine 4 8 50.0
pod 0 3 0.0
total 17 31 54.8


line stmt bran cond sub pod time code
1             package File::KeePass::KDBX::Tie::CustomIcons;
2             # ABSTRACT: Database custom icons
3              
4 2     2   1644 use warnings;
  2         6  
  2         96  
5 2     2   13 use strict;
  2         5  
  2         60  
6              
7 2     2   13 use parent 'File::KeePass::KDBX::Tie::Hash';
  2         4  
  2         17  
8              
9             our $VERSION = '0.901'; # VERSION
10              
11             sub keys {
12 14     14 0 31 my $self = shift;
13 14         47 my ($kdbx) = @$self;
14 14         26 return [map { $_->{uuid} } @{$kdbx->custom_icons}];
  0         0  
  14         47  
15             }
16              
17 0     0 0   sub default_getter { my $uuid = $_[1]; sub { $_[0]->custom_icon($uuid)->{data} } }
  0     0      
  0            
18 0     0 0   sub default_setter { my $uuid = $_[1]; sub { $_[0]->custom_icon($uuid, $_) } }
  0     0      
  0            
19              
20             1;
21              
22             __END__