File Coverage

blib/lib/File/KeePass/KDBX/Tie/Association.pm
Criterion Covered Total %
statement 10 11 90.9
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 2 0.0
total 14 18 77.7


line stmt bran cond sub pod time code
1             package File::KeePass::KDBX::Tie::Association;
2             # ABSTRACT: Auto-type window association
3              
4 2     2   1055 use warnings;
  2         6  
  2         69  
5 2     2   12 use strict;
  2         3  
  2         77  
6              
7 2     2   11 use parent 'File::KeePass::KDBX::Tie::Hash';
  2         5  
  2         11  
8              
9             our $VERSION = '0.900'; # VERSION
10              
11             my %GET = (
12             window => sub { $_[0]->{window} },
13             keys => sub { $_[0]->{keystroke_sequence} },
14             );
15             my %SET = (
16             window => sub { $_[0]->{window} = $_ },
17             keys => sub { $_[0]->{keystroke_sequence} = $_ },
18             );
19              
20 176     176 0 616 sub getters { \%GET }
21 0     0 0   sub setters { \%SET }
22              
23             1;
24              
25             __END__