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   939 use warnings;
  2         3  
  2         57  
5 2     2   10 use strict;
  2         4  
  2         71  
6              
7 2     2   11 use parent 'File::KeePass::KDBX::Tie::Hash';
  2         4  
  2         10  
8              
9             our $VERSION = '0.901'; # 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 505 sub getters { \%GET }
21 0     0 0   sub setters { \%SET }
22              
23             1;
24              
25             __END__