RubyGems - javonet-ruby-sdk - Versions diffs - 2.4.9 → 2.4.11 - Mend

javonet-ruby-sdk 2.4.9 → 2.4.11

Files changed (1457) hide show

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/TypeCoercion/Union.pm DELETED Viewed

@@ -1,141 +0,0 @@
-package Moose::Meta::TypeCoercion::Union;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use metaclass;
-use Scalar::Util 'blessed';
-use parent 'Moose::Meta::TypeCoercion';
-use Moose::Util 'throw_exception';
-sub compile_type_coercion {
-    my $self            = shift;
-    my $type_constraint = $self->type_constraint;
-    (blessed $type_constraint && $type_constraint->isa('Moose::Meta::TypeConstraint::Union'))
-     || throw_exception( NeedsTypeConstraintUnionForTypeCoercionUnion => type_coercion_union_object => $self,
-                                                                         type_name                  => $type_constraint->name
-                       );
-    $self->_compiled_type_coercion(
-        sub {
-            my $value = shift;
-            foreach my $type ( grep { $_->has_coercion }
-                @{ $type_constraint->type_constraints } ) {
-                my $temp = $type->coerce($value);
-                return $temp if $type_constraint->check($temp);
-            }
-            return $value;
-        }
-    );
-}
-sub has_coercion_for_type { 0 }
-sub add_type_coercions {
-    my $self = shift;
-    throw_exception( CannotAddAdditionalTypeCoercionsToUnion => type_coercion_union_object => $self );
-}
-1;
-# ABSTRACT: The Moose Type Coercion metaclass for Unions
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Moose::Meta::TypeCoercion::Union - The Moose Type Coercion metaclass for Unions
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-This is a subclass of L<Moose::Meta::TypeCoercion> that is used for
-L<Moose::Meta::TypeConstraint::Union> objects.
-=head1 METHODS
-=head2 $coercion->has_coercion_for_type
-This method always returns false.
-=head2 $coercion->add_type_coercions
-This method always throws an error. You cannot add coercions to a
-union type coercion.
-=head2 $coercion->coerce($value)
-This method will coerce by trying the coercions for each type in the
-union.
-=head1 BUGS
-See L<Moose/BUGS> for details on reporting bugs.
-=head1 AUTHORS
-=over 4
-=item *
-Stevan Little <stevan@cpan.org>
-=item *
-Dave Rolsky <autarch@urth.org>
-=item *
-Jesse Luehrs <doy@cpan.org>
-=item *
-Shawn M Moore <sartak@cpan.org>
-=item *
-יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
-=item *
-Karen Etheridge <ether@cpan.org>
-=item *
-Florian Ragwitz <rafl@debian.org>
-=item *
-Hans Dieter Pearcey <hdp@cpan.org>
-=item *
-Chris Prather <chris@prather.org>
-=item *
-Matt S Trout <mstrout@cpan.org>
-=back
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2006 by Infinity Interactive, Inc.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/TypeCoercion.pm DELETED Viewed

