javonet-nodejs-sdk 2.1.1 → 2.1.3

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

@@ -1,142 +0,0 @@
-package URI::data;  # RFC 2397
-
-use strict;
-use warnings;
-
-use parent 'URI';
-
-our $VERSION = '5.17';
-
-use MIME::Base64 qw(decode_base64 encode_base64);
-use URI::Escape qw(uri_unescape);
-
-sub media_type
-{
-    my $self = shift;
-    my $opaque = $self->opaque;
-    $opaque =~ /^([^,]*),?/ or die;
-    my $old = $1;
-    my $base64;
-    $base64 = $1 if $old =~ s/(;base64)$//i;
-    if (@_) {
-	my $new = shift;
-	$new = "" unless defined $new;
-	$new =~ s/%/%25/g;
-	$new =~ s/,/%2C/g;
-	$base64 = "" unless defined $base64;
-	$opaque =~ s/^[^,]*,?/$new$base64,/;
-	$self->opaque($opaque);
-    }
-    return uri_unescape($old) if $old;  # media_type can't really be "0"
-    "text/plain;charset=US-ASCII";      # default type
-}
-
-sub data
-{
-    my $self = shift;
-    my($enc, $data) = split(",", $self->opaque, 2);
-    unless (defined $data) {
-	$data = "";
-	$enc  = "" unless defined $enc;
-    }
-    my $base64 = ($enc =~ /;base64$/i);
-    if (@_) {
-	$enc =~ s/;base64$//i if $base64;
-	my $new = shift;
-	$new = "" unless defined $new;
-	my $uric_count = _uric_count($new);
-	my $urienc_len = $uric_count + (length($new) - $uric_count) * 3;
-	my $base64_len = int((length($new)+2) / 3) * 4;
-	$base64_len += 7;  # because of ";base64" marker
-	if ($base64_len < $urienc_len || $_[0]) {
-	    $enc .= ";base64";
-	    $new = encode_base64($new, "");
-	} else {
-	    $new =~ s/%/%25/g;
-	}
-	$self->opaque("$enc,$new");
-    }
-    return unless defined wantarray;
-    $data = uri_unescape($data);
-    return $base64 ? decode_base64($data) : $data;
-}
-
-# I could not find a better way to interpolate the tr/// chars from
-# a variable.
-my $ENC = $URI::uric;
-$ENC =~ s/%//;
-
-eval <<EOT; die $@ if $@;
-sub _uric_count
-{
-    \$_[0] =~ tr/$ENC//;
-}
-EOT
-
-1;
-
-__END__
-
-=head1 NAME
-
-URI::data - URI that contains immediate data
-
-=head1 SYNOPSIS
-
- use URI;
-
- $u = URI->new("data:");
- $u->media_type("image/gif");
- $u->data(scalar(`cat camel.gif`));
- print "$u\n";
- open(XV, "|xv -") and print XV $u->data;
-
-=head1 DESCRIPTION
-
-The C<URI::data> class supports C<URI> objects belonging to the I<data>
-URI scheme.  The I<data> URI scheme is specified in RFC 2397.  It
-allows inclusion of small data items as "immediate" data, as if it had
-been included externally.  Examples:
-
-  data:,Perl%20is%20good
-
-  data:image/gif;base64,R0lGODdhIAAgAIAAAAAAAPj8+CwAAAAAI
-    AAgAAAClYyPqcu9AJyCjtIKc5w5xP14xgeO2tlY3nWcajmZZdeJcG
-    Kxrmimms1KMTa1Wg8UROx4MNUq1HrycMjHT9b6xKxaFLM6VRKzI+p
-    KS9XtXpcbdun6uWVxJXA8pNPkdkkxhxc21LZHFOgD2KMoQXa2KMWI
-    JtnE2KizVUkYJVZZ1nczBxXlFopZBtoJ2diXGdNUymmJdFMAADs=
-
-
-
-C<URI> objects belonging to the data scheme support the common methods
-(described in L<URI>) and the following two scheme-specific methods:
-
-=over 4
-
-=item $uri->media_type( [$new_media_type] )
-
-Can be used to get or set the media type specified in the
-URI.  If no media type is specified, then the default
-C<"text/plain;charset=US-ASCII"> is returned.
-
-=item $uri->data( [$new_data] )
-
-Can be used to get or set the data contained in the URI.
-The data is passed unescaped (in binary form).  The decision about
-whether to base64 encode the data in the URI is taken automatically,
-based on the encoding that produces the shorter URI string.
-
-=back
-
-=head1 SEE ALSO
-
-L<URI>
-
-=head1 COPYRIGHT
-
-Copyright 1995-1998 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/file/Base.pm

