javonet-ruby-sdk 2.4.9 → 2.4.11

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Bool/unset.pm

@@ -1,24 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Bool::unset;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer';
-
-sub _maximum_arguments { 0 }
-
-sub _potential_value { 0 }
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return $slot_access . ' = 0;';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Code/execute.pm

@@ -1,20 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Code::execute;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Reader';
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return $slot_access . '->(@_)';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Code/execute_method.pm

@@ -1,20 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Code::execute_method;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Reader';
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return $slot_access . '->($self, @_)';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Collection.pm

@@ -1,167 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Collection;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-requires qw( _adds_members _new_members );
-
-sub _inline_coerce_new_values {
-    my $self = shift;
-
-    return unless $self->associated_attribute->should_coerce;
-
-    return unless $self->_tc_member_type_can_coerce;
-
-    return (
-        '(' . $self->_new_members . ') = map { $member_coercion->($_) }',
-                                             $self->_new_members . ';',
-    );
-}
-
-sub _tc_member_type_can_coerce {
-    my $self = shift;
-
-    my $member_tc = $self->_tc_member_type;
-
-    return $member_tc && $member_tc->has_coercion;
-}
-
-sub _tc_member_type {
-    my $self = shift;
-
-    my $tc = $self->associated_attribute->type_constraint;
-    while ($tc) {
-        return $tc->type_parameter
-            if $tc->can('type_parameter');
-        $tc = $tc->parent;
-    }
-
-    return;
-}
-
-sub _writer_value_needs_copy {
-    my $self = shift;
-
-    return $self->_constraint_must_be_checked
-        && !$self->_check_new_members_only;
-}
-
-sub _inline_tc_code {
-    my $self = shift;
-    my ($value, $tc, $coercion, $message, $is_lazy) = @_;
-
-    return unless $self->_constraint_must_be_checked;
-
-    if ($self->_check_new_members_only) {
-        return unless $self->_adds_members;
-
-        return $self->_inline_check_member_constraint($self->_new_members);
-    }
-    else {
-        return (
-            $self->_inline_check_coercion($value, $tc, $coercion, $is_lazy),
-            $self->_inline_check_constraint($value, $tc, $message, $is_lazy),
-        );
-    }
-}
-
-sub _check_new_members_only {
-    my $self = shift;
-
-    my $attr = $self->associated_attribute;
-
-    my $tc = $attr->type_constraint;
-
-    # If we have a coercion, we could come up with an entirely new value after
-    # coercing, so we need to check everything,
-    return 0 if $attr->should_coerce && $tc->has_coercion;
-
-    # If the parent is our root type (ArrayRef, HashRef, etc), that means we
-    # can just check the new members of the collection, because we know that
-    # we will always be generating an appropriate collection type.
-    #
-    # However, if this type has its own constraint (it's Parameteriz_able_,
-    # not Paramet_erized_), we don't know what is being checked by the
-    # constraint, so we need to check the whole value, not just the members.
-    return 1
-        if $self->_is_root_type( $tc->parent )
-            && ( $tc->isa('Moose::Meta::TypeConstraint::Parameterized')
-                 || !$tc->can('parameterize') );
-
-    return 0;
-}
-
-sub _inline_check_member_constraint {
-    my $self = shift;
-    my ($new_value) = @_;
-
-    my $attr_name = $self->associated_attribute->name;
-
-    my $check
-        = $self->_tc_member_type->can_be_inlined
-        ? '! (' . $self->_tc_member_type->_inline_check('$new_val') . ')'
-        : ' !$member_tc->($new_val) ';
-
-    return (
-        'for my $new_val (' . $new_value . ') {',
-            "if ($check) {",
-                'my $msg = do { local $_ = $new_val; $member_message->($new_val) };'.
-                $self->_inline_throw_exception( ValidationFailedForInlineTypeConstraint =>
-                                                "attribute_name          => '".$attr_name."',".
-                                                'type_constraint_message => $msg,'.
-                                                'class_name              => $class_name,'.
-                                                'value                   => $new_val,'.
-                                                'new_member              => 1',
-                ) . ';',
-            '}',
-        '}',
-    );
-}
-
-sub _inline_get_old_value_for_trigger {
-    my $self = shift;
-    my ($instance, $old) = @_;
-
-    my $attr = $self->associated_attribute;
-    return unless $attr->has_trigger;
-
-    return (
-        'my ' . $old . ' = ' . $self->_has_value($instance),
-            '? ' . $self->_copy_old_value($self->_get_value($instance)),
-            ': ();',
-    );
-}
-
-around _eval_environment => sub {
-    my $orig = shift;
-    my $self = shift;
-
-    my $env = $self->$orig(@_);
-
-    my $member_tc = $self->_tc_member_type;
-
-    return $env unless $member_tc;
-
-    $env->{'$member_tc'} = \( $member_tc->_compiled_type_constraint );
-    $env->{'$member_coercion'} = \(
-        $member_tc->coercion->_compiled_type_coercion
-    ) if $member_tc->has_coercion;
-    $env->{'$member_message'} = \(
-        $member_tc->has_message
-            ? $member_tc->message
-            : $member_tc->_default_message
-    );
-
-    my $tc_env = $member_tc->inline_environment();
-
-    $env = { %{$env}, %{$tc_env} };
-
-    return $env;
-};
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Counter/Writer.pm

