CPAN::Groonga

use utf8;

package JSON::API::v1::Links;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;
use Carp qw(croak);
use MooseX::Types::URI qw(Uri);

# ABSTRACT: A JSON API Links object

has uri 

1,
);

has related => (
    is        => 'ro',
    isa       => 'JSON::API::v1::Links',
    predicate => 'has_related',
);

sub TO_JSON {
    my $self = shift;

    if (!$self->has_uri && !$self->has_

 qw(
    JSON::API::v1::Roles::TO_JSON
    JSON::API::v1::Roles::MetaObject
);


__PACKAGE__->meta->make_immutable;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API::v1::Links - A JSON API Link

 utf8;

package JSON::API::v1::Relationship;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;
use Carp qw(croak);
use List::Util qw(any);

our @CARP_NOT;

# ABSTRACT: A JSON API Relationsh

ip object according to jsonapi v1 specification

has data => (
    is        => 'ro',
    isa       => 'Defined',
    predicate => 'has_data',
);

sub TO_JSON {
    my $self = shift;

    if (!$self->

(
    JSON::API::v1::Roles::TO_JSON
    JSON::API::v1::Roles::Links
    JSON::API::v1::Roles::MetaObject
);


__PACKAGE__->meta->make_immutable;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API

kage JSON::API::v1;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;
use Carp qw(croak);
use List::Util qw(uniq);

our @CARP_NOT = qw(Class::MOP::Method::Wrapped);

# ABSTRACT: A JSON API 

object according to jsonapi.org v1 specification

has data => (
    is        => 'ro',
    isa       => 'ArrayRef[JSON::API::v1::Resource]',
    traits    => ['Array'],
    lazy      => 1,
    default

 'ArrayRef[JSON::API::v1::Error]',
    traits    => ['Array'],
    lazy      => 1,
    default   => sub { [] },
    handles   => { add_error => 'push', has_errors => 'count' },
);

has jsonapi => (
  

package JSON::API::v1::Roles::Links;
our $VERSION = '0.002';
use Moose::Role;
use namespace::autoclean;

# ABSTRACT: An role that implements the default links object

has links => (
    is        => '

ro',
    isa       => 'JSON::API::v1::Links',
    predicate => 'has_links',
);

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API::v1::Roles::Links - An role that implements the default links

package JSON::API::v1::Roles::MetaObject;
our $VERSION = '0.002';
use Moose::Role;
use namespace::autoclean;

# ABSTRACT: An role that implements the default meta object

has meta_object => (
    is  

 'has_meta_object',
    init_arg  => 'meta',
);

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API::v1::Roles::MetaObject - An role that implements the default meta object

=head1 VERSION

ve

use utf8;

package JSON::API::v1::Error;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;

# ABSTRACT: A JSON API object according to jsonapi.org v1 specification

has id => (
    is      

=> (
    is        => 'ro',
    isa       => 'Defined',
    predicate => 'has_source',
);

sub TO_JSON {
    my $self = shift;

    my %rv;
    foreach (qw(id status code title detail source links)) {

(
    JSON::API::v1::Roles::TO_JSON
    JSON::API::v1::Roles::MetaObject
    JSON::API::v1::Roles::Links
);


__PACKAGE__->meta->make_immutable;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API

use utf8;

package JSON::API::v1::MetaObject;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;

# ABSTRACT: A JSON API Meta object according to jsonapi v1 specification

has members => (
 

b TO_JSON {
    my $self = shift;

    my %rv;
    foreach ($self->get_member_names) {
        $rv{$_} = $self->get_member($_);
    }
    return \%rv;
}

with qw(
    JSON::API::v1::Roles::TO_JSON
);

ta->make_immutable;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API::v1::MetaObject - A JSON API Meta object according to jsonapi v1 specification

=head1 VERSION

version 0.002

=head1 SYNOPS

use utf8;

package JSON::API::v1::JSONAPI;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;
use Carp qw(croak);

# ABSTRACT: A JSON API jsonapi object

sub TO_JSON {
    my $self = shift;

    JSON::API::v1::Roles::TO_JSON
    JSON::API::v1::Roles::MetaObject
);

__PACKAGE__->meta->make_immutable;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API::v1::JSONAPI - A JSON API jsonapi 

head1 VERSION

version 0.002

=head1 SYNOPSIS

    use JSON::API::v1::JSONAPI;
    my $object = JSON::API::v1::JSONAPI->new(
        meta => JSON::API::v1::MetaObject->new(),
    );

=head1 DESCRIPTIO

package JSON::API::v1::Roles::TO_JSON;
our $VERSION = '0.002';
use Moose::Role;
use namespace::autoclean;

# ABSTRACT: An interface for Objects to adhere to

requires qw(
    TO_JSON
);


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

JSON::API::v1::Roles::TO_JSON - An interface for Objects to adhere to

=head1 VERSION

version 0.002

=head1 SYNOPSIS

=head1 DESCRIPTION

This role implements an 

which consumers must adhere to. It defines
several methods that L<JSON::API::v1> namespaced objects must implement
to support the JSON API v1 specifications.

=head1 AUTHOR

Wesley Schwengle

=head1 L

e utf8;

package JSON::API::v1::Attribute;
our $VERSION = '0.002';
use Moose;
use namespace::autoclean;
use Carp qw(croak);
use List::Util qw(any);

our @CARP_NOT;

# ABSTRACT: A JSON API Attribute ob

ject according to jsonapi v1 specification

has attributes => (
    is      => 'ro',
    isa     => 'HashRef',
    traits  => ['Hash'],
    lazy    => 1,
    default => sub { {} },
    handles => {
  

        clear_attribute     => 'delete',
        get_attribute_names => 'keys',
    },
);

sub TO_JSON {
    my $self = shift;

    my %rv;
    foreach ($self->get_attribute_names) {
        $rv{$_} =

:Filter::json;

use Pcore -class, -res;
use Pcore::Util::Src qw[:FILTER_STATUS];

with qw[Pcore::Util::Src::Filter];

sub decompress ($self) {
    eval {
        my $data = P->data->from_json( $self->

lf->{data} = P->data->to_json( $data, readable => 1 );
    };

    return $@ ? $SRC_FATAL : $SRC_OK;
}

sub compress ($self) {
    eval {
        my $data = P->data->from_json( $self->{data} );

     

   $self->{data} = P->data->to_json( $data, readable => 0 );
    };

    return $@ ? $SRC_FATAL : $SRC_OK;
}

1;
## -----SOURCE FILTER LOG BEGIN-----
##
## PerlCritic profile "pcore-script" policy vio

package JSON::Karabiner::Manipulator ;
$JSON::Karabiner::Manipulator::VERSION = '0.018';
use strict;
use warnings;
use Carp;
use Exporter;
our @EXPORT = qw'new_manipulator add_action add_description a

_identifiers add_file_path add_input_source add_keyboard_types add_variable add_description _dump_json _fake_write_file write_file set_filename set_title set_rule_name set_save_dir';

sub import {
  s

le_written);
  }
  my $class = 'JSON::Karabiner::Manipulator';

  # trash the first arg if this is using the old school OO interface
  shift if $_[0] && $_[0] =~ /^JSON::Karabiner::Manipulator$/;

  m

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

obj;
}

sub add_value {
  my $s = shift;
  my $value = shift;
  $value = $value eq 'true' ? JSON::true : JSON::false;
  croak 'A value for the varaible name is required' unless $value;
  #TODO: Valida

n

1;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Conditions::Event_changed_if - definition for event_changed_if condition

=head1 SYNOPSIS

  use JSON::Karabiner;

=head1 DESCRIPTION

package Data::AnyXfer::JSON;

use v5.10.1;

use utf8;

use strict;
use warnings;

use base 'Cpanel::JSON::XS';

use Encode ();
use Path::Class ();
use Exporter qw/ import /;

our $VERSION = '0.07';

o

_json
  encode_json_pretty
  decode_json
  decode_json_file
  decode_json_handle
/;

our @EXPORT_OK = @EXPORT;

=head1 NAME

=encoding utf8

Data::AnyXfer::JSON - functions for encoding/decoding JSON

er::JSON qw/ decode_json /;

  my $json = encode_json( { price => '£185pcm' } );

  my $hash = decode_json( $json );

=head1 DESCRIPTION

This module provides simple wrappers around L<Cpanel::JSON::X

ge JSON::Karabiner::Manipulator::Actions::To_if_held_down ;
$JSON::Karabiner::Manipulator::Actions::To_if_held_down::VERSION = '0.018';
use strict;
use warnings;
use JSON;
use Carp;
use parent 'JSON::

alue || [],
  return $obj;
}

# ABSTRACT: to_if_held_down action

1;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Actions::To_if_held_down - to_if_held_down action

=head1 VERSION

versi

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

use parent 'JSON::Karabiner::Manipulator::Conditions::Input_source_if';


# ABSTRACT: definition for input_source_if condition

1;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Condition

s::Input_source_unless - definition for input_source_if condition

=head1 SYNOPSIS

  use JSON::Karabiner;

=head1 DESCRIPTION

=head3 method1()

=head3 method2()

=head1 VERSION

version 0.018

=head

package JSON::Karabiner::Manipulator::Actions::From ;
$JSON::Karabiner::Manipulator::Actions::From::VERSION = '0.018';
use strict;
use warnings;
use JSON;
use Carp;
use parent 'JSON::Karabiner::Manipu

ption is currently unspported by JSON::Karabiner';
  }

  $s->{"so_${option}_is_set"} = 1;

}

# ABSTRACT: From object definition

1;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Actions

m> action. Consult the
official L<Karbiner documentation|https://karabiner-elements.pqrs.org/docs/json/complex-modifications-manipulator-definition/from/> about the C<from> data structure.

=head1 MET

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::Manipulator::Actions::To_delayed_if_invoked ;
$JSON::Karabiner::Manipulator::Actions::To_delayed_if_invoked::VERSION = '0.018';
use strict;
use warnings;
use JSON;
use Carp;
u

se parent 'JSON::Karabiner::Manipulator::Actions::To';

sub new {
  my $class = shift;
  my ($type, $value) = @_;
  my $obj;
  if ($main::has_delayed_action) {
    $obj = $main::has_delayed_action;
  

$obj;
  return $obj;
}

# ABSTRACT: to_delayed_if_invoked action

1;

__END__

=pod

=head1 NAME

JSON::Karabiner::Manipulator::Actions::To_delayed_if_invoked - to_delayed_if_invoked action

=head1 VE

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