@@ -1,239 +0,0 @@
-package Moose::Meta::TypeCoercion;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use metaclass;
-use Moose::Meta::Attribute;
-use Moose::Util::TypeConstraints ();
-use Moose::Util 'throw_exception';
-__PACKAGE__->meta->add_attribute('type_coercion_map' => (
-    reader  => 'type_coercion_map',
-    default => sub { [] },
-    Class::MOP::_definition_context(),
-));
-__PACKAGE__->meta->add_attribute(
-    Moose::Meta::Attribute->new('type_constraint' => (
-        reader   => 'type_constraint',
-        weak_ref => 1,
-        Class::MOP::_definition_context(),
-    ))
-);
-# private accessor
-__PACKAGE__->meta->add_attribute('compiled_type_coercion' => (
-    accessor => '_compiled_type_coercion',
-    Class::MOP::_definition_context(),
-));
-sub new {
-    my $class = shift;
-    my $self  = Class::MOP::class_of($class)->new_object(@_);
-    $self->compile_type_coercion;
-    return $self;
-}
-sub compile_type_coercion {
-    my $self = shift;
-    my @coercion_map = @{$self->type_coercion_map};
-    my @coercions;
-    while (@coercion_map) {
-        my ($constraint_name, $action) = splice(@coercion_map, 0, 2);
-        my $type_constraint = ref $constraint_name ? $constraint_name : Moose::Util::TypeConstraints::find_or_parse_type_constraint($constraint_name);
-        unless ( defined $type_constraint ) {
-            throw_exception( CouldNotFindTypeConstraintToCoerceFrom => constraint_name => $constraint_name,
-                                                                       instance        => $self
-                           );
-        }
-        push @coercions => [
-            $type_constraint->_compiled_type_constraint,
-            $action
-        ];
-    }
-    $self->_compiled_type_coercion(sub {
-        my $thing = shift;
-        foreach my $coercion (@coercions) {
-            my ($constraint, $converter) = @$coercion;
-            if ($constraint->($thing)) {
-                local $_ = $thing;
-                return $converter->($thing);
-            }
-        }
-        return $thing;
-    });
-}
-sub has_coercion_for_type {
-    my ($self, $type_name) = @_;
-    my %coercion_map = @{$self->type_coercion_map};
-    exists $coercion_map{$type_name} ? 1 : 0;
-}
-sub add_type_coercions {
-    my ($self, @new_coercion_map) = @_;
-    my $coercion_map = $self->type_coercion_map;
-    my %has_coercion = @$coercion_map;
-    while (@new_coercion_map) {
-        my ($constraint_name, $action) = splice(@new_coercion_map, 0, 2);
-        if ( exists $has_coercion{$constraint_name} ) {
-            throw_exception( CoercionAlreadyExists => constraint_name => $constraint_name,
-                                                      instance        => $self
-                           );
-        }
-        push @{$coercion_map} => ($constraint_name, $action);
-    }
-    # and re-compile ...
-    $self->compile_type_coercion;
-}
-sub coerce { $_[0]->_compiled_type_coercion->($_[1]) }
-1;
-# ABSTRACT: The Moose Type Coercion metaclass
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Moose::Meta::TypeCoercion - The Moose Type Coercion metaclass
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-A type coercion object is basically a mapping of one or more type
-constraints and the associated coercions subroutines.
-It's unlikely that you will need to instantiate an object of this
-class directly, as it's part of the deep internals of Moose.
-=head1 METHODS
-=head2 Moose::Meta::TypeCoercion->new(%options)
-Creates a new type coercion object, based on the options provided.
-=over 4
-=item * type_constraint
-This is the L<Moose::Meta::TypeConstraint> object for the type that is
-being coerced I<to>.
-=back
-=head2 $coercion->type_coercion_map
-This returns the map of type constraints to coercions as an array
-reference. The values of the array alternate between type names and
-subroutine references which implement the coercion.
-The value is an array reference because coercions are tried in the
-order they are added.
-=head2 $coercion->type_constraint
-This returns the L<Moose::Meta::TypeConstraint> that was passed to the
-constructor.
-=head2 $coercion->has_coercion_for_type($type_name)
-Returns true if the coercion can coerce the named type.
-=head2 $coercion->add_type_coercions( $type_name => $sub, ... )
-This method takes a list of type names and subroutine references. If
-the coercion already has a mapping for a given type, it throws an
-exception.
-Coercions are actually
-=head2 $coercion->coerce($value)
-This method takes a value and applies the first valid coercion it
-finds.
-This means that if the value could belong to more than type in the
-coercion object, the first coercion added is used.
-=head2 Moose::Meta::TypeCoercion->meta
-This will return a L<Class::MOP::Class> instance for this class.
-=head1 BUGS
-See L<Moose/BUGS> for details on reporting bugs.
-=head1 AUTHORS
-=over 4
-=item *
-Stevan Little <stevan@cpan.org>
-=item *
-Dave Rolsky <autarch@urth.org>
-=item *
-Jesse Luehrs <doy@cpan.org>
-=item *
-Shawn M Moore <sartak@cpan.org>
-=item *
-יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
-=item *
-Karen Etheridge <ether@cpan.org>
-=item *
-Florian Ragwitz <rafl@debian.org>
-=item *
-Hans Dieter Pearcey <hdp@cpan.org>
-=item *
-Chris Prather <chris@prather.org>
-=item *
-Matt S Trout <mstrout@cpan.org>
-=back
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2006 by Infinity Interactive, Inc.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Moose/Meta/TypeConstraint/Class.pm DELETED Viewed