@@ -1,24 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Counter::Writer;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer';
-
-sub _constraint_must_be_checked {
-    my $self = shift;
-
-    my $attr = $self->associated_attribute;
-
-    return $attr->has_type_constraint
-        && ($attr->type_constraint->name =~ /^(?:Num|Int)$/
-         || ($attr->should_coerce && $attr->type_constraint->has_coercion)
-           );
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Counter/dec.pm

@@ -1,30 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Counter::dec;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer';
-
-sub _minimum_arguments { 0 }
-sub _maximum_arguments { 1 }
-
-sub _potential_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return $slot_access . ' - (defined $_[0] ? $_[0] : 1)';
-}
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return $slot_access . ' -= defined $_[0] ? $_[0] : 1;';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Counter/inc.pm

@@ -1,30 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Counter::inc;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer';
-
-sub _minimum_arguments { 0 }
-sub _maximum_arguments { 1 }
-
-sub _potential_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return $slot_access . ' + (defined $_[0] ? $_[0] : 1)';
-}
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return $slot_access . ' += defined $_[0] ? $_[0] : 1;';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Counter/reset.pm

@@ -1,36 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Counter::reset;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer';
-
-sub _maximum_arguments { 0 }
-
-sub _potential_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    my $attr = $self->associated_attribute;
-
-    return '(do { '
-             . join(' ', $attr->_inline_generate_default(
-                   '$self', '$default_for_reset'
-               )) . ' '
-             . '$default_for_reset; '
-         . '})';
-}
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return $slot_access . ' = ' . $self->_potential_value . ';';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Counter/set.pm

@@ -1,25 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Counter::set;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer';
-
-sub _minimum_arguments { 1 }
-sub _maximum_arguments { 1 }
-
-sub _potential_value { '$_[0]' }
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return $slot_access . ' = $_[0];';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm

@@ -1,41 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::Writer;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Class::MOP::MiniTrait;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Writer',
-     'Moose::Meta::Method::Accessor::Native::Hash',
-     'Moose::Meta::Method::Accessor::Native::Collection';
-
-sub _inline_coerce_new_values {
-    my $self = shift;
-
-    return unless $self->associated_attribute->should_coerce;
-
-    return unless $self->_tc_member_type_can_coerce;
-
-    return <<'EOF';
-if (@_) {
-    my %h = @_;
-    @h{ sort keys %h } = map { $member_coercion->($_) } @h{ sort keys %h };
-}
-EOF
-}
-
-sub _new_members { 'values %{ { @_ } }' }
-
-sub _copy_old_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return '{ %{ (' . $slot_access . ') } }';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/accessor.pm

