javonet-nodejs-sdk 2.1.1 → 2.1.3

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/URL.pm

@@ -1,303 +0,0 @@
-package URI::URL;
-
-use strict;
-use warnings;
-
-use parent 'URI::WithBase';
-
-our $VERSION = '5.17';
-
-# Provide as much as possible of the old URI::URL interface for backwards
-# compatibility...
-
-use Exporter 5.57 'import';
-our @EXPORT = qw(url);
-
-# Easy to use constructor
-sub url ($;$) { URI::URL->new(@_); }
-
-use URI::Escape qw(uri_unescape);
-
-sub new
-{
-    my $class = shift;
-    my $self = $class->SUPER::new(@_);
-    $self->[0] = $self->[0]->canonical;
-    $self;
-}
-
-sub newlocal
-{
-    my $class = shift;
-    require URI::file;
-    bless [URI::file->new_abs(shift)], $class;
-}
-
-{package URI::_foreign;
-    sub _init  # hope it is not defined
-    {
-	my $class = shift;
-	die "Unknown URI::URL scheme $_[1]:" if $URI::URL::STRICT;
-	$class->SUPER::_init(@_);
-    }
-}
-
-sub strict
-{
-    my $old = $URI::URL::STRICT;
-    $URI::URL::STRICT = shift if @_;
-    $old;
-}
-
-sub print_on
-{
-    my $self = shift;
-    require Data::Dumper;
-    print STDERR Data::Dumper::Dumper($self);
-}
-
-sub _try
-{
-    my $self = shift;
-    my $method = shift;
-    scalar(eval { $self->$method(@_) });
-}
-
-sub crack
-{
-    # should be overridden by subclasses
-    my $self = shift;
-    (scalar($self->scheme),
-     $self->_try("user"),
-     $self->_try("password"),
-     $self->_try("host"),
-     $self->_try("port"),
-     $self->_try("path"),
-     $self->_try("params"),
-     $self->_try("query"),
-     scalar($self->fragment),
-    )
-}
-
-sub full_path
-{
-    my $self = shift;
-    my $path = $self->path_query;
-    $path = "/" unless length $path;
-    $path;
-}
-
-sub netloc
-{
-    shift->authority(@_);
-}
-
-sub epath
-{
-    my $path = shift->SUPER::path(@_);
-    $path =~ s/;.*//;
-    $path;
-}
-
-sub eparams
-{
-    my $self = shift;
-    my @p = $self->path_segments;
-    return undef unless ref($p[-1]);
-    @p = @{$p[-1]};
-    shift @p;
-    join(";", @p);
-}
-
-sub params { shift->eparams(@_); }
-
-sub path {
-    my $self = shift;
-    my $old = $self->epath(@_);
-    return unless defined wantarray;
-    return '/' if !defined($old) || !length($old);
-    Carp::croak("Path components contain '/' (you must call epath)")
-	if $old =~ /%2[fF]/ and !@_;
-    $old = "/$old" if $old !~ m|^/| && defined $self->netloc;
-    return uri_unescape($old);
-}
-
-sub path_components {
-    shift->path_segments(@_);
-}
-
-sub query {
-    my $self = shift;
-    my $old = $self->equery(@_);
-    if (defined(wantarray) && defined($old)) {
-	if ($old =~ /%(?:26|2[bB]|3[dD])/) {  # contains escaped '=' '&' or '+'
-	    my $mess;
-	    for ($old) {
-		$mess = "Query contains both '+' and '%2B'"
-		  if /\+/ && /%2[bB]/;
-		$mess = "Form query contains escaped '=' or '&'"
-		  if /=/  && /%(?:3[dD]|26)/;
-	    }
-	    if ($mess) {
-		Carp::croak("$mess (you must call equery)");
-	    }
-	}
-	# Now it should be safe to unescape the string without losing
-	# information
-	return uri_unescape($old);
-    }
-    undef;
-
-}
-
-sub abs
-{
-    my $self = shift;
-    my $base = shift;
-    my $allow_scheme = shift;
-    $allow_scheme = $URI::URL::ABS_ALLOW_RELATIVE_SCHEME
-	unless defined $allow_scheme;
-    local $URI::ABS_ALLOW_RELATIVE_SCHEME = $allow_scheme;
-    local $URI::ABS_REMOTE_LEADING_DOTS = $URI::URL::ABS_REMOTE_LEADING_DOTS;
-    $self->SUPER::abs($base);
-}
-
-sub frag { shift->fragment(@_); }
-sub keywords { shift->query_keywords(@_); }
-
-# file:
-sub local_path { shift->file; }
-sub unix_path  { shift->file("unix"); }
-sub dos_path   { shift->file("dos");  }
-sub mac_path   { shift->file("mac");  }
-sub vms_path   { shift->file("vms");  }
-
-# mailto:
-sub address { shift->to(@_); }
-sub encoded822addr { shift->to(@_); }
-sub URI::mailto::authority { shift->to(@_); }  # make 'netloc' method work
-
-# news:
-sub groupart { shift->_group(@_); }
-sub article  { shift->message(@_); }
-
-1;
-
-__END__
-
-=head1 NAME
-
-URI::URL - Uniform Resource Locators
-
-=head1 SYNOPSIS
-
- $u1 = URI::URL->new($str, $base);
- $u2 = $u1->abs;
-
-=head1 DESCRIPTION
-
-This module is provided for backwards compatibility with modules that
-depend on the interface provided by the C<URI::URL> class that used to
-be distributed with the libwww-perl library.
-
-The following differences exist compared to the C<URI> class interface:
-
-=over 3
-
-=item *
-
-The URI::URL module exports the url() function as an alternate
-constructor interface.
-
-=item *
-
-The constructor takes an optional $base argument.  The C<URI::URL>
-class is a subclass of C<URI::WithBase>.
-
-=item *
-
-The URI::URL->newlocal class method is the same as URI::file->new_abs.
-
-=item *
-
-URI::URL::strict(1)
-
-=item *
-
-$url->print_on method
-
-=item *
-
-$url->crack method
-
-=item *
-
-$url->full_path: same as ($uri->abs_path || "/")
-
-=item *
-
-$url->netloc: same as $uri->authority
-
-=item *
-
-$url->epath, $url->equery: same as $uri->path, $uri->query
-
-=item *
-
-$url->path and $url->query pass unescaped strings.
-
-=item *
-
-$url->path_components: same as $uri->path_segments (if you don't
-consider path segment parameters)
-
-=item *
-
-$url->params and $url->eparams methods
-
-=item *
-
-$url->base method.  See L<URI::WithBase>.
-
-=item *
-
-$url->abs and $url->rel have an optional $base argument.  See
-L<URI::WithBase>.
-
-=item *
-
-$url->frag: same as $uri->fragment
-
-=item *
-
-$url->keywords: same as $uri->query_keywords
-
-=item *
-
-$url->localpath and friends map to $uri->file.
-
-=item *
-
-$url->address and $url->encoded822addr: same as $uri->to for mailto URI
-
-=item *
-
-$url->groupart method for news URI
-
-=item *
-
-$url->article: same as $uri->message
-
-=back
-
-
-
-=head1 SEE ALSO
-
-L<URI>, L<URI::WithBase>
-
-=head1 COPYRIGHT
-
-Copyright 1998-2000 Gisle Aas.
-
-=cut

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/WithBase.pm