@@ -1,261 +0,0 @@
-package Moose::Meta::TypeConstraint::Class;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use metaclass;
-use B;
-use Scalar::Util ();
-use Moose::Util::TypeConstraints ();
-use parent 'Moose::Meta::TypeConstraint';
-__PACKAGE__->meta->add_attribute('class' => (
-    reader => 'class',
-    Class::MOP::_definition_context(),
-));
-my $inliner = sub {
-    my $self = shift;
-    my $val  = shift;
-    return 'Scalar::Util::blessed(' . $val . ')'
-             . ' && ' . $val . '->isa(' . B::perlstring($self->class) . ')';
-};
-sub new {
-    my ( $class, %args ) = @_;
-    $args{parent}
-        = Moose::Util::TypeConstraints::find_type_constraint('Object');
-    my $class_name = $args{class};
-    $args{constraint} = sub { $_[0]->isa($class_name) };
-    $args{inlined} = $inliner;
-    my $self = $class->SUPER::new( \%args );
-    $self->compile_type_constraint();
-    return $self;
-}
-sub parents {
-    my $self = shift;
-    return (
-        $self->parent,
-        map {
-            # FIXME find_type_constraint might find a TC named after the class but that isn't really it
-            # I did this anyway since it's a convention that preceded TypeConstraint::Class, and it should DWIM
-            # if anybody thinks this problematic please discuss on IRC.
-            # a possible fix is to add by attr indexing to the type registry to find types of a certain property
-            # regardless of their name
-            Moose::Util::TypeConstraints::find_type_constraint($_)
-                ||
-            __PACKAGE__->new( class => $_, name => "__ANON__" )
-        } Class::MOP::class_of($self->class)->superclasses,
-    );
-}
-sub equals {
-    my ( $self, $type_or_name ) = @_;
-    my $other = Moose::Util::TypeConstraints::find_type_constraint($type_or_name);
-    if (!defined($other)) {
-        if (!ref($type_or_name)) {
-            return $self->class eq $type_or_name;
-        }
-        return;
-    }
-    return unless $other->isa(__PACKAGE__);
-    return $self->class eq $other->class;
-}
-sub is_a_type_of {
-    my ($self, $type_or_name) = @_;
-    ($self->equals($type_or_name) || $self->is_subtype_of($type_or_name));
-}
-sub is_subtype_of {
-    my ($self, $type_or_name_or_class ) = @_;
-    my $type = Moose::Util::TypeConstraints::find_type_constraint($type_or_name_or_class);
-    if ( not defined $type ) {
-        if ( not ref $type_or_name_or_class ) {
-            # it might be a class
-            my $class = $self->class;
-            return 1 if $class ne $type_or_name_or_class
-                     && $class->isa( $type_or_name_or_class );
-        }
-        return;
-    }
-    if ( $type->isa(__PACKAGE__) && $type->class ne $self->class) {
-        # if $type_or_name_or_class isn't a class, it might be the TC name of another ::Class type
-        # or it could also just be a type object in this branch
-        return $self->class->isa( $type->class );
-    } else {
-        # the only other thing we are a subtype of is Object
-        $self->SUPER::is_subtype_of($type);
-    }
-}
-# This is a bit counter-intuitive, but a child type of a Class type
-# constraint is not itself a Class type constraint (it has no class
-# attribute). This whole create_child_type thing needs some changing
-# though, probably making MMC->new a factory or something.
-sub create_child_type {
-    my ($self, @args) = @_;
-    return Moose::Meta::TypeConstraint->new(@args, parent => $self);
-}
-sub get_message {
-    my $self = shift;
-    my ($value) = @_;
-    if ($self->has_message) {
-        return $self->SUPER::get_message(@_);
-    }
-    $value = (defined $value ? overload::StrVal($value) : 'undef');
-    return "Validation failed for '" . $self->name . "' with value $value (not isa " . $self->class . ")";
-}
-1;
-# ABSTRACT: Class/TypeConstraint parallel hierarchy
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Moose::Meta::TypeConstraint::Class - Class/TypeConstraint parallel hierarchy
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-This class represents type constraints for a class.
-=head1 INHERITANCE
-C<Moose::Meta::TypeConstraint::Class> is a subclass of
-L<Moose::Meta::TypeConstraint>.
-=head1 METHODS
-=head2 Moose::Meta::TypeConstraint::Class->new(%options)
-This creates a new class type constraint based on the given
-C<%options>.
-It takes the same options as its parent, with two exceptions. First,
-it requires an additional option, C<class>, which is name of the
-constraint's class.  Second, it automatically sets the parent to the
-C<Object> type.
-The constructor also overrides the hand optimized type constraint with
-one it creates internally.
-=head2 $constraint->class
-Returns the class name associated with the constraint.
-=head2 $constraint->parents
-Returns all the type's parent types, corresponding to its parent
-classes.
-=head2 $constraint->is_subtype_of($type_name_or_object)
-If the given type is also a class type, then this checks that the
-type's class is a subclass of the other type's class.
-Otherwise it falls back to the implementation in
-L<Moose::Meta::TypeConstraint>.
-=head2 $constraint->create_child_type(%options)
-This returns a new L<Moose::Meta::TypeConstraint> object with the type
-as its parent.
-Note that it does I<not> return a
-C<Moose::Meta::TypeConstraint::Class> object!
-=head2 $constraint->get_message($value)
-This is the same as L<Moose::Meta::TypeConstraint/get_message> except
-that it explicitly says C<isa> was checked. This is to help users deal
-with accidentally autovivified type constraints.
-=head1 BUGS
-See L<Moose/BUGS> for details on reporting bugs.
-=head1 AUTHORS
-=over 4
-=item *
-Stevan Little <stevan@cpan.org>
-=item *
-Dave Rolsky <autarch@urth.org>
-=item *
-Jesse Luehrs <doy@cpan.org>
-=item *
-Shawn M Moore <sartak@cpan.org>
-=item *
-יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
-=item *
-Karen Etheridge <ether@cpan.org>
-=item *
-Florian Ragwitz <rafl@debian.org>
-=item *
-Hans Dieter Pearcey <hdp@cpan.org>
-=item *
-Chris Prather <chris@prather.org>
-=item *
-Matt S Trout <mstrout@cpan.org>
-=back
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2006 by Infinity Interactive, Inc.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut