npm - javonet-nodejs-sdk - Versions diffs - 2.5.14 → 2.5.16 - Mend

javonet-nodejs-sdk 2.5.14 → 2.5.16

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (2014) hide show

package/Binaries/Perl/Linux/X64/deps/lib/perl5/x86_64-linux-gnu-thread-multi/Class/MOP/MiniTrait.pm DELETED Viewed

@@ -1,113 +0,0 @@
-package Class::MOP::MiniTrait;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use Module::Runtime 'use_package_optimistically';
-sub apply {
-    my ( $to_class, $trait ) = @_;
-    for ( grep { !ref } $to_class, $trait ) {
-        use_package_optimistically($_);
-        $_ = Class::MOP::Class->initialize($_);
-    }
-    for my $meth ( grep { $_->package_name ne 'UNIVERSAL' } $trait->get_all_methods ) {
-        my $meth_name = $meth->name;
-        next if index($meth_name, '__') == 0;   # skip private subs
-        if ( $to_class->find_method_by_name($meth_name) ) {
-            $to_class->add_around_method_modifier( $meth_name, $meth->body );
-        }
-        else {
-            $to_class->add_method( $meth_name, $meth->clone );
-        }
-    }
-}
-# We can't load this with use, since it may be loaded and used from Class::MOP
-# (via Class::MOP::Class, etc). However, if for some reason this module is loaded
-# _without_ first loading Class::MOP we need to require Class::MOP so we can
-# use it and Class::MOP::Class.
-require Class::MOP;
-1;
-# ABSTRACT: Extremely limited trait application
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Class::MOP::MiniTrait - Extremely limited trait application
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-This package provides a single function, C<apply>, which does a half-assed job
-of applying a trait to a class. It exists solely for use inside Class::MOP and
-L<Moose> core classes.
-=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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/x86_64-linux-gnu-thread-multi/Class/MOP/Mixin/AttributeCore.pm DELETED Viewed

@@ -1,125 +0,0 @@
-package Class::MOP::Mixin::AttributeCore;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use Scalar::Util 'blessed';
-use parent 'Class::MOP::Mixin';
-sub has_accessor        { defined $_[0]->{'accessor'} }
-sub has_reader          { defined $_[0]->{'reader'} }
-sub has_writer          { defined $_[0]->{'writer'} }
-sub has_predicate       { defined $_[0]->{'predicate'} }
-sub has_clearer         { defined $_[0]->{'clearer'} }
-sub has_builder         { defined $_[0]->{'builder'} }
-sub has_init_arg        { defined $_[0]->{'init_arg'} }
-sub has_default         { exists  $_[0]->{'default'} }
-sub has_initializer     { defined $_[0]->{'initializer'} }
-sub has_insertion_order { defined $_[0]->{'insertion_order'} }
-sub _set_insertion_order { $_[0]->{'insertion_order'} = $_[1] }
-sub has_read_method  { $_[0]->has_reader || $_[0]->has_accessor }
-sub has_write_method { $_[0]->has_writer || $_[0]->has_accessor }
-sub is_default_a_coderef {
-    # Uber hack because it is called from CMOP::Attribute constructor as
-    # $class->is_default_a_coderef(\%options)
-    my ($value) = ref $_[0] ? $_[0]->{'default'} : $_[1]->{'default'};
-    return unless ref($value);
-    return ref($value) eq 'CODE'
-        || ( blessed($value) && $value->isa('Class::MOP::Method') );
-}
-sub default {
-    my ( $self, $instance ) = @_;
-    if ( defined $instance && $self->is_default_a_coderef ) {
-        # if the default is a CODE ref, then we pass in the instance and
-        # default can return a value based on that instance. Somewhat crude,
-        # but works.
-        return $self->{'default'}->($instance);
-    }
-    $self->{'default'};
-}
-1;
-# ABSTRACT: Core attributes shared by attribute metaclasses
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Class::MOP::Mixin::AttributeCore - Core attributes shared by attribute metaclasses
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-This class implements the core attributes (aka properties) shared by all
-attributes. See the L<Class::MOP::Attribute> documentation for API details.
-=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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/x86_64-linux-gnu-thread-multi/Class/MOP/Mixin/HasAttributes.pm DELETED Viewed

