File Coverage

blib/lib/JSON/Karabiner/Manipulator/Conditions/Keyboard_type_if.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	4	50.0
condition	1	2	50.0
subroutine	9	9	100.0
pod	0	4	0.0
total	44	51	86.2

package JSON::Karabiner::Manipulator::Conditions::Keyboard_type_if ;
$JSON::Karabiner::Manipulator::Conditions::Keyboard_type_if::VERSION = '0.017';
use strict;
use warnings;
use JSON;
use Carp;
use parent 'JSON::Karabiner::Manipulator::Conditions';

sub new {
  my $class = shift;
  my ($type, $value) = @_;
  my $obj = $class->SUPER::new($type, $value);
  $obj->{data} = $value || {},
  return $obj;
}

sub add_keyboard_types {
  my $s = shift;
  my @values = @_;
  croak 'A list of keyboard types is required' unless @values;
  $s->{data}{keyboard_types} =  \@values ;
}

sub add_description {
  my $s = shift;
  my $desc = shift;
  croak ('No description passed.') unless $desc;
  $s->{data}{description} = $desc;

}

sub TO_JSON {
  my $obj = shift;
  my $name = $obj->{def_name};
  my $value = $obj->{data};
  my %super_hash = (%$value, type => $name);
  return { %super_hash };

}
#ABSTRACT: definition for keyboard_type_if condition

1;

__END__