@@ -1,61 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::accessor;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Hash::set',
-     'Moose::Meta::Method::Accessor::Native::Hash::get';
-
-sub _inline_process_arguments {
-    my $self = shift;
-    $self->Moose::Meta::Method::Accessor::Native::Hash::set::_inline_process_arguments(@_);
-}
-
-sub _inline_check_argument_count {
-    my $self = shift;
-    $self->Moose::Meta::Method::Accessor::Native::Hash::set::_inline_check_argument_count(@_);
-}
-
-sub _inline_check_arguments {
-    my $self = shift;
-    $self->Moose::Meta::Method::Accessor::Native::Hash::set::_inline_check_arguments(@_);
-}
-
-sub _return_value {
-    my $self = shift;
-    $self->Moose::Meta::Method::Accessor::Native::Hash::set::_return_value(@_);
-}
-
-sub _generate_method {
-    my $self = shift;
-
-    my $inv         = '$self';
-    my $slot_access = $self->_get_value($inv);
-
-    return (
-        'sub {',
-            'my ' . $inv . ' = shift;',
-            $self->_inline_curried_arguments,
-            $self->_inline_check_lazy($inv, '$type_constraint', '$type_coercion', '$type_message'),
-            # get
-            'if (@_ == 1) {',
-                $self->_inline_check_var_is_valid_key('$_[0]'),
-                $slot_access . '->{$_[0]}',
-            '}',
-            # set
-            'else {',
-                $self->_inline_writer_core($inv, $slot_access),
-            '}',
-        '}',
-    );
-}
-
-sub _minimum_arguments { 1 }
-sub _maximum_arguments { 2 }
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/clear.pm

@@ -1,37 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::clear;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
-
-sub _maximum_arguments { 0 }
-
-sub _adds_members { 0 }
-
-# The inner () in this expression is for the benefit of inlining code that
-# might end up looking like "values %{ {} }". This is a syntax error in perl
-# but 'values %{ { () } }' is not.
-sub _potential_value { '{ ( ) }' }
-
-# There are no new members so we don't need to coerce new values (none exist)
-# and we always want to check the new (empty) hash as a whole.
-sub _inline_coerce_new_values { '' }
-
-sub _check_new_members_only { 0 }
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return $slot_access . ' = {};';
-}
-
-sub _return_value { '' }
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/count.pm

@@ -1,22 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::count;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Reader';
-
-sub _maximum_arguments { 0 }
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return 'scalar keys %{ (' . $slot_access . ') }';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/defined.pm

@@ -1,31 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::defined;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Reader',
-     'Moose::Meta::Method::Accessor::Native::Hash';
-
-sub _minimum_arguments { 1 }
-
-sub _maximum_arguments { 1 }
-
-sub _inline_check_arguments {
-    my $self = shift;
-
-    return $self->_inline_check_var_is_valid_key('$_[0]');
-}
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return 'defined ' . $slot_access . '->{ $_[0] }';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/delete.pm

@@ -1,46 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::delete;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
-
-sub _adds_members { 0 }
-
-# There are no new members so we don't need to coerce new values (none exist)
-# and we always want to check the new (empty) hash as a whole.
-sub _inline_coerce_new_values { '' }
-
-sub _check_new_members_only { 0 }
-
-sub _potential_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return '(do { '
-             . 'my %potential = %{ (' . $slot_access . ') }; '
-             . '@return = delete @potential{@_}; '
-             . '\%potential; '
-         . '})';
-}
-
-sub _inline_optimized_set_new_value {
-    my $self = shift;
-    my ($inv, $new, $slot_access) = @_;
-
-    return '@return = delete @{ (' . $slot_access . ') }{@_};';
-}
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return 'wantarray ? @return : $return[-1]';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/elements.pm

@@ -1,23 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::elements;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Reader';
-
-sub _maximum_arguments { 0 }
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = @_;
-
-    return 'map { $_, ' . $slot_access . '->{$_} } '
-             . 'keys %{ (' . $slot_access . ') }';
-}
-
-no Moose::Role;
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/Method/Accessor/Native/Hash/exists.pm

@@ -1,31 +0,0 @@
-package Moose::Meta::Method::Accessor::Native::Hash::exists;
-our $VERSION = '2.2207';
-
-use strict;
-use warnings;
-
-use Moose::Role;
-
-with 'Moose::Meta::Method::Accessor::Native::Reader',
-     'Moose::Meta::Method::Accessor::Native::Hash';
-
-sub _minimum_arguments { 1 }
-
-sub _maximum_arguments { 1 }
-
-sub _inline_check_arguments {
-    my $self = shift;
-
-    return $self->_inline_check_var_is_valid_key('$_[0]');
-}
-
-sub _return_value {
-    my $self = shift;
-    my ($slot_access) = shift;
-
-    return 'exists ' . $slot_access . '->{ $_[0] }';
-}
-
-no Moose::Role;
-
-1;