@@ -1,171 +0,0 @@
-package Class::MOP::Mixin::HasAttributes;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use Scalar::Util 'blessed';
-use parent 'Class::MOP::Mixin';
-sub add_attribute {
-    my $self = shift;
-    my $attribute
-        = blessed( $_[0] ) ? $_[0] : $self->attribute_metaclass->new(@_);
-    ( $attribute->isa('Class::MOP::Mixin::AttributeCore') )
-        || $self->_throw_exception( AttributeMustBeAnClassMOPMixinAttributeCoreOrSubclass => attribute  => $attribute,
-                                                                                     class_name => $self->name,
-                          );
-    $self->_attach_attribute($attribute);
-    my $attr_name = $attribute->name;
-    $self->remove_attribute($attr_name)
-        if $self->has_attribute($attr_name);
-    my $order = ( scalar keys %{ $self->_attribute_map } );
-    $attribute->_set_insertion_order($order);
-    $self->_attribute_map->{$attr_name} = $attribute;
-    # This method is called to allow for installing accessors. Ideally, we'd
-    # use method overriding, but then the subclass would be responsible for
-    # making the attribute, which would end up with lots of code
-    # duplication. Even more ideally, we'd use augment/inner, but this is
-    # Class::MOP!
-    $self->_post_add_attribute($attribute)
-        if $self->can('_post_add_attribute');
-    return $attribute;
-}
-sub has_attribute {
-    my ( $self, $attribute_name ) = @_;
-    ( defined $attribute_name )
-        || $self->_throw_exception( MustDefineAnAttributeName => class_name => $self->name );
-    exists $self->_attribute_map->{$attribute_name};
-}
-sub get_attribute {
-    my ( $self, $attribute_name ) = @_;
-    ( defined $attribute_name )
-        || $self->_throw_exception( MustDefineAnAttributeName => class_name => $self->name );
-    return $self->_attribute_map->{$attribute_name};
-}
-sub remove_attribute {
-    my ( $self, $attribute_name ) = @_;
-    ( defined $attribute_name )
-        || $self->_throw_exception( MustDefineAnAttributeName => class_name => $self->name );
-    my $removed_attribute = $self->_attribute_map->{$attribute_name};
-    return unless defined $removed_attribute;
-    delete $self->_attribute_map->{$attribute_name};
-    return $removed_attribute;
-}
-sub get_attribute_list {
-    my $self = shift;
-    keys %{ $self->_attribute_map };
-}
-sub _restore_metaattributes_from {
-    my $self = shift;
-    my ($old_meta) = @_;
-    for my $attr (sort { $a->insertion_order <=> $b->insertion_order }
-                       map { $old_meta->get_attribute($_) }
-                           $old_meta->get_attribute_list) {
-        $attr->_make_compatible_with($self->attribute_metaclass);
-        $self->add_attribute($attr);
-    }
-}
-1;
-# ABSTRACT: Methods for metaclasses which have attributes
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Class::MOP::Mixin::HasAttributes - Methods for metaclasses which have attributes
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-This class implements methods for metaclasses which have attributes
-(L<Class::MOP::Class> and L<Moose::Meta::Role>). See L<Class::MOP::Class> for
-API details.
-=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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/x86_64-linux-gnu-thread-multi/Class/MOP/Mixin/HasMethods.pm DELETED Viewed

@@ -1,304 +0,0 @@
-package Class::MOP::Mixin::HasMethods;
-our $VERSION = '2.2207';
-use strict;
-use warnings;
-use Class::MOP::Method::Meta;
-use Scalar::Util 'blessed', 'reftype';
-use Sub::Util 1.40 'set_subname';
-use parent 'Class::MOP::Mixin';
-sub _meta_method_class { 'Class::MOP::Method::Meta' }
-sub _add_meta_method {
-    my $self = shift;
-    my ($name) = @_;
-    my $existing_method = $self->can('find_method_by_name')
-                              ? $self->find_method_by_name($name)
-                              : $self->get_method($name);
-    return if $existing_method
-           && $existing_method->isa($self->_meta_method_class);
-    $self->add_method(
-        $name => $self->_meta_method_class->wrap(
-            name                 => $name,
-            package_name         => $self->name,
-            associated_metaclass => $self,
-        )
-    );
-}
-sub wrap_method_body {
-    my ( $self, %args ) = @_;
-    ( $args{body} && 'CODE' eq reftype $args{body} )
-        || $self->_throw_exception( CodeBlockMustBeACodeRef => instance => $self,
-                                                                    params   => \%args
-                                       );
-    $self->method_metaclass->wrap(
-        package_name => $self->name,
-        %args,
-    );
-}
-sub add_method {
-    my ( $self, $method_name, $method ) = @_;
-    ( defined $method_name && length $method_name )
-        || $self->_throw_exception( MustDefineAMethodName => instance => $self );
-    my $package_name = $self->name;
-    my $body;
-    if ( blessed($method) && $method->isa('Class::MOP::Method') ) {
-        $body = $method->body;
-        if ( $method->package_name ne $package_name ) {
-            $method = $method->clone(
-                package_name => $package_name,
-                name         => $method_name,
-            );
-        }
-        $method->attach_to_class($self);
-    }
-    else {
-        # If a raw code reference is supplied, its method object is not created.
-        # The method object won't be created until required.
-        $body = $method;
-    }
-    $self->_method_map->{$method_name} = $method;
-    my ($current_package, $current_name) = Class::MOP::get_code_info($body);
-    set_subname($package_name . '::' . $method_name, $body)
-        unless defined $current_name && $current_name !~ /^__ANON__/;
-    $self->add_package_symbol("&$method_name", $body);
-    # we added the method to the method map too, so it's still valid
-    $self->update_package_cache_flag;
-}
-sub _code_is_mine {
-    my ( $self, $code ) = @_;
-    my ( $code_package, $code_name ) = Class::MOP::get_code_info($code);
-    return ( $code_package && $code_package eq $self->name )
-        || ( $code_package eq 'constant' && $code_name eq '__ANON__' );
-}
-sub has_method {
-    my ( $self, $method_name ) = @_;
-    ( defined $method_name && length $method_name )
-        || $self->_throw_exception( MustDefineAMethodName => instance => $self );
-    my $method = $self->_get_maybe_raw_method($method_name);
-    return if not $method;
-    return defined($self->_method_map->{$method_name} = $method);
-}
-sub get_method {
-    my ( $self, $method_name ) = @_;
-    ( defined $method_name && length $method_name )
-        || $self->_throw_exception( MustDefineAMethodName => instance => $self );
-    my $method = $self->_get_maybe_raw_method($method_name);
-    return if not $method;
-    return $method if blessed($method) && $method->isa('Class::MOP::Method');
-    return $self->_method_map->{$method_name} = $self->wrap_method_body(
-        body                 => $method,
-        name                 => $method_name,
-        associated_metaclass => $self,
-    );
-}
-sub _get_maybe_raw_method {
-    my ( $self, $method_name ) = @_;
-    my $map_entry = $self->_method_map->{$method_name};
-    return $map_entry if defined $map_entry;
-    my $code = $self->get_package_symbol("&$method_name");
-    return unless $code && $self->_code_is_mine($code);
-    return $code;
-}
-sub remove_method {
-    my ( $self, $method_name ) = @_;
-    ( defined $method_name && length $method_name )
-        || $self->_throw_exception( MustDefineAMethodName => instance => $self );
-    my $removed_method = delete $self->_method_map->{$method_name};
-    $self->remove_package_symbol("&$method_name");
-    $removed_method->detach_from_class
-        if blessed($removed_method) && $removed_method->isa('Class::MOP::Method');
-    # still valid, since we just removed the method from the map
-    $self->update_package_cache_flag;
-    return $removed_method;
-}
-sub get_method_list {
-    my $self = shift;
-    return keys %{ $self->_full_method_map };
-}
-sub _get_local_methods {
-    my $self = shift;
-    return values %{ $self->_full_method_map };
-}
-sub _restore_metamethods_from {
-    my $self = shift;
-    my ($old_meta) = @_;
-    my $package_name = $self->name;
-    # Check if Perl debugger is enabled
-    my $debugger_enabled = ($^P & 0x10);
-    my $debug_method_info;
-    for my $method ($old_meta->_get_local_methods) {
-        my $method_name = $method->name;
-        # Track DB::sub information for this method if debugger is enabled.
-        # This contains original method filename and line numbers.
-        $debug_method_info = '';
-        if ($debugger_enabled) {
-            $debug_method_info = $DB::sub{$package_name . "::" . $method_name}
-        }
-        $method->_make_compatible_with($self->method_metaclass);
-        $self->add_method($method_name => $method);
-        # Restore method debug information, which can be clobbered by add_method.
-        # Note that we handle this here instead of in add_method, because we
-        # only want to preserve the original debug info in cases where we are
-        # restoring a method, not overwriting a method.
-        if ($debugger_enabled && $debug_method_info) {
-            $DB::sub{$package_name . "::" . $method_name} = $debug_method_info;
-        }
-    }
-}
-sub reset_package_cache_flag  { (shift)->{'_package_cache_flag'} = undef }
-sub update_package_cache_flag {
-    my $self = shift;
-    # NOTE:
-    # we can manually update the cache number
-    # since we are actually adding the method
-    # to our cache as well. This avoids us
-    # having to regenerate the method_map.
-    # - SL
-    $self->{'_package_cache_flag'} = Class::MOP::check_package_cache_flag($self->name);
-}
-sub _full_method_map {
-    my $self = shift;
-    my $pkg_gen = Class::MOP::check_package_cache_flag($self->name);
-    if (($self->{_package_cache_flag_full} || -1) != $pkg_gen) {
-        # forcibly reify all method map entries
-        $self->get_method($_)
-            for $self->list_all_package_symbols('CODE');
-        $self->{_package_cache_flag_full} = $pkg_gen;
-    }
-    return $self->_method_map;
-}
-1;
-# ABSTRACT: Methods for metaclasses which have methods
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Class::MOP::Mixin::HasMethods - Methods for metaclasses which have methods
-=head1 VERSION
-version 2.2207
-=head1 DESCRIPTION
-This class implements methods for metaclasses which have methods
-(L<Class::MOP::Class> and L<Moose::Meta::Role>). See L<Class::MOP::Class> for
-API details.
-=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