javonet-nodejs-sdk 2.0.1 → 2.0.4

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/Alien/Build/Interpolate.pm

@@ -1,387 +0,0 @@
-package Alien::Build::Interpolate;
-
-use strict;
-use warnings;
-use 5.008004;
-
-# ABSTRACT: Advanced interpolation engine for Alien builds
-our $VERSION = '2.77'; # VERSION
-
-
-sub new
-{
-  my($class) = @_;
-  my $self = bless {
-    helper  => {},
-    classes => {},
-  }, $class;
-  $self;
-}
-
-
-sub add_helper
-{
-  my $self = shift;
-  my $name = shift;
-  my $code = shift;
-
-  if(defined $self->{helper}->{$name})
-  {
-    require Carp;
-    Carp::croak("duplicate implementation for interpolated key $name");
-  }
-
-  my $require;
-
-  if(ref $_[0] eq 'CODE')
-  {
-    $require = shift;
-  }
-  else
-  {
-    $require = [];
-    while(@_)
-    {
-      my $module = shift;
-      my $version = shift;
-      $version ||= 0;
-      push @$require, $module => $version;
-    }
-  }
-
-  $self->{helper}->{$name} = Alien::Build::Helper->new(
-    $name,
-    $code,
-    $require,
-  );
-}
-
-
-sub replace_helper
-{
-  my $self = shift;
-  my($name) = @_;
-  delete $self->{helper}->{$name};
-  $self->add_helper(@_);
-}
-
-
-sub has_helper
-{
-  my($self, $name) = @_;
-
-  return unless defined $self->{helper}->{$name};
-
-  my @require = $self->{helper}->{$name}->require;
-
-  while(@require)
-  {
-    my $module  = shift @require;
-    my $version = shift @require;
-
-    {
-      my $pm = "$module.pm";
-      $pm =~ s/::/\//g;
-      require $pm;
-      $module->VERSION($version) if $version;
-    }
-
-    unless($self->{classes}->{$module})
-    {
-      if($module->can('alien_helper'))
-      {
-        my $helpers = $module->alien_helper;
-        foreach my $k (keys %$helpers)
-        {
-          $self->{helper}->{$k}->code($helpers->{$k});
-        }
-      }
-      $self->{classes}->{$module} = 1;
-    }
-  }
-
-  my $code = $self->{helper}->{$name}->code;
-
-  return unless defined $code;
-
-  if(ref($code) ne 'CODE')
-  {
-    my $perl = $code;
-    package Alien::Build::Interpolate::Helper;
-    $code = sub {
-      ##  no critic
-      my $value = eval $perl;
-      ## use critic
-      die $@ if $@;
-      $value;
-    };
-  }
-
-  $code;
-}
-
-
-sub execute_helper
-{
-  my($self, $name) = @_;
-
-  my $code = $self->has_helper($name);
-  die "no helper defined for $name" unless defined $code;
-
-  $code->();
-}
-
-
-sub _get_prop
-{
-  my($name, $prop, $orig) = @_;
-
-  $name =~ s/^\./alien./;
-
-  if($name =~ /^(.*?)\.(.*)$/)
-  {
-    my($key,$rest) = ($1,$2);
-    return _get_prop($rest, $prop->{$key}, $orig);
-  }
-  elsif(exists $prop->{$name})
-  {
-    return $prop->{$name};
-  }
-  else
-  {
-    require Carp;
-    Carp::croak("No property $orig is defined");
-  }
-}
-
-sub interpolate
-{
-  my($self, $string, $build) = @_;
-
-  my $prop = defined $build && eval { $build->isa('Alien::Build') }
-  ? $build->_command_prop
-  : {};
-
-  $string =~ s{(?<!\%)\%\{([a-zA-Z_][a-zA-Z_0-9]+)\}}{$self->execute_helper($1)}eg;
-  $string =~ s{(?<!\%)\%\{([a-zA-Z_\.][a-zA-Z_0-9\.]+)\}}{_get_prop($1,$prop,$1)}eg;
-  $string =~ s/\%(?=\%)//g;
-  $string;
-}
-
-
-sub requires
-{
-  my($self, $string) = @_;
-  map {
-    my $helper = $self->{helper}->{$_};
-    $helper ? $helper->require : ();
-  } $string =~ m{(?<!\%)\%\{([a-zA-Z_][a-zA-Z_0-9]+)\}}g;
-}
-
-
-sub clone
-{
-  my($self) = @_;
-
-  require Storable;
-
-  my %helper;
-  foreach my $name (keys %{ $self->{helper} })
-  {
-    $helper{$name} = $self->{helper}->{$name}->clone;
-  }
-
-  my $new = bless {
-    helper => \%helper,
-    classes => Storable::dclone($self->{classes}),
-  }, ref $self;
-}
-
-package Alien::Build::Helper;
-
-sub new
-{
-  my($class, $name, $code, $require) = @_;
-  bless {
-    name    => $name,
-    code    => $code,
-    require => $require,
-  }, $class;
-}
-
-sub name { shift->{name} }
-
-sub code
-{
-  my($self, $code) = @_;
-  $self->{code} = $code if $code;
-  $self->{code};
-}
-
-sub require
-{
-  my($self) = @_;
-  if(ref $self->{require} eq 'CODE')
-  {
-    $self->{require} = [ $self->{require}->($self) ];
-  }
-  @{ $self->{require} };
-}
-
-sub clone
-{
-  my($self) = @_;
-  my $class = ref $self;
-  $class->new(
-    $self->name,
-    $self->code,
-    [ $self->require ],
-  );
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Alien::Build::Interpolate - Advanced interpolation engine for Alien builds
-
-=head1 VERSION
-
-version 2.77
-
-=head1 CONSTRUCTOR
-
-=head2 new
-
- my $intr = Alien::Build::Interpolate->new;
-
-=head2 add_helper
-
- $intr->add_helper($name => $code);
- $intr->add_helper($name => $code, %requirements);
-
-=head2 replace_helper
-
- $intr->replace_helper($name => $code);
- $intr->replace_helper($name => $code, %requirements);
-
-=head2 has_helper
-
- my $coderef = $intr->has_helper($name);
-
-Used to discover if a helper exists with the given name.
-Returns the code reference.
-
-=head2 execute_helper
-
- my $value = $intr->execute_helper($name);
-
-This evaluates the given helper and returns the result.
-
-=head2 interpolate
-
- my $string = $intr->interpolate($template, $build);
- my $string = $intr->interpolate($template);
-
-This takes a template and fills in the appropriate values of any helpers used
-in the template.
-
-[version 2.58]
-
-If you pass in an L<Alien::Build> instance as the second argument, you can use
-properties as well as helpers in the template.  Example:
-
- my $patch = $intr->template("%{.install.patch}/foo-%{.runtime.version}.patch", $build);
-
-=head2 requires
-
- my %requires = $intr->requires($template);
-
-This returns a hash of modules required in order to execute the given template.
-The keys are the module names and the values are the versions.  Version will be
-set to C<0> if any version is sufficient.
-
-=head2 clone
-
- my $intr2 = $intr->clone;
-
-This creates a clone of the interpolator.
-
-=head1 AUTHOR
-
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-
-Contributors:
-
-Diab Jerius (DJERIUS)
-
-Roy Storey (KIWIROY)
-
-Ilya Pavlov
-
-David Mertens (run4flat)
-
-Mark Nunberg (mordy, mnunberg)
-
-Christian Walde (Mithaldu)
-
-Brian Wightman (MidLifeXis)
-
-Zaki Mughal (zmughal)
-
-mohawk (mohawk2, ETJ)
-
-Vikas N Kumar (vikasnkumar)
-
-Flavio Poletti (polettix)
-
-Salvador Fandiño (salva)
-
-Gianni Ceccarelli (dakkar)
-
-Pavel Shaydo (zwon, trinitum)
-
-Kang-min Liu (劉康民, gugod)
-
-Nicholas Shipp (nshp)
-
-Juan Julián Merelo Guervós (JJ)
-
-Joel Berger (JBERGER)
-
-Petr Písař (ppisar)
-
-Lance Wicks (LANCEW)
-
-Ahmad Fatoum (a3f, ATHREEF)
-
-José Joaquín Atria (JJATRIA)
-
-Duke Leto (LETO)
-
-Shoichi Kaji (SKAJI)
-
-Shawn Laffan (SLAFFAN)
-
-Paul Evans (leonerd, PEVANS)
-
-Håkon Hægland (hakonhagland, HAKONH)
-
-nick nauwelaerts (INPHOBIA)
-
-Florian Weimer
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011-2022 by Graham Ollis.
-
-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/MacOs/X64/deps/lib/perl5/Alien/Build/Log/Abbreviate.pm

@@ -1,153 +0,0 @@
-package Alien::Build::Log::Abbreviate;
-
-use strict;
-use warnings;
-use 5.008004;
-use Term::ANSIColor ();
-use Path::Tiny qw( path );
-use File::chdir;
-use parent qw( Alien::Build::Log );
-
-# ABSTRACT: Log class for Alien::Build which is less verbose
-our $VERSION = '2.77'; # VERSION
-
-
-sub _colored
-{
-  my($code, @out) = @_;
-  -t STDOUT ? Term::ANSIColor::colored($code, @out) : @out;
-}
-
-my $root = path("$CWD");
-
-sub log
-{
-  my(undef, %args) = @_;
-  my($message) = $args{message};
-  my ($package, $filename, $line) = @{ $args{caller} };
-
-  my $source = $package;
-  $source =~ s/^Alien::Build::Auto::[^:]+::Alienfile/alienfile/;
-
-  my $expected = $package;
-  $expected .= '.pm' unless $package eq 'alienfile';
-  $expected =~ s/::/\//g;
-  if($filename !~ /\Q$expected\E$/)
-  {
-    $source = path($filename)->relative($root);
-  }
-  else
-  {
-    $source =~ s/^Alien::Build::Plugin/ABP/;
-    $source =~ s/^Alien::Build/AB/;
-  }
-
-  print _colored([ "bold on_black"          ], '[');
-  print _colored([ "bright_green on_black"  ], $source);
-  print _colored([ "on_black"               ], ' ');
-  print _colored([ "bright_yellow on_black" ], $line);
-  print _colored([ "bold on_black"          ], ']');
-  print _colored([ "white on_black"         ], ' ', $message);
-  print "\n";
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Alien::Build::Log::Abbreviate - Log class for Alien::Build which is less verbose
-
-=head1 VERSION
-
-version 2.77
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION
-
-=head1 METHODS
-
-=head2 log
-
- $log->log(%opts);
-
-Send single log line to stdout.
-
-=head1 AUTHOR
-
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-
-Contributors:
-
-Diab Jerius (DJERIUS)
-
-Roy Storey (KIWIROY)
-
-Ilya Pavlov
-
-David Mertens (run4flat)
-
-Mark Nunberg (mordy, mnunberg)
-
-Christian Walde (Mithaldu)
-
-Brian Wightman (MidLifeXis)
-
-Zaki Mughal (zmughal)
-
-mohawk (mohawk2, ETJ)
-
-Vikas N Kumar (vikasnkumar)
-
-Flavio Poletti (polettix)
-
-Salvador Fandiño (salva)
-
-Gianni Ceccarelli (dakkar)
-
-Pavel Shaydo (zwon, trinitum)
-
-Kang-min Liu (劉康民, gugod)
-
-Nicholas Shipp (nshp)
-
-Juan Julián Merelo Guervós (JJ)
-
-Joel Berger (JBERGER)
-
-Petr Písař (ppisar)
-
-Lance Wicks (LANCEW)
-
-Ahmad Fatoum (a3f, ATHREEF)
-
-José Joaquín Atria (JJATRIA)
-
-Duke Leto (LETO)
-
-Shoichi Kaji (SKAJI)
-
-Shawn Laffan (SLAFFAN)
-
-Paul Evans (leonerd, PEVANS)
-
-Håkon Hægland (hakonhagland, HAKONH)
-
-nick nauwelaerts (INPHOBIA)
-
-Florian Weimer
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011-2022 by Graham Ollis.
-
-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/MacOs/X64/deps/lib/perl5/Alien/Build/Log/Default.pm

@@ -1,137 +0,0 @@
-package Alien::Build::Log::Default;
-
-use strict;
-use warnings;
-use 5.008004;
-use parent qw( Alien::Build::Log );
-
-# ABSTRACT: Default Alien::Build log class
-our $VERSION = '2.77'; # VERSION
-
-
-sub log
-{
-  my(undef, %args) = @_;
-  my($message) = $args{message};
-  my ($package, $filename, $line) = @{ $args{caller} };
-  print "$package> $message\n";
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Alien::Build::Log::Default - Default Alien::Build log class
-
-=head1 VERSION
-
-version 2.77
-
-=head1 SYNOPSIS
-
- Alien::Build->log("message1");
- $build->log("message2");
-
-=head1 DESCRIPTION
-
-This is the default log class for L<Alien::Build>.  It does
-the sensible thing of sending the message to stdout, along
-with the class that made the log call.  For more details
-about logging with L<Alien::Build>, see L<Alien::Build::Log>.
-
-=head1 METHODS
-
-=head2 log
-
- $log->log(%opts);
-
-Send single log line to stdout.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<Alien::Build>
-
-=item L<Alien::Build::Log>
-
-=back
-
-=head1 AUTHOR
-
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-
-Contributors:
-
-Diab Jerius (DJERIUS)
-
-Roy Storey (KIWIROY)
-
-Ilya Pavlov
-
-David Mertens (run4flat)
-
-Mark Nunberg (mordy, mnunberg)
-
-Christian Walde (Mithaldu)
-
-Brian Wightman (MidLifeXis)
-
-Zaki Mughal (zmughal)
-
-mohawk (mohawk2, ETJ)
-
-Vikas N Kumar (vikasnkumar)
-
-Flavio Poletti (polettix)
-
-Salvador Fandiño (salva)
-
-Gianni Ceccarelli (dakkar)
-
-Pavel Shaydo (zwon, trinitum)
-
-Kang-min Liu (劉康民, gugod)
-
-Nicholas Shipp (nshp)
-
-Juan Julián Merelo Guervós (JJ)
-
-Joel Berger (JBERGER)
-
-Petr Písař (ppisar)
-
-Lance Wicks (LANCEW)
-
-Ahmad Fatoum (a3f, ATHREEF)
-
-José Joaquín Atria (JJATRIA)
-
-Duke Leto (LETO)
-
-Shoichi Kaji (SKAJI)
-
-Shawn Laffan (SLAFFAN)
-
-Paul Evans (leonerd, PEVANS)
-
-Håkon Hægland (hakonhagland, HAKONH)
-
-nick nauwelaerts (INPHOBIA)
-
-Florian Weimer
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011-2022 by Graham Ollis.
-
-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