javonet-ruby-sdk 2.4.10 → 2.4.11

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Class/Load/PP.pm

@@ -1,59 +0,0 @@
-use strict;
-use warnings;
-package Class::Load::PP;
-
-our $VERSION = '0.25';
-
-use Module::Runtime ();
-use Package::Stash 0.14;
-use Scalar::Util ();
-use Try::Tiny;
-
-sub is_class_loaded {
-    my $class   = shift;
-    my $options = shift;
-
-    my $loaded = _is_class_loaded($class);
-
-    return $loaded if ! $loaded;
-    return $loaded unless $options && $options->{-version};
-
-    return try {
-        $class->VERSION($options->{-version});
-        1;
-    }
-    catch {
-        0;
-    };
-}
-
-sub _is_class_loaded {
-    my $class = shift;
-
-    return 0 unless Module::Runtime::is_module_name($class);
-
-    my $stash = Package::Stash->new($class);
-
-    if ($stash->has_symbol('$VERSION')) {
-        my $version = ${ $stash->get_symbol('$VERSION') };
-        if (defined $version) {
-            return 1 if ! ref $version;
-            # Sometimes $VERSION ends up as a reference to undef (weird)
-            return 1 if ref $version && Scalar::Util::reftype $version eq 'SCALAR' && defined ${$version};
-            # a version object
-            return 1 if Scalar::Util::blessed $version;
-        }
-    }
-
-    if ($stash->has_symbol('@ISA')) {
-        return 1 if @{ $stash->get_symbol('@ISA') };
-    }
-
-    # check for any method
-    return 1 if $stash->list_all_symbols('CODE');
-
-    # fail
-    return 0;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Class/Load.pm

@@ -1,420 +0,0 @@
-use strict;
-use warnings;
-package Class::Load; # git description: v0.24-5-g22a44fd
-# ABSTRACT: A working (require "Class::Name") and more
-# KEYWORDS: class module load require use runtime
-
-our $VERSION = '0.25';
-
-use base 'Exporter';
-use Data::OptList 0.110 ();
-use Module::Implementation 0.04;
-use Module::Runtime 0.012 ();
-use Try::Tiny;
-
-{
-    my $loader = Module::Implementation::build_loader_sub(
-        implementations => [ 'XS', 'PP' ],
-        symbols         => ['is_class_loaded'],
-    );
-
-    $loader->();
-}
-
-our @EXPORT_OK = qw/load_class load_optional_class try_load_class is_class_loaded load_first_existing_class/;
-our %EXPORT_TAGS = (
-    all => \@EXPORT_OK,
-);
-
-our $ERROR;
-
-sub load_class {
-    my $class   = shift;
-    my $options = shift;
-
-    my ($res, $e) = try_load_class($class, $options);
-    return $class if $res;
-
-    _croak($e);
-}
-
-sub load_first_existing_class {
-    my $classes = Data::OptList::mkopt(\@_)
-        or return;
-
-    foreach my $class (@{$classes}) {
-        Module::Runtime::check_module_name($class->[0]);
-    }
-
-    for my $class (@{$classes}) {
-        my ($name, $options) = @{$class};
-
-        # We need to be careful not to pass an undef $options to this sub,
-        # since the XS version will blow up if that happens.
-        return $name if is_class_loaded($name, ($options ? $options : ()));
-
-        my ($res, $e) = try_load_class($name, $options);
-
-        return $name if $res;
-
-        my $file = Module::Runtime::module_notional_filename($name);
-
-        next if $e =~ /^Can't locate \Q$file\E in \@INC/;
-        next
-            if $options
-                && defined $options->{-version}
-                && $e =~ _version_fail_re($name, $options->{-version});
-
-        _croak("Couldn't load class ($name) because: $e");
-    }
-
-    my @list = map {
-        $_->[0]
-            . ( $_->[1] && defined $_->[1]{-version}
-            ? " (version >= $_->[1]{-version})"
-            : q{} )
-    } @{$classes};
-
-    my $err
-        .= q{Can't locate }
-        . _or_list(@list)
-        . " in \@INC (\@INC contains: @INC).";
-    _croak($err);
-}
-
-sub _version_fail_re {
-    my $name = shift;
-    my $vers = shift;
-
-    return qr/\Q$name\E version \Q$vers\E required--this is only version/;
-}
-
-sub _nonexistent_fail_re {
-    my $name = shift;
-
-    my $file = Module::Runtime::module_notional_filename($name);
-    return qr/Can't locate \Q$file\E in \@INC/;
-}
-
-sub _or_list {
-    return $_[0] if @_ == 1;
-
-    return join ' or ', @_ if @_ ==2;
-
-    my $last = pop;
-
-    my $list = join ', ', @_;
-    $list .= ', or ' . $last;
-
-    return $list;
-}
-
-sub load_optional_class {
-    my $class   = shift;
-    my $options = shift;
-
-    Module::Runtime::check_module_name($class);
-
-    my ($res, $e) = try_load_class($class, $options);
-    return 1 if $res;
-
-    return 0
-        if $options
-            && defined $options->{-version}
-            && $e =~ _version_fail_re($class, $options->{-version});
-
-    return 0
-        if $e =~ _nonexistent_fail_re($class);
-
-    _croak($e);
-}
-
-sub try_load_class {
-    my $class   = shift;
-    my $options = shift;
-
-    Module::Runtime::check_module_name($class);
-
-    local $@;
-    undef $ERROR;
-
-    if (is_class_loaded($class)) {
-        # We need to check this here rather than in is_class_loaded() because
-        # we want to return the error message for a failed version check, but
-        # is_class_loaded just returns true/false.
-        return 1 unless $options && defined $options->{-version};
-        return try {
-            $class->VERSION($options->{-version});
-            1;
-        }
-        catch {
-            _error($_);
-        };
-    }
-
-    my $file = Module::Runtime::module_notional_filename($class);
-    # This says "our diagnostics of the package
-    # say perl's INC status about the file being loaded are
-    # wrong", so we delete it from %INC, so when we call require(),
-    # perl will *actually* try reloading the file.
-    #
-    # If the file is already in %INC, it won't retry,
-    # And on 5.8, it won't fail either!
-    #
-    # The extra benefit of this trick, is it helps even on
-    # 5.10, as instead of dying with "Compilation failed",
-    # it will die with the actual error, and that's a win-win.
-    delete $INC{$file};
-    return try {
-        local $SIG{__DIE__} = 'DEFAULT';
-        if ($options && defined $options->{-version}) {
-            Module::Runtime::use_module($class, $options->{-version});
-        }
-        else {
-            Module::Runtime::require_module($class);
-        }
-        1;
-    }
-    catch {
-        _error($_);
-    };
-}
-
-sub _error {
-    my $e = shift;
-
-    $e =~ s/ at .+?Runtime\.pm line [0-9]+\.$//;
-    chomp $e;
-
-    $ERROR = $e;
-    return 0 unless wantarray;
-    return 0, $ERROR;
-}
-
-sub _croak {
-    require Carp;
-    local $Carp::CarpLevel = $Carp::CarpLevel + 2;
-    Carp::croak(shift);
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Class::Load - A working (require "Class::Name") and more
-
-=head1 VERSION
-
-version 0.25
-
-=head1 SYNOPSIS
-
-    use Class::Load ':all';
-
-    try_load_class('Class::Name')
-        or plan skip_all => "Class::Name required to run these tests";
-
-    load_class('Class::Name');
-
-    is_class_loaded('Class::Name');
-
-    my $baseclass = load_optional_class('Class::Name::MightExist')
-        ? 'Class::Name::MightExist'
-        : 'Class::Name::Default';
-
-=head1 DESCRIPTION
-
-C<require EXPR> only accepts C<Class/Name.pm> style module names, not
-C<Class::Name>. How frustrating! For that, we provide
-C<load_class 'Class::Name'>.
-
-It's often useful to test whether a module can be loaded, instead of throwing
-an error when it's not available. For that, we provide
-C<try_load_class 'Class::Name'>.
-
-Finally, sometimes we need to know whether a particular class has been loaded.
-Asking C<%INC> is an option, but that will miss inner packages and any class
-for which the filename does not correspond to the package name. For that, we
-provide C<is_class_loaded 'Class::Name'>.
-
-=head1 FUNCTIONS
-
-=head2 load_class Class::Name, \%options
-
-C<load_class> will load C<Class::Name> or throw an error, much like C<require>.
-
-If C<Class::Name> is already loaded (checked with C<is_class_loaded>) then it
-will not try to load the class. This is useful when you have inner packages
-which C<require> does not check.
-
-The C<%options> hash currently accepts one key, C<-version>. If you specify a
-version, then this subroutine will call C<< Class::Name->VERSION(
-$options{-version} ) >> internally, which will throw an error if the class's
-version is not equal to or greater than the version you requested.
-
-This method will return the name of the class on success.
-
-=head2 try_load_class Class::Name, \%options -> (0|1, error message)
-
-Returns 1 if the class was loaded, 0 if it was not. If the class was not
-loaded, the error will be returned as a second return value in list context.
-
-Again, if C<Class::Name> is already loaded (checked with C<is_class_loaded>)
-then it will not try to load the class. This is useful when you have inner
-packages which C<require> does not check.
-
-Like C<load_class>, you can pass a C<-version> in C<%options>. If the version
-is not sufficient, then this subroutine will return false.
-
-=head2 is_class_loaded Class::Name, \%options -> 0|1
-
-This uses a number of heuristics to determine if the class C<Class::Name> is
-loaded. There heuristics were taken from L<Class::MOP>'s old pure-perl
-implementation.
-
-Like C<load_class>, you can pass a C<-version> in C<%options>. If the version
-is not sufficient, then this subroutine will return false.
-
-=head2 load_first_existing_class Class::Name, \%options, ...
-
-This attempts to load the first loadable class in the list of classes
-given. Each class name can be followed by an options hash reference.
-
-If any one of the classes loads and passes the optional version check, that
-class name will be returned. If I<none> of the classes can be loaded (or none
-pass their version check), then an error will be thrown.
-
-If, when attempting to load a class, it fails to load because of a syntax
-error, then an error will be thrown immediately.
-
-=head2 load_optional_class Class::Name, \%options -> 0|1
-
-C<load_optional_class> is a lot like C<try_load_class>, but also a lot like
-C<load_class>.
-
-If the class exists, and it works, then it will return 1. If you specify a
-version in C<%options>, then the version check must succeed or it will return
-0.
-
-If the class doesn't exist, and it appears to not exist on disk either, it
-will return 0.
-
-If the class exists on disk, but loading from disk results in an error
-(e.g.: a syntax error), then it will C<croak> with that error.
-
-This is useful for using if you want a fallback module system, i.e.:
-
-    my $class = load_optional_class($foo) ? $foo : $default;
-
-That way, if $foo does exist, but can't be loaded due to error, you won't
-get the behaviour of it simply not existing.
-
-=head1 CAVEATS
-
-Because of some of the heuristics that this module uses to infer whether a
-module has been loaded, some false positives may occur in C<is_class_loaded>
-checks (which are also performed internally in other interfaces) -- if a class
-has started to be loaded but then dies, it may appear that it has already been
-loaded, which can cause other things to make the wrong decision.
-L<Module::Runtime> doesn't have this issue, but it also doesn't do some things
-that this module does -- for example gracefully handle packages that have been
-defined inline in the same file as another package.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<http://blog.fox.geek.nz/2010/11/searching-design-spec-for-ultimate.html>
-
-This blog post is a good overview of the current state of the existing modules
-for loading other modules in various ways.
-
-=item L<http://blog.fox.geek.nz/2010/11/handling-optional-requirements-with.html>
-
-This blog post describes how to handle optional modules with L<Class::Load>.
-
-=item L<http://d.hatena.ne.jp/tokuhirom/20110202/1296598578>
-
-This Japanese blog post describes why L<DBIx::Skinny> now uses L<Class::Load>
-over its competitors.
-
-=item L<Moose>, L<Jifty>, L<Prophet>, etc
-
-This module was designed to be used anywhere you have
-C<if (eval "require $module"; 1)>, which occurs in many large projects.
-
-=item L<Module::Runtime>
-
-A leaner approach to loading modules
-
-=back
-
-=head1 SUPPORT
-
-Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Class-Load>
-(or L<bug-Class-Load@rt.cpan.org|mailto:bug-Class-Load@rt.cpan.org>).
-
-There is also a mailing list available for users of this distribution, at
-L<http://lists.perl.org/list/moose.html>.
-
-There is also an irc channel available for users of this distribution, at
-L<C<#moose> on C<irc.perl.org>|irc://irc.perl.org/#moose>.
-
-=head1 AUTHOR
-
-Shawn M Moore <sartak at bestpractical.com>
-
-=head1 CONTRIBUTORS
-
-=for stopwords Dave Rolsky Karen Etheridge Shawn Moore Jesse Luehrs Kent Fredric Paul Howarth Olivier Mengué Caleb Cushing
-
-=over 4
-
-=item *
-
-Dave Rolsky <autarch@urth.org>
-
-=item *
-
-Karen Etheridge <ether@cpan.org>
-
-=item *
-
-Shawn Moore <sartak@bestpractical.com>
-
-=item *
-
-Jesse Luehrs <doy@tozt.net>
-
-=item *
-
-Kent Fredric <kentfredric@gmail.com>
-
-=item *
-
-Paul Howarth <paul@city-fan.org>
-
-=item *
-
-Olivier Mengué <dolmen@cpan.org>
-
-=item *
-
-Caleb Cushing <xenoterracide@gmail.com>
-
-=back
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2008 by Shawn M Moore.
-
-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/Data/Cmp/Numeric.pm

@@ -1,188 +0,0 @@
-package Data::Cmp::Numeric;
-
-our $DATE = '2021-04-12'; # DATE
-our $VERSION = '0.010'; # VERSION
-
-use 5.010001;
-use strict;
-use warnings;
-
-use Scalar::Util qw(blessed reftype refaddr);
-
-require Exporter;
-our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(cmp_data);
-
-our $EPSILON;
-
-# for when dealing with circular refs
-my %_seen_refaddrs;
-
-sub _cmp_data {
-    my $d1 = shift;
-    my $d2 = shift;
-
-    my $def1 = defined $d1;
-    my $def2 = defined $d2;
-    if ($def1) {
-        return 1 if !$def2;
-    } else {
-        return $def2 ? -1 : 0;
-    }
-
-    # so both are defined ...
-
-    my $reftype1 = reftype($d1);
-    my $reftype2 = reftype($d2);
-    if (!$reftype1 && !$reftype2) {
-        if (defined $EPSILON && abs($d1 - $d2) < $EPSILON) {
-            return 0;
-        } else {
-            return $d1 <=> $d2;
-        }
-    } elsif ( $reftype1 xor $reftype2) { return 2 }
-
-    # so both are refs ...
-
-    return 2 if $reftype1 ne $reftype2;
-
-    # so both are refs of the same type ...
-
-    my $pkg1 = blessed($d1);
-    my $pkg2 = blessed($d2);
-    if (defined $pkg1) {
-        return 2 unless defined $pkg2 && $pkg1 eq $pkg2;
-    } else {
-        return 2 if defined $pkg2;
-    }
-
-    # so both are non-objects or objects of the same class ...
-
-    my $refaddr1 = refaddr($d1);
-    my $refaddr2 = refaddr($d2);
-
-    if ($reftype1 eq 'ARRAY' && !$_seen_refaddrs{$refaddr1} && !$_seen_refaddrs{$refaddr2}) {
-        $_seen_refaddrs{$refaddr1}++;
-        $_seen_refaddrs{$refaddr2}++;
-      ELEM:
-        for my $i (0..($#{$d1} < $#{$d2} ? $#{$d1} : $#{$d2})) {
-            my $cmpres = _cmp_data($d1->[$i], $d2->[$i]);
-            return $cmpres if $cmpres;
-        }
-        return $#{$d1} <=> $#{$d2};
-    } elsif ($reftype1 eq 'HASH' && !$_seen_refaddrs{$refaddr1} && !$_seen_refaddrs{$refaddr2}) {
-        $_seen_refaddrs{$refaddr1}++;
-        $_seen_refaddrs{$refaddr2}++;
-        my $nkeys1 = keys %$d1;
-        my $nkeys2 = keys %$d2;
-      KEY:
-        for my $k (sort keys %$d1) {
-            unless (exists $d2->{$k}) { return $nkeys1 <=> $nkeys2 || 2 }
-            my $cmpres = _cmp_data($d1->{$k}, $d2->{$k});
-            return $cmpres if $cmpres;
-        }
-        return $nkeys1 <=> $nkeys2;
-    } else {
-        return $refaddr1 == $refaddr2 ? 0 : 2;
-    }
-}
-
-sub cmp_data {
-    my $d1 = shift;
-    my $d2 = shift;
-
-    %_seen_refaddrs = ();
-    _cmp_data($d1, $d2);
-}
-
-1;
-# ABSTRACT: Compare two data structures, return -1/0/1 like <=>
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Data::Cmp::Numeric - Compare two data structures, return -1/0/1 like <=>
-
-=head1 VERSION
-
-This document describes version 0.010 of Data::Cmp::Numeric (from Perl distribution Data-Cmp), released on 2021-04-12.
-
-=head1 SYNOPSIS
-
- use Data::Cmp::Numeric qw(cmp_data);
-
- cmp_data([0, 1, 10], [0, 1, 9]);                       # =>  1
-
-Contrasted with L<Data::Cmp>:
-
- use Data::Cmp ();
- Data::Cmp::cmp_data([0, 1, 10], [0, 1, 9]);            # => -1
-
-Perform numeric comparison with some tolerance:
-
- {
-     local $Data::Cmp::Numeric::EPSILON = 1e-3;
-     cmp_data(1, 1.1   );     # -1
-     cmp_data(1, 1.0001);     #  0
-     cmp_data([1], [1.0001]); #  0
- }
-
-=head1 DESCRIPTION
-
-=head1 VARIABLES
-
-=head2 $EPSILON
-
-Can be set to perform numeric comparison with some tolerance. See example in
-Synopsis.
-
-=head1 FUNCTIONS
-
-=head2 cmp_data
-
-Usage:
-
- cmp_data($d1, $d2) => -1/0/1/2
-
-This module's C<cmp_data()> is just like L<Data::Cmp>'s except that two defined
-non-reference values are compared using Perl's C<< <=> >> instead of C<cmp>.
-
-=head1 HOMEPAGE
-
-Please visit the project's homepage at L<https://metacpan.org/release/Data-Cmp>.
-
-=head1 SOURCE
-
-Source repository is at L<https://github.com/perlancar/perl-Data-Cmp>.
-
-=head1 BUGS
-
-Please report any bugs or feature requests on the bugtracker website L<https://github.com/perlancar/perl-Data-Cmp/issues>
-
-When submitting a bug or request, please include a test-file or a
-patch to an existing test-file that illustrates the bug or desired
-feature.
-
-=head1 SEE ALSO
-
-L<Data::Cmp>
-
-L<Data::Cmp::StrOrNumeric>
-
-=head1 AUTHOR
-
-perlancar <perlancar@cpan.org>
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2021, 2019, 2018 by perlancar@cpan.org.
-
-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