CPAN::Groonga

kage JSON::Karabiner::Manipulator::Conditions::Frontmost_application_if ;
$JSON::Karabiner::Manipulator::Conditions::Frontmost_application_if::VERSION = '0.018';
use strict;
use warnings;
use JSON;
us

e 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 || [],

_END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Conditions::Frontmost_application_if - definition for Frontmost_application_if condition

=head1 SYNOPSIS

  use JSON::Karabiner;

=head1 DESCR

package JSON::Karabiner::Manipulator::Conditions::Event_changed_unless ;
$JSON::Karabiner::Manipulator::Conditions::Event_changed_unless::VERSION = '0.018';
use strict;
use warnings;
use JSON;
use Car

p;
use parent 'JSON::Karabiner::Manipulator::Conditions::Event_changed_if';

# ABSTRACT: definition for event_changed_unless condition

1;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Co

ons::Event_changed_unless - definition for event_changed_unless condition

=head1 SYNOPSIS

  use JSON::Karabiner;

=head1 DESCRIPTION

=head3 method1()

=head3 method2()

=head1 VERSION

version 0.01

package JSON::Karabiner::Manipulator::Conditions::Input_source_if ;
$JSON::Karabiner::Manipulator::Conditions::Input_source_if::VERSION = '0.018';
use strict;
use warnings;
use JSON;
use Carp;
use par

;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Conditions::Input_source_if - definition for Frontmost_application_if condition

=head1 SYNOPSIS

  use JSON::Karabiner;

=head1 DESCRIPTIO

package JSON::Karabiner::Rule ;
$JSON::Karabiner::Rule::VERSION = '0.018';
use strict;
use warnings;
require JSON::Karabiner::Manipulator ;
use Carp;

sub new {
  my $class = shift;
  my $desc = shift

;
  croak 'JSON::Karabiner constructor requires a desc.' if !$desc;
  my $self = {
    description => $desc,
    manipulators => []
  };
  bless $self, $class;
  return $self;
}

sub _disable_validity

lator {
  my $s = shift;

  my $manip  = JSON::Karabiner::Manipulator->new_manipulator();
  push @{$s->{manipulators}}, $manip;
  return $manip;
}

sub TO_JSON { return { %{ shift() } }; }


# ABSTRAC