javonet-ruby-sdk 2.4.10 → 2.4.11

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Eval/Closure.pm

@@ -1,379 +0,0 @@
-package Eval::Closure;
-BEGIN {
-  $Eval::Closure::AUTHORITY = 'cpan:DOY';
-}
-$Eval::Closure::VERSION = '0.14';
-use strict;
-use warnings;
-# ABSTRACT: safely and cleanly create closures via string eval
-
-use Exporter 'import';
-@Eval::Closure::EXPORT = @Eval::Closure::EXPORT_OK = 'eval_closure';
-
-use Carp;
-use overload ();
-use Scalar::Util qw(reftype);
-
-use constant HAS_LEXICAL_SUBS => $] >= 5.018;
-
-
-
-sub eval_closure {
-    my (%args) = @_;
-
-    # default to copying environment
-    $args{alias} = 0 if !exists $args{alias};
-
-    $args{source} = _canonicalize_source($args{source});
-    _validate_env($args{environment} ||= {});
-
-    $args{source} = _line_directive(@args{qw(line description)})
-                  . $args{source}
-        if defined $args{description} && !($^P & 0x10);
-
-    my ($code, $e) = _clean_eval_closure(@args{qw(source environment alias)});
-
-    if (!$code) {
-        if ($args{terse_error}) {
-            die "$e\n";
-        }
-        else {
-            croak("Failed to compile source: $e\n\nsource:\n$args{source}")
-        }
-    }
-
-    return $code;
-}
-
-sub _canonicalize_source {
-    my ($source) = @_;
-
-    if (defined($source)) {
-        if (ref($source)) {
-            if (reftype($source) eq 'ARRAY'
-             || overload::Method($source, '@{}')) {
-                return join "\n", @$source;
-            }
-            elsif (overload::Method($source, '""')) {
-                return "$source";
-            }
-            else {
-                croak("The 'source' parameter to eval_closure must be a "
-                    . "string or array reference");
-            }
-        }
-        else {
-            return $source;
-        }
-    }
-    else {
-        croak("The 'source' parameter to eval_closure is required");
-    }
-}
-
-sub _validate_env {
-    my ($env) = @_;
-
-    croak("The 'environment' parameter must be a hashref")
-        unless reftype($env) eq 'HASH';
-
-    for my $var (keys %$env) {
-        if (HAS_LEXICAL_SUBS) {
-            croak("Environment key '$var' should start with \@, \%, \$, or \&")
-                if index('$@%&', substr($var, 0, 1)) < 0;
-        }
-        else {
-            croak("Environment key '$var' should start with \@, \%, or \$")
-                if index('$@%', substr($var, 0, 1)) < 0;
-        }
-        croak("Environment values must be references, not $env->{$var}")
-            unless ref($env->{$var});
-    }
-}
-
-sub _line_directive {
-    my ($line, $description) = @_;
-
-    $line = 1 unless defined($line);
-
-    return qq{#line $line "$description"\n};
-}
-
-sub _clean_eval_closure {
-    my ($source, $captures, $alias) = @_;
-
-    my @capture_keys = keys %$captures;
-
-    if ($ENV{EVAL_CLOSURE_PRINT_SOURCE}) {
-        _dump_source(_make_compiler_source($source, $alias, @capture_keys));
-    }
-
-    my ($compiler, $e) = _make_compiler($source, $alias, @capture_keys);
-    return (undef, $e) unless defined $compiler;
-
-    my $code = $compiler->(@$captures{@capture_keys});
-
-    if (!defined $code) {
-        return (
-            undef,
-            "The 'source' parameter must return a subroutine reference, "
-            . "not undef"
-        )
-    }
-    if (!ref($code) || ref($code) ne 'CODE') {
-        return (
-            undef,
-            "The 'source' parameter must return a subroutine reference, not "
-            . ref($code)
-        )
-    }
-
-    if ($alias) {
-        require Devel::LexAlias;
-        Devel::LexAlias::lexalias($code, $_, $captures->{$_})
-            for grep substr($_, 0, 1) ne '&', @capture_keys;
-    }
-
-    return ($code, $e);
-}
-
-sub _make_compiler {
-    my $source = _make_compiler_source(@_);
-
-    _clean_eval($source)
-}
-
-sub _clean_eval {
-    local $@;
-    local $SIG{__DIE__};
-    my $compiler = eval $_[0];
-    my $e = $@;
-    ( $compiler, $e )
-}
-
-$Eval::Closure::SANDBOX_ID = 0;
-
-sub _make_compiler_source {
-    my ($source, $alias, @capture_keys) = @_;
-    $Eval::Closure::SANDBOX_ID++;
-    my $i = 0;
-    return join "\n", (
-        "package Eval::Closure::Sandbox_$Eval::Closure::SANDBOX_ID;",
-        'sub {',
-            (map { _make_lexical_assignment($_, $i++, $alias) } @capture_keys),
-            $source,
-        '}',
-    );
-}
-
-sub _make_lexical_assignment {
-    my ($key, $index, $alias) = @_;
-    my $sigil = substr($key, 0, 1);
-    my $name = substr($key, 1);
-    if (HAS_LEXICAL_SUBS && $sigil eq '&') {
-        my $tmpname = '$__' . $name . '__' . $index;
-        return 'use feature "lexical_subs"; '
-             . 'no warnings "experimental::lexical_subs"; '
-             . 'my ' . $tmpname . ' = $_[' . $index . ']; '
-             . 'my sub ' . $name . ' { goto ' . $tmpname . ' }';
-    }
-    if ($alias) {
-        return 'my ' . $key . ';';
-    }
-    else {
-        return 'my ' . $key . ' = ' . $sigil . '{$_[' . $index . ']};';
-    }
-}
-
-sub _dump_source {
-    my ($source) = @_;
-
-    my $output;
-    local $@;
-    if (eval { require Perl::Tidy; 1 }) {
-        Perl::Tidy::perltidy(
-            source      => \$source,
-            destination => \$output,
-            argv        => [],
-        );
-    }
-    else {
-        $output = $source;
-    }
-
-    warn "$output\n";
-}
-
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Eval::Closure - safely and cleanly create closures via string eval
-
-=head1 VERSION
-
-version 0.14
-
-=head1 SYNOPSIS
-
-  use Eval::Closure;
-
-  my $code = eval_closure(
-      source      => 'sub { $foo++ }',
-      environment => {
-          '$foo' => \1,
-      },
-  );
-
-  warn $code->(); # 1
-  warn $code->(); # 2
-
-  my $code2 = eval_closure(
-      source => 'sub { $code->() }',
-  ); # dies, $code isn't in scope
-
-=head1 DESCRIPTION
-
-String eval is often used for dynamic code generation. For instance, C<Moose>
-uses it heavily, to generate inlined versions of accessors and constructors,
-which speeds code up at runtime by a significant amount. String eval is not
-without its issues however - it's difficult to control the scope it's used in
-(which determines which variables are in scope inside the eval), and it's easy
-to miss compilation errors, since eval catches them and sticks them in $@
-instead.
-
-This module attempts to solve these problems. It provides an C<eval_closure>
-function, which evals a string in a clean environment, other than a fixed list
-of specified variables. Compilation errors are rethrown automatically.
-
-=head1 FUNCTIONS
-
-=head2 eval_closure(%args)
-
-This function provides the main functionality of this module. It is exported by
-default. It takes a hash of parameters, with these keys being valid:
-
-=over 4
-
-=item source
-
-The string to be evaled. It should end by returning a code reference. It can
-access any variable declared in the C<environment> parameter (and only those
-variables). It can be either a string, or an arrayref of lines (which will be
-joined with newlines to produce the string).
-
-=item environment
-
-The environment to provide to the eval. This should be a hashref, mapping
-variable names (including sigils) to references of the appropriate type. For
-instance, a valid value for environment would be C<< { '@foo' => [] } >> (which
-would allow the generated function to use an array named C<@foo>). Generally,
-this is used to allow the generated function to access externally defined
-variables (so you would pass in a reference to a variable that already exists).
-
-In perl 5.18 and greater, the environment hash can contain variables with a
-sigil of C<&>. This will create a lexical sub in the evaluated code (see
-L<feature/The 'lexical_subs' feature>). Using a C<&> sigil on perl versions
-before lexical subs were available will throw an error.
-
-=item alias
-
-If set to true, the coderef returned closes over the variables referenced in
-the environment hashref. (This feature requires L<Devel::LexAlias>.) If set to
-false, the coderef closes over a I<< shallow copy >> of the variables.
-
-If this argument is omitted, Eval::Closure will currently assume false, but
-this assumption may change in a future version.
-
-=item description
-
-This lets you provide a bit more information in backtraces. Normally, when a
-function that was generated through string eval is called, that stack frame
-will show up as "(eval n)", where 'n' is a sequential identifier for every
-string eval that has happened so far in the program. Passing a C<description>
-parameter lets you override that to something more useful (for instance,
-L<Moose> overrides the description for accessors to something like "accessor
-foo at MyClass.pm, line 123").
-
-=item line
-
-This lets you override the particular line number that appears in backtraces,
-much like the C<description> option. The default is 1.
-
-=item terse_error
-
-Normally, this function appends the source code that failed to compile, and
-prepends some explanatory text. Setting this option to true suppresses that
-behavior so you get only the compilation error that Perl actually reported.
-
-=back
-
-=head1 BUGS
-
-No known bugs.
-
-Please report any bugs to GitHub Issues at
-L<https://github.com/doy/eval-closure/issues>.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item * L<Class::MOP::Method::Accessor>
-
-This module is a factoring out of code that used to live here
-
-=back
-
-=head1 SUPPORT
-
-You can find this documentation for this module with the perldoc command.
-
-    perldoc Eval::Closure
-
-You can also look for information at:
-
-=over 4
-
-=item * MetaCPAN
-
-L<https://metacpan.org/release/Eval-Closure>
-
-=item * Github
-
-L<https://github.com/doy/eval-closure>
-
-=item * RT: CPAN's request tracker
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Eval-Closure>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Eval-Closure>
-
-=back
-
-=head1 NOTES
-
-Based on code from L<Class::MOP::Method::Accessor>, by Stevan Little and the
-Moose Cabal.
-
-=head1 AUTHOR
-
-Jesse Luehrs <doy@tozt.net>
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2016 by Jesse Luehrs.
-
-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/ExtUtils/Config/MakeMaker.pm

@@ -1,141 +0,0 @@
-package ExtUtils::Config::MakeMaker;
-$ExtUtils::Config::MakeMaker::VERSION = '0.010';
-use strict;
-use warnings;
-
-use ExtUtils::MakeMaker::Config;
-
-sub new {
-    my ($class, $maker) = @_;
-    return bless { maker => $maker }, $class;
-}
-
-sub get {
-    my ($self, $key) = @_;
-    return exists $self->{maker}{uc $key} ? $self->{maker}{uc $key} : $Config{$key};
-}
-
-sub exists {
-    my ($self, $key) = @_;
-	return exists $Config{$key};
-}
-
-sub all_config {
-	my $self = shift;
-	my %result;
-	for my $key (keys %Config) {
-		$result{$key} = $self->get($key);
-	}
-	return \%result;
-}
-
-sub values_set {
-	my $self = shift;
-	my %result;
-	for my $key (keys %Config) {
-		next if not exists $self->{maker}{uc $key};
-		next if $self->{maker}{uc $key} eq $Config{$key};
-		$result{$key} = $self->{maker}{uc $key};
-	}
-	return \%result;
-}
-
-sub serialize {
-	my $self = shift;
-	require Data::Dumper;
-	return $self->{serialized} ||= Data::Dumper->new($self->values_set)->Terse(1)->Sortkeys(1)->Dump;
-}
-
-sub materialize {
-	my $self = shift;
-	require ExtUtils::Config;
-	return ExtUtils::Config->new($self->values_set);
-}
-
-sub but {
-	my ($self, %args) = @_;
-	return $self->materialize->but(%args);
-}
-
-1;
-
-#ABSTRACT: A ExtUtils::Config compatible wrapper for ExtUtils::MakeMaker's configuration.
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-ExtUtils::Config::MakeMaker - A ExtUtils::Config compatible wrapper for ExtUtils::MakeMaker's configuration.
-
-=head1 VERSION
-
-version 0.010
-
-=head1 SYNOPSIS
-
- my $config = ExtUtils::Config::MakeMaker->new($makemaker);
-
-=head1 DESCRIPTION
-
-This object wraps L<ExtUtils::MakeMaker|ExtUtils::MakeMaker>'s idea of configuration in an L<ExtUtils::Config|ExtUtils::Config> compatible interface. That means that if you pass a configuration argument to or in Makefile.PL (e.g. C<OPTIMIZE=-O3>) it will show up in the config object (e.g. C<$config->get('optimize')>.
-
-=head1 METHODS
-
-=head2 new($makemaker)
-
-This creates a new C<ExtUtils::Config::MakeMaker> object from a MakeMaker object.
-
-=head2 get($key)
-
-Get the value of C<$key>. If not overridden it will return the value in %Config.
-
-=head2 exists($key)
-
-Tests for the existence of $key.
-
-=head2 values_set()
-
-Get a hashref of all overridden values.
-
-=head2 all_config()
-
-Get a hashref of the complete configuration, including overrides.
-
-=head2 serialize()
-
-This method serializes the object to some kind of string. This can be useful for various caching purposes.
-
-=head2 materialize()
-
-This turns this object into an actual C<ExtUtils::Config> object.
-
-=head2 but(%config)
-
-This returns a C<ExtUtils::Config> object based on the current one but with the given entries overriden. If any value is C<undef> it will revert to the official C<%Config> value instead.
-
-=head1 AUTHORS
-
-=over 4
-
-=item *
-
-Ken Williams <kwilliams@cpan.org>
-
-=item *
-
-Leon Timmermans <leont@cpan.org>
-
-=back
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2006 by Ken Williams, Leon Timmermans.
-
-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/ExtUtils/Config.pm

@@ -1,152 +0,0 @@
-package ExtUtils::Config;
-$ExtUtils::Config::VERSION = '0.010';
-use strict;
-use warnings;
-use Config;
-
-sub new {
-	my ($pack, $args) = @_;
-	return bless {
-		values => ($args ? { %$args } : {}),
-	}, $pack;
-}
-
-sub get {
-	my ($self, $key) = @_;
-	return exists $self->{values}{$key} ? $self->{values}{$key} : $Config{$key};
-}
-
-sub exists {
-	my ($self, $key) = @_;
-	return exists $self->{values}{$key} || exists $Config{$key};
-}
-
-sub values_set {
-	my $self = shift;
-	return { %{$self->{values}} };
-}
-
-sub all_config {
-	my $self = shift;
-	return { %Config, %{ $self->{values}} };
-}
-
-sub serialize {
-	my $self = shift;
-	require Data::Dumper;
-	return $self->{serialized} ||= Data::Dumper->new([ $self->{values} ])->Terse(1)->Sortkeys(1)->Dump;
-}
-
-sub but {
-	my ($self, $args) = @_;
-	my %new = %{ $self->{values} };
-	for my $key (keys %$args) {
-		if (defined $args->{$key}) {
-			$new{$key} = $args->{$key}
-		}
-		else {
-			delete $new{$key};
-		}
-	}
-	return bless { values => \%new }, ref $self;
-}
-
-1;
-
-# ABSTRACT: A wrapper for perl's configuration
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-ExtUtils::Config - A wrapper for perl's configuration
-
-=head1 VERSION
-
-version 0.010
-
-=head1 SYNOPSIS
-
- my $config = ExtUtils::Config->new();
- $config->get('installsitelib');
-
-=head1 DESCRIPTION
-
-ExtUtils::Config is an abstraction around the %Config hash. By itself it is not a particularly interesting module by any measure, however it ties together a family of modern toolchain modules.
-
-=head1 METHODS
-
-=head2 new(\%config)
-
-Create a new ExtUtils::Config object. The values in C<\%config> are used to initialize the object.
-
-=head2 get($key)
-
-Get the value of C<$key>. If not overridden it will return the value in %Config.
-
-=head2 exists($key)
-
-Tests for the existence of $key.
-
-=head2 but(\%keys)
-
-This creates a new C<ExtUtils::Config> object based on the current one, but with the values in %keys replacing the current values. Any undefined value means it will be removed from the overriden set.
-
-=head2 values_set()
-
-Get a hashref of all overridden values.
-
-=head2 all_config()
-
-Get a hashref of the complete configuration, including overrides.
-
-=head2 serialize()
-
-This method serializes the object to some kind of string. This can be useful for various caching purposes.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item * L<Module::Build::Tiny>
-
-=item * L<ExtUtils::InstallPaths>
-
-=item * L<CPAN::Static::Install>
-
-=item * L<ExtUtils::HasCompiler>
-
-=item * L<ExtUtils::Builder>
-
-=item * L<CPAN::Requirements::Dynamic>
-
-=item * L<Devel::FindPerl>
-
-=back
-
-=head1 AUTHORS
-
-=over 4
-
-=item *
-
-Ken Williams <kwilliams@cpan.org>
-
-=item *
-
-Leon Timmermans <leont@cpan.org>
-
-=back
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2006 by Ken Williams, Leon Timmermans.
-
-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