@@ -1,84 +0,0 @@
-package URI::file::Base;
-
-use strict;
-use warnings;
-
-use URI::Escape ();
-
-our $VERSION = '5.17';
-
-sub new
-{
-    my $class = shift;
-    my $path  = shift;
-    $path = "" unless defined $path;
-
-    my($auth, $escaped_auth, $escaped_path);
-
-    ($auth, $escaped_auth) = $class->_file_extract_authority($path);
-    ($path, $escaped_path) = $class->_file_extract_path($path);
-
-    if (defined $auth) {
-	$auth =~ s,%,%25,g unless $escaped_auth;
-	$auth =~ s,([/?\#]), URI::Escape::escape_char($1),eg;
-	$auth = "//$auth";
-	if (defined $path) {
-	    $path = "/$path" unless substr($path, 0, 1) eq "/";
-	} else {
-	    $path = "";
-	}
-    } else {
-	return undef unless defined $path;
-	$auth = "";
-    }
-
-    $path =~ s,([%;?]), URI::Escape::escape_char($1),eg unless $escaped_path;
-    $path =~ s/\#/%23/g;
-
-    my $uri = $auth . $path;
-    $uri = "file:$uri" if substr($uri, 0, 1) eq "/";
-
-    URI->new($uri, "file");
-}
-
-sub _file_extract_authority
-{
-    my($class, $path) = @_;
-    return undef unless $class->_file_is_absolute($path);
-    return $URI::file::DEFAULT_AUTHORITY;
-}
-
-sub _file_extract_path
-{
-    return undef;
-}
-
-sub _file_is_absolute
-{
-    return 0;
-}
-
-sub _file_is_localhost
-{
-    shift; # class
-    my $host = lc(shift);
-    return 1 if $host eq "localhost";
-    eval {
-	require Net::Domain;
-	lc(Net::Domain::hostfqdn() || '') eq $host ||
-	lc(Net::Domain::hostname() || '') eq $host;
-    };
-}
-
-sub file
-{
-    undef;
-}
-
-sub dir
-{
-    my $self = shift;
-    $self->file(@_);
-}
-
-1;

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

@@ -1,27 +0,0 @@
-package URI::file::FAT;
-
-use strict;
-use warnings;
-
-use parent 'URI::file::Win32';
-
-our $VERSION = '5.17';
-
-sub fix_path
-{
-    shift; # class
-    for (@_) {
-	# turn it into 8.3 names
-	my @p = map uc, split(/\./, $_, -1);
-	return if @p > 2;     # more than 1 dot is not allowed
-	@p = ("") unless @p;  # split bug? (returns nothing when splitting "")
-	$_ = substr($p[0], 0, 8);
-        if (@p > 1) {
-	    my $ext = substr($p[1], 0, 3);
-	    $_ .= ".$ext" if length $ext;
-	}
-    }
-    1;  # ok
-}
-
-1;

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

@@ -1,121 +0,0 @@
-package URI::file::Mac;
-
-use strict;
-use warnings;
-
-use parent 'URI::file::Base';
-
-use URI::Escape qw(uri_unescape);
-
-our $VERSION = '5.17';
-
-sub _file_extract_path
-{
-    my $class = shift;
-    my $path = shift;
-
-    my @pre;
-    if ($path =~ s/^(:+)//) {
-	if (length($1) == 1) {
-	    @pre = (".") unless length($path);
-	} else {
-	    @pre = ("..") x (length($1) - 1);
-	}
-    } else { #absolute
-	$pre[0] = "";
-    }
-
-    my $isdir = ($path =~ s/:$//);
-    $path =~ s,([%/;]), URI::Escape::escape_char($1),eg;
-
-    my @path = split(/:/, $path, -1);
-    for (@path) {
-	if ($_ eq "." || $_ eq "..") {
-	    $_ = "%2E" x length($_);
-	}
-	$_ = ".." unless length($_);
-    }
-    push (@path,"") if $isdir;
-    (join("/", @pre, @path), 1);
-}
-
-
-sub file
-{
-    my $class = shift;
-    my $uri = shift;
-    my @path;
-
-    my $auth = $uri->authority;
-    if (defined $auth) {
-	if (lc($auth) ne "localhost" && $auth ne "") {
-	    my $u_auth = uri_unescape($auth);
-	    if (!$class->_file_is_localhost($u_auth)) {
-		# some other host (use it as volume name)
-		@path = ("", $auth);
-		# XXX or just return to make it illegal;
-	    }
-	}
-    }
-    my @ps = split("/", $uri->path, -1);
-    shift @ps if @path;
-    push(@path, @ps);
-
-    my $pre = "";
-    if (!@path) {
-	return;  # empty path; XXX return ":" instead?
-    } elsif ($path[0] eq "") {
-	# absolute
-	shift(@path);
-	if (@path == 1) {
-	    return if $path[0] eq "";  # not root directory
-	    push(@path, "");           # volume only, effectively append ":"
-	}
-	@ps = @path;
-	@path = ();
-        my $part;
-	for (@ps) {  #fix up "." and "..", including interior, in relatives
-	    next if $_ eq ".";
-	    $part = $_ eq ".." ? "" : $_;
-	    push(@path,$part);
-	}
-	if ($ps[-1] eq "..") {  #if this happens, we need another :
-	    push(@path,"");
-	}
-	
-    } else {
-	$pre = ":";
-	@ps = @path;
-	@path = ();
-        my $part;
-	for (@ps) {  #fix up "." and "..", including interior, in relatives
-	    next if $_ eq ".";
-	    $part = $_ eq ".." ? "" : $_;
-	    push(@path,$part);
-	}
-	if ($ps[-1] eq "..") {  #if this happens, we need another :
-	    push(@path,"");
-	}
-	
-    }
-    return unless $pre || @path;
-    for (@path) {
-	s/;.*//;  # get rid of parameters
-	#return unless length; # XXX
-	$_ = uri_unescape($_);
-	return if /\0/;
-	return if /:/;  # Should we?
-    }
-    $pre . join(":", @path);
-}
-
-sub dir
-{
-    my $class = shift;
-    my $path = $class->file(@_);
-    return unless defined $path;
-    $path .= ":" unless $path =~ /:$/;
-    $path;
-}
-
-1;

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

@@ -1,32 +0,0 @@
-package URI::file::OS2;
-
-use strict;
-use warnings;
-
-use parent 'URI::file::Win32';
-
-our $VERSION = '5.17';
-
-# The Win32 version translates k:/foo to file://k:/foo  (?!)
-# We add an empty host
-
-sub _file_extract_authority
-{
-    my $class = shift;
-    return $1 if $_[0] =~ s,^\\\\([^\\]+),,;  # UNC
-    return $1 if $_[0] =~ s,^//([^/]+),,;     # UNC too?
-
-    if ($_[0] =~ m#^[a-zA-Z]{1,2}:#) {	      # allow for ab: drives
-	return "";
-    }
-    return;
-}
-
-sub file {
-  my $p = &URI::file::Win32::file;
-  return unless defined $p;
-  $p =~ s,\\,/,g;
-  $p;
-}
-
-1;

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

@@ -1,20 +0,0 @@
-package URI::file::QNX;
-
-use strict;
-use warnings;
-
-use parent 'URI::file::Unix';
-
-our $VERSION = '5.17';
-
-sub _file_extract_path
-{
-    my($class, $path) = @_;
-    # tidy path
-    $path =~ s,(.)//+,$1/,g; # ^// is correct
-    $path =~ s,(/\.)+/,/,g;
-    $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:"
-    $path;
-}
-
-1;

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

@@ -1,58 +0,0 @@
-package URI::file::Unix;
-
-use strict;
-use warnings;
-
-use parent 'URI::file::Base';
-
-use URI::Escape qw(uri_unescape);
-
-our $VERSION = '5.17';
-
-sub _file_extract_path
-{
-    my($class, $path) = @_;
-
-    # tidy path
-    $path =~ s,//+,/,g;
-    $path =~ s,(/\.)+/,/,g;
-    $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:"
-
-    return $path;
-}
-
-sub _file_is_absolute {
-    my($class, $path) = @_;
-    return $path =~ m,^/,;
-}
-
-sub file
-{
-    my $class = shift;
-    my $uri = shift;
-    my @path;
-
-    my $auth = $uri->authority;
-    if (defined($auth)) {
-	if (lc($auth) ne "localhost" && $auth ne "") {
-	    $auth = uri_unescape($auth);
-	    unless ($class->_file_is_localhost($auth)) {
-		push(@path, "", "", $auth);
-	    }
-	}
-    }
-
-    my @ps = $uri->path_segments;
-    shift @ps if @path;
-    push(@path, @ps);
-
-    for (@path) {
-	# Unix file/directory names are not allowed to contain '\0' or '/'
-	return undef if /\0/;
-	return undef if /\//;  # should we really?
-    }
-
-    return join("/", @path);
-}
-
-1;

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

@@ -1,87 +0,0 @@
-package URI::file::Win32;
-
-use strict;
-use warnings;
-
-use parent 'URI::file::Base';
-
-use URI::Escape qw(uri_unescape);
-
-our $VERSION = '5.17';
-
-sub _file_extract_authority
-{
-    my $class = shift;
-
-    return $class->SUPER::_file_extract_authority($_[0])
-	if defined $URI::file::DEFAULT_AUTHORITY;
-
-    return $1 if $_[0] =~ s,^\\\\([^\\]+),,;  # UNC
-    return $1 if $_[0] =~ s,^//([^/]+),,;     # UNC too?
-
-    if ($_[0] =~ s,^([a-zA-Z]:),,) {
-	my $auth = $1;
-	$auth .= "relative" if $_[0] !~ m,^[\\/],;
-	return $auth;
-    }
-    return undef;
-}
-
-sub _file_extract_path
-{
-    my($class, $path) = @_;
-    $path =~ s,\\,/,g;
-    #$path =~ s,//+,/,g;
-    $path =~ s,(/\.)+/,/,g;
-
-    if (defined $URI::file::DEFAULT_AUTHORITY) {
-	$path =~ s,^([a-zA-Z]:),/$1,;
-    }
-
-    return $path;
-}
-
-sub _file_is_absolute {
-    my($class, $path) = @_;
-    return $path =~ m,^[a-zA-Z]:, || $path =~ m,^[/\\],;
-}
-
-sub file
-{
-    my $class = shift;
-    my $uri = shift;
-    my $auth = $uri->authority;
-    my $rel; # is filename relative to drive specified in authority
-    if (defined $auth) {
-        $auth = uri_unescape($auth);
-	if ($auth =~ /^([a-zA-Z])[:|](relative)?/) {
-	    $auth = uc($1) . ":";
-	    $rel++ if $2;
-	} elsif (lc($auth) eq "localhost") {
-	    $auth = "";
-	} elsif (length $auth) {
-	    $auth = "\\\\" . $auth;  # UNC
-	}
-    } else {
-	$auth = "";
-    }
-
-    my @path = $uri->path_segments;
-    for (@path) {
-	return undef if /\0/;
-	return undef if /\//;
-	#return undef if /\\/;        # URLs with "\" is not uncommon
-    }
-    return undef unless $class->fix_path(@path);
-
-    my $path = join("\\", @path);
-    $path =~ s/^\\// if $rel;
-    $path = $auth . $path;
-    $path =~ s,^\\([a-zA-Z])[:|],\u$1:,;
-
-    return $path;
-}
-
-sub fix_path { 1; }
-
-1;