File Coverage

blib/lib/JSON/Karabiner/Manipulator/Actions/To_delayed_if_canceled.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	49	51	96.0

package JSON::Karabiner::Manipulator::Actions::To_delayed_if_canceled ;
$JSON::Karabiner::Manipulator::Actions::To_delayed_if_canceled::VERSION = '0.016';
use strict;
use warnings;
use JSON;
use Carp;
use parent 'JSON::Karabiner::Manipulator::Actions::To';

sub new {
  my $class = shift;
  my ($type, $value) = @_;
  my $has_delayed_action;
  { no warnings 'once';
    $has_delayed_action = $main::has_delayed_action;
  }
  my $obj;
  if ($main::has_delayed_action) {
    use Data::Dumper qw(Dumper);
    print Dumper 'kajskfj';
    $obj = $main::has_delayed_action;
  } else {
    $obj = $class->SUPER::new('to_delayed_action', $value);
    $obj->{data} = {};
  }
  $obj->{delayed_type} = 'canceled';
  if ($value) {
    $obj->{data} = $value,
  } else {
    $obj->{data}{to_if_canceled} = [];

#    $obj->{data}{to_delayed_action}{to_if_invoked} = [];
  }
  $main::has_delayed_action = $obj;
  return $obj;
}

# ABSTRACT: to_delayed_if_canceled action

1;

__END__