javonet-nodejs-sdk 2.1.1 → 2.1.3

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

@@ -1,326 +0,0 @@
-package URI::file;
-
-use strict;
-use warnings;
-
-use parent 'URI::_generic';
-our $VERSION = '5.17';
-
-use URI::Escape qw(uri_unescape);
-
-our $DEFAULT_AUTHORITY = "";
-
-# Map from $^O values to implementation classes.  The Unix
-# class is the default.
-our %OS_CLASS = (
-     os2     => "OS2",
-     mac     => "Mac",
-     MacOS   => "Mac",
-     MSWin32 => "Win32",
-     win32   => "Win32",
-     msdos   => "FAT",
-     dos     => "FAT",
-     qnx     => "QNX",
-);
-
-sub os_class
-{
-    my($OS) = shift || $^O;
-
-    my $class = "URI::file::" . ($OS_CLASS{$OS} || "Unix");
-    no strict 'refs';
-    unless (%{"$class\::"}) {
-	eval "require $class";
-	die $@ if $@;
-    }
-    $class;
-}
-
-sub host { uri_unescape(shift->authority(@_)) }
-
-sub new
-{
-    my($class, $path, $os) = @_;
-    os_class($os)->new($path);
-}
-
-sub new_abs
-{
-    my $class = shift;
-    my $file = $class->new(@_);
-    return $file->abs($class->cwd) unless $$file =~ /^file:/;
-    $file;
-}
-
-sub cwd
-{
-    my $class = shift;
-    require Cwd;
-    my $cwd = Cwd::cwd();
-    $cwd = VMS::Filespec::unixpath($cwd) if $^O eq 'VMS';
-    $cwd = $class->new($cwd);
-    $cwd .= "/" unless substr($cwd, -1, 1) eq "/";
-    $cwd;
-}
-
-sub canonical {
-    my $self = shift;
-    my $other = $self->SUPER::canonical;
-
-    my $scheme = $other->scheme;
-    my $auth = $other->authority;
-    return $other if !defined($scheme) && !defined($auth);  # relative
-
-    if (!defined($auth) ||
-	$auth eq "" ||
-	lc($auth) eq "localhost" ||
-	(defined($DEFAULT_AUTHORITY) && lc($auth) eq lc($DEFAULT_AUTHORITY))
-       )
-    {
-	# avoid cloning if $auth already match
-	if ((defined($auth) || defined($DEFAULT_AUTHORITY)) &&
-	    (!defined($auth) || !defined($DEFAULT_AUTHORITY) || $auth ne $DEFAULT_AUTHORITY)
-	   )
-	{
-	    $other = $other->clone if $self == $other;
-	    $other->authority($DEFAULT_AUTHORITY);
-        }
-    }
-
-    $other;
-}
-
-sub file
-{
-    my($self, $os) = @_;
-    os_class($os)->file($self);
-}
-
-sub dir
-{
-    my($self, $os) = @_;
-    os_class($os)->dir($self);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-URI::file - URI that maps to local file names
-
-=head1 SYNOPSIS
-
- use URI::file;
-
- $u1 = URI->new("file:/foo/bar");
- $u2 = URI->new("foo/bar", "file");
-
- $u3 = URI::file->new($path);
- $u4 = URI::file->new("c:\\windows\\", "win32");
-
- $u1->file;
- $u1->file("mac");
-
-=head1 DESCRIPTION
-
-The C<URI::file> class supports C<URI> objects belonging to the I<file>
-URI scheme.  This scheme allows us to map the conventional file names
-found on various computer systems to the URI name space,
-see L<RFC 8089|https://www.rfc-editor.org/rfc/rfc8089.html>.
-
-If you simply want to construct I<file> URI objects from URI strings,
-use the normal C<URI> constructor.  If you want to construct I<file>
-URI objects from the actual file names used by various systems, then
-use one of the following C<URI::file> constructors:
-
-=over 4
-
-=item $u = URI::file->new( $filename, [$os] )
-
-Maps a file name to the I<file:> URI name space, creates a URI object
-and returns it.  The $filename is interpreted as belonging to the
-indicated operating system ($os), which defaults to the value of the
-$^O variable.  The $filename can be either absolute or relative, and
-the corresponding type of URI object for $os is returned.
-
-=item $u = URI::file->new_abs( $filename, [$os] )
-
-Same as URI::file->new, but makes sure that the URI returned
-represents an absolute file name.  If the $filename argument is
-relative, then the name is resolved relative to the current directory,
-i.e. this constructor is really the same as:
-
-  URI::file->new($filename)->abs(URI::file->cwd);
-
-=item $u = URI::file->cwd
-
-Returns a I<file> URI that represents the current working directory.
-See L<Cwd>.
-
-=back
-
-The following methods are supported for I<file> URI (in addition to
-the common and generic methods described in L<URI>):
-
-=over 4
-
-=item $u->file( [$os] )
-
-Returns a file name.  It maps from the URI name space
-to the file name space of the indicated operating system.
-
-It might return C<undef> if the name can not be represented in the
-indicated file system.
-
-=item $u->dir( [$os] )
-
-Some systems use a different form for names of directories than for plain
-files.  Use this method if you know you want to use the name for
-a directory.
-
-=back
-
-The C<URI::file> module can be used to map generic file names to names
-suitable for the current system.  As such, it can work as a nice
-replacement for the C<File::Spec> module.  For instance, the following
-code translates the UNIX-style file name F<Foo/Bar.pm> to a name
-suitable for the local system:
-
-  $file = URI::file->new("Foo/Bar.pm", "unix")->file;
-  die "Can't map filename Foo/Bar.pm for $^O" unless defined $file;
-  open(FILE, $file) || die "Can't open '$file': $!";
-  # do something with FILE
-
-=head1 MAPPING NOTES
-
-Most computer systems today have hierarchically organized file systems.
-Mapping the names used in these systems to the generic URI syntax
-allows us to work with relative file URIs that behave as they should
-when resolved using the generic algorithm for URIs (specified in L<RFC
-3986|https://www.rfc-editor.org/rfc/rfc3986.html>).
-Mapping a file name to the generic URI syntax involves mapping
-the path separator character to "/" and encoding any reserved
-characters that appear in the path segments of the file name.  If
-path segments consisting of the strings "." or ".." have a
-different meaning than what is specified for generic URIs, then these
-must be encoded as well.
-
-If the file system has device, volume or drive specifications as
-the root of the name space, then it makes sense to map them to the
-authority field of the generic URI syntax.  This makes sure that
-relative URIs can not be resolved "above" them, i.e. generally how
-relative file names work in those systems.
-
-Another common use of the authority field is to encode the host on which
-this file name is valid.  The host name "localhost" is special and
-generally has the same meaning as a missing or empty authority
-field.  This use is in conflict with using it as a device
-specification, but can often be resolved for device specifications
-having characters not legal in plain host names.
-
-File name to URI mapping in normally not one-to-one.  There are
-usually many URIs that map to any given file name.  For instance, an
-authority of "localhost" maps the same as a URI with a missing or empty
-authority.
-
-Example 1: The Mac classic (Mac OS 9 and earlier) used ":" as path separator,
-but not in the same way as a generic URI. ":foo" was a relative name.  "foo:bar"
-was an absolute name.  Also, path segments could contain the "/" character as well
-as the literal "." or "..".  So the mapping looks like this:
-
-  Mac classic           URI
-  ----------            -------------------
-  :foo:bar     <==>     foo/bar
-  :            <==>     ./
-  ::foo:bar    <==>     ../foo/bar
-  :::          <==>     ../../
-  foo:bar      <==>     file:/foo/bar
-  foo:bar:     <==>     file:/foo/bar/
-  ..           <==>     %2E%2E
-  <undef>      <==      /
-  foo/         <==      file:/foo%2F
-  ./foo.txt    <==      file:/.%2Ffoo.txt
-
-Note that if you want a relative URL, you *must* begin the path with a :.  Any
-path that begins with [^:] is treated as absolute.
-
-Example 2: The UNIX file system is easy to map, as it uses the same path
-separator as URIs, has a single root, and segments of "." and ".."
-have the same meaning.  URIs that have the character "\0" or "/" as
-part of any path segment can not be turned into valid UNIX file names.
-
-  UNIX                  URI
-  ----------            ------------------
-  foo/bar      <==>     foo/bar
-  /foo/bar     <==>     file:/foo/bar
-  /foo/bar     <==      file://localhost/foo/bar
-  file:         ==>     ./file:
-  <undef>      <==      file:/fo%00/bar
-  /            <==>     file:/
-
-=cut
-
-
-RFC 1630
-
-   [...]
-
-   There is clearly a danger of confusion that a link made to a local
-   file should be followed by someone on a different system, with
-   unexpected and possibly harmful results.  Therefore, the convention
-   is that even a "file" URL is provided with a host part.  This allows
-   a client on another system to know that it cannot access the file
-   system, or perhaps to use some other local mechanism to access the
-   file.
-
-   The special value "localhost" is used in the host field to indicate
-   that the filename should really be used on whatever host one is.
-   This for example allows links to be made to files which are
-   distributed on many machines, or to "your unix local password file"
-   subject of course to consistency across the users of the data.
-
-   A void host field is equivalent to "localhost".
-
-=head1 CONFIGURATION VARIABLES
-
-The following configuration variables influence how the class and its
-methods behave:
-
-=over
-
-=item %URI::file::OS_CLASS
-
-This hash maps OS identifiers to implementation classes.  You might
-want to add or modify this if you want to plug in your own file
-handler class.  Normally the keys should match the $^O values in use.
-
-If there is no mapping then the "Unix" implementation is used.
-
-=item $URI::file::DEFAULT_AUTHORITY
-
-This determines what "authority" string to include in absolute file
-URIs.  It defaults to "".  If you prefer verbose URIs you might set it
-to be "localhost".
-
-Setting this value to C<undef> forces behaviour compatible to URI v1.31
-and earlier.  In this mode host names in UNC paths and drive letters
-are mapped to the authority component on Windows, while we produce
-authority-less URIs on Unix.
-
-=back
-
-
-=head1 SEE ALSO
-
-L<URI>, L<File::Spec>, L<perlport>
-
-=head1 COPYRIGHT
-
-Copyright 1995-1998,2004 Gisle Aas.
-
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut

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

@@ -1,46 +0,0 @@
-package URI::ftp;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent qw(URI::_server URI::_userpass);
-
-sub default_port { 21 }
-
-sub path { shift->path_query(@_) }  # XXX
-
-sub _user     { shift->SUPER::user(@_);     }
-sub _password { shift->SUPER::password(@_); }
-
-sub user
-{
-    my $self = shift;
-    my $user = $self->_user(@_);
-    $user = "anonymous" unless defined $user;
-    $user;
-}
-
-sub password
-{
-    my $self = shift;
-    my $pass = $self->_password(@_);
-    unless (defined $pass) {
-	my $user = $self->user;
-	if ($user eq 'anonymous' || $user eq 'ftp') {
-	    # anonymous ftp login password
-            # If there is no ftp anonymous password specified
-            # then we'll just use 'anonymous@'
-            # We don't try to send the read e-mail address because:
-            # - We want to remain anonymous
-            # - We want to stop SPAM
-            # - We don't want to let ftp sites to discriminate by the user,
-            #   host, country or ftp client being used.
-	    $pass = 'anonymous@';
-	}
-    }
-    $pass;
-}
-
-1;

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

@@ -1,97 +0,0 @@
-package URI::gopher;  # <draft-murali-url-gopher>, Dec 4, 1996
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_server';
-
-use URI::Escape qw(uri_unescape);
-
-#  A Gopher URL follows the common internet scheme syntax as defined in 
-#  section 4.3 of [RFC-URL-SYNTAX]:
-#
-#        gopher://<host>[:<port>]/<gopher-path>
-#
-#  where
-#
-#        <gopher-path> :=  <gopher-type><selector> | 
-#                          <gopher-type><selector>%09<search> |
-#                          <gopher-type><selector>%09<search>%09<gopher+_string>
-#
-#        <gopher-type> := '0' | '1' | '2' | '3' | '4' | '5' | '6' | '7'
-#                         '8' | '9' | '+' | 'I' | 'g' | 'T'
-#
-#        <selector>    := *pchar     Refer to RFC 1808 [4]
-#        <search>      := *pchar
-#        <gopher+_string> := *uchar  Refer to RFC 1738 [3]
-#        
-#  If the optional port is omitted, the port defaults to 70. 
-
-sub default_port { 70 }
-
-sub _gopher_type
-{
-    my $self = shift;
-    my $path = $self->path_query;
-    $path =~ s,^/,,;
-    my $gtype = $1 if $path =~ s/^(.)//s;
-    if (@_) {
-	my $new_type = shift;
-	if (defined($new_type)) {
-	    Carp::croak("Bad gopher type '$new_type'")
-               unless length($new_type) == 1;
-	    substr($path, 0, 0) = $new_type;
-	    $self->path_query($path);
-	} else {
-	    Carp::croak("Can't delete gopher type when selector is present")
-		if length($path);
-	    $self->path_query(undef);
-	}
-    }
-    return $gtype;
-}
-
-sub gopher_type
-{
-    my $self = shift;
-    my $gtype = $self->_gopher_type(@_);
-    $gtype = "1" unless defined $gtype;
-    $gtype;
-}
-
-sub gtype { goto &gopher_type }  # URI::URL compatibility
-
-sub selector { shift->_gfield(0, @_) }
-sub search   { shift->_gfield(1, @_) }
-sub string   { shift->_gfield(2, @_) }
-
-sub _gfield
-{
-    my $self = shift;
-    my $fno  = shift;
-    my $path = $self->path_query;
-
-    # not according to spec., but many popular browsers accept
-    # gopher URLs with a '?' before the search string.
-    $path =~ s/\?/\t/;
-    $path = uri_unescape($path);
-    $path =~ s,^/,,;
-    my $gtype = $1 if $path =~ s,^(.),,s;
-    my @path = split(/\t/, $path, 3);
-    if (@_) {
-	# modify
-	my $new = shift;
-	$path[$fno] = $new;
-	pop(@path) while @path && !defined($path[-1]);
-	for (@path) { $_="" unless defined }
-	$path = $gtype;
-	$path = "1" unless defined $path;
-	$path .= join("\t", @path);
-	$self->path_query($path);
-    }
-    $path[$fno];
-}
-
-1;

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

@@ -1,27 +0,0 @@
-package URI::http;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_server';
-
-sub default_port { 80 }
-
-sub canonical
-{
-    my $self = shift;
-    my $other = $self->SUPER::canonical;
-
-    my $slash_path = defined($other->authority) &&
-        !length($other->path) && !defined($other->query);
-
-    if ($slash_path) {
-	$other = $other->clone if $other == $self;
-	$other->path("/");
-    }
-    $other;
-}
-
-1;

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

@@ -1,14 +0,0 @@
-package URI::https;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::http';
-
-sub default_port { 443 }
-
-sub secure { 1 }
-
-1;

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

@@ -1,120 +0,0 @@
-# Copyright (c) 1998 Graham Barr <gbarr@pobox.com>. All rights reserved.
-# This program is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-
-package URI::ldap;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent qw(URI::_ldap URI::_server);
-
-sub default_port { 389 }
-
-sub _nonldap_canonical {
-    my $self = shift;
-    $self->URI::_server::canonical(@_);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-URI::ldap - LDAP Uniform Resource Locators
-
-=head1 SYNOPSIS
-
-  use URI;
-
-  $uri = URI->new("ldap:$uri_string");
-  $dn     = $uri->dn;
-  $filter = $uri->filter;
-  @attr   = $uri->attributes;
-  $scope  = $uri->scope;
-  %extn   = $uri->extensions;
-  
-  $uri = URI->new("ldap:");  # start empty
-  $uri->host("ldap.itd.umich.edu");
-  $uri->dn("o=University of Michigan,c=US");
-  $uri->attributes(qw(postalAddress));
-  $uri->scope('sub');
-  $uri->filter('(cn=Babs Jensen)');
-  print $uri->as_string,"\n";
-
-=head1 DESCRIPTION
-
-C<URI::ldap> provides an interface to parse an LDAP URI into its
-constituent parts and also to build a URI as described in
-RFC 2255.
-
-=head1 METHODS
-
-C<URI::ldap> supports all the generic and server methods defined by
-L<URI>, plus the following.
-
-Each of the following methods can be used to set or get the value in
-the URI. The values are passed in unescaped form.  None of these
-return undefined values, but elements without a default can be empty.
-If arguments are given, then a new value is set for the given part
-of the URI.
-
-=over 4
-
-=item $uri->dn( [$new_dn] )
-
-Sets or gets the I<Distinguished Name> part of the URI.  The DN
-identifies the base object of the LDAP search.
-
-=item $uri->attributes( [@new_attrs] )
-
-Sets or gets the list of attribute names which are
-returned by the search.
-
-=item $uri->scope( [$new_scope] )
-
-Sets or gets the scope to be used by the search. The value can be one of
-C<"base">, C<"one"> or C<"sub">. If none is given in the URI then the
-return value defaults to C<"base">.
-
-=item $uri->_scope( [$new_scope] )
-
-Same as scope(), but does not default to anything.
-
-=item $uri->filter( [$new_filter] )
-
-Sets or gets the filter to be used by the search. If none is given in
-the URI then the return value defaults to C<"(objectClass=*)">.
-
-=item $uri->_filter( [$new_filter] )
-
-Same as filter(), but does not default to anything.
-
-=item $uri->extensions( [$etype => $evalue,...] )
-
-Sets or gets the extensions used for the search. The list passed should
-be in the form etype1 => evalue1, etype2 => evalue2,... This is also
-the form of list that is returned.
-
-=back
-
-=head1 SEE ALSO
-
-L<http://tools.ietf.org/html/rfc2255>
-
-=head1 AUTHOR
-
-Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
-
-Slightly modified by Gisle Aas to fit into the URI distribution.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1998 Graham Barr. All rights reserved. This program is
-free software; you can redistribute it and/or modify it under the same
-terms as Perl itself.
-
-=cut

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

@@ -1,29 +0,0 @@
-package URI::ldapi;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent qw(URI::_ldap URI::_generic);
-
-use URI::Escape ();
-
-sub un_path {
-    my $self = shift;
-    my $old = URI::Escape::uri_unescape($self->authority);
-    if (@_) {
-	my $p = shift;
-	$p =~ s/:/%3A/g;
-	$p =~ s/\@/%40/g;
-	$self->authority($p);
-    }
-    return $old;
-}
-
-sub _nonldap_canonical {
-    my $self = shift;
-    $self->URI::_generic::canonical(@_);
-}
-
-1;

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

@@ -1,14 +0,0 @@
-package URI::ldaps;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::ldap';
-
-sub default_port { 636 }
-
-sub secure { 1 }
-
-1;