@@ -1,174 +0,0 @@
-package URI::WithBase;
-
-use strict;
-use warnings;
-
-use URI ();
-use Scalar::Util qw(blessed);
-
-our $VERSION = '5.17';
-
-use overload '""' => "as_string", fallback => 1;
-
-sub as_string;  # help overload find it
-
-sub new
-{
-    my($class, $uri, $base) = @_;
-    my $ibase = $base;
-    if ($base && blessed($base) && $base->isa(__PACKAGE__)) {
-	$base = $base->abs;
-	$ibase = $base->[0];
-    }
-    bless [URI->new($uri, $ibase), $base], $class;
-}
-
-sub new_abs
-{
-    my $class = shift;
-    my $self = $class->new(@_);
-    $self->abs;
-}
-
-sub _init
-{
-    my $class = shift;
-    my($str, $scheme) = @_;
-    bless [URI->new($str, $scheme), undef], $class;
-}
-
-sub eq
-{
-    my($self, $other) = @_;
-    $other = $other->[0] if blessed($other) and $other->isa(__PACKAGE__);
-    $self->[0]->eq($other);
-}
-
-our $AUTOLOAD;
-sub AUTOLOAD
-{
-    my $self = shift;
-    my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
-    return if $method eq "DESTROY";
-    $self->[0]->$method(@_);
-}
-
-sub can {                                  # override UNIVERSAL::can
-    my $self = shift;
-    $self->SUPER::can(@_) || (
-      ref($self)
-      ? $self->[0]->can(@_)
-      : undef
-    )
-}
-
-sub base {
-    my $self = shift;
-    my $base  = $self->[1];
-
-    if (@_) { # set
-	my $new_base = shift;
-	# ensure absoluteness
-	$new_base = $new_base->abs if ref($new_base) && $new_base->isa(__PACKAGE__);
-	$self->[1] = $new_base;
-    }
-    return unless defined wantarray;
-
-    # The base attribute supports 'lazy' conversion from URL strings
-    # to URL objects. Strings may be stored but when a string is
-    # fetched it will automatically be converted to a URL object.
-    # The main benefit is to make it much cheaper to say:
-    #   URI::WithBase->new($random_url_string, 'http:')
-    if (defined($base) && !ref($base)) {
-	$base = ref($self)->new($base);
-	$self->[1] = $base unless @_;
-    }
-    $base;
-}
-
-sub clone
-{
-    my $self = shift;
-    my $base = $self->[1];
-    $base = $base->clone if ref($base);
-    bless [$self->[0]->clone, $base], ref($self);
-}
-
-sub abs
-{
-    my $self = shift;
-    my $base = shift || $self->base || return $self->clone;
-    $base = $base->as_string if ref($base);
-    bless [$self->[0]->abs($base, @_), $base], ref($self);
-}
-
-sub rel
-{
-    my $self = shift;
-    my $base = shift || $self->base || return $self->clone;
-    $base = $base->as_string if ref($base);
-    bless [$self->[0]->rel($base, @_), $base], ref($self);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-URI::WithBase - URIs which remember their base
-
-=head1 SYNOPSIS
-
- $u1 = URI::WithBase->new($str, $base);
- $u2 = $u1->abs;
-
- $base = $u1->base;
- $u1->base( $new_base )
-
-=head1 DESCRIPTION
-
-This module provides the C<URI::WithBase> class.  Objects of this class
-are like C<URI> objects, but can keep their base too.  The base
-represents the context where this URI was found and can be used to
-absolutize or relativize the URI.  All the methods described in L<URI>
-are supported for C<URI::WithBase> objects.
-
-The methods provided in addition to or modified from those of C<URI> are:
-
-=over 4
-
-=item $uri = URI::WithBase->new($str, [$base])
-
-The constructor takes an optional base URI as the second argument.
-If provided, this argument initializes the base attribute.
-
-=item $uri->base( [$new_base] )
-
-Can be used to get or set the value of the base attribute.
-The return value, which is the old value, is a URI object or C<undef>.
-
-=item $uri->abs( [$base_uri] )
-
-The $base_uri argument is now made optional as the object carries its
-base with it.  A new object is returned even if $uri is already
-absolute (while plain URI objects simply return themselves in
-that case).
-
-=item $uri->rel( [$base_uri] )
-
-The $base_uri argument is now made optional as the object carries its
-base with it.  A new object is always returned.
-
-=back
-
-
-=head1 SEE ALSO
-
-L<URI>
-
-=head1 COPYRIGHT
-
-Copyright 1998-2002 Gisle Aas.
-
-=cut

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/_foreign.pm

@@ -1,10 +0,0 @@
-package URI::_foreign;
-
-use strict;
-use warnings;
-
-use parent 'URI::_generic';
-
-our $VERSION = '5.17';
-
-1;