File Coverage

blib/lib/JSON/Karabiner/Manipulator/Actions/To_after_key_up.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition 1 2 50.0
subroutine 6 6 100.0
pod 1 1 100.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package JSON::Karabiner::Manipulator::Actions::To_after_key_up ;
2             $JSON::Karabiner::Manipulator::Actions::To_after_key_up::VERSION = '0.018';
3 1     1   8 use strict;
  1         2  
  1         36  
4 1     1   5 use warnings;
  1         3  
  1         31  
5 1     1   6 use JSON;
  1         2  
  1         8  
6 1     1   153 use Carp;
  1         3  
  1         74  
7 1     1   526 use parent 'JSON::Karabiner::Manipulator::Actions::To';
  1         352  
  1         6  
8              
9             sub new {
10 2     2 1 6 my $class = shift;
11 2         6 my ($type, $value) = @_;
12 2         13 my $obj = $class->SUPER::new($type, $value);
13 2   50     13 $obj->{data} = $value || [],
14             return $obj;
15             }
16              
17             # ABSTRACT: to_after_key_up action
18              
19             1;
20              
21             __END__