javonet-ruby-sdk 2.1.1 → 2.1.3

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/mailto.pm

@@ -1,88 +0,0 @@
-package URI::mailto;  # RFC 2368
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent qw(URI URI::_query);
-
-sub to
-{
-    my $self = shift;
-    my @old = $self->headers;
-    if (@_) {
-	my @new = @old;
-	# get rid of any other to: fields
-	for (my $i = 0; $i < @new; $i += 2) {
-	    if (lc($new[$i] || '') eq "to") {
-		splice(@new, $i, 2);
-		redo;
-	    }
-	}
-
-	my $to = shift;
-	$to = "" unless defined $to;
-	unshift(@new, "to" => $to);
-	$self->headers(@new);
-    }
-    return unless defined wantarray;
-
-    my @to;
-    while (@old) {
-	my $h = shift @old;
-	my $v = shift @old;
-	push(@to, $v) if lc($h) eq "to";
-    }
-    join(",", @to);
-}
-
-
-sub headers 
-{
-    my $self = shift;
-
-    # The trick is to just treat everything as the query string...
-    my $opaque = "to=" . $self->opaque;
-    $opaque =~ s/\?/&/;
-
-    if (@_) {
-	my @new = @_;
-
-	# strip out any "to" fields
-	my @to;
-	for (my $i=0; $i < @new; $i += 2) {
-	    if (lc($new[$i] || '') eq "to") {
-		push(@to, (splice(@new, $i, 2))[1]);  # remove header
-		redo;
-	    }
-	}
-
-	my $new = join(",",@to);
-	$new =~ s/%/%25/g;
-	$new =~ s/\?/%3F/g;
-	$self->opaque($new);
-	$self->query_form(@new) if @new;
-    }
-    return unless defined wantarray;
-
-    # I am lazy today...
-    URI->new("mailto:?$opaque")->query_form;
-}
-
-# https://datatracker.ietf.org/doc/html/rfc6068#section-5 requires 
-# plus signs (+) not to be turned into spaces
-sub query_form 
-{
-    my $self   = shift;
-    my @fields = $self->SUPER::query_form(@_);
-    for ( my $i = 0 ; $i < @fields ; $i += 2 ) {
-        if ( $fields[0] eq 'to' ) {
-            $fields[1] =~ s/ /+/g;
-            last;
-        }
-    }
-    return @fields;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/mms.pm

@@ -1,12 +0,0 @@
-package URI::mms;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::http';
-
-sub default_port { 1755 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/news.pm

@@ -1,71 +0,0 @@
-package URI::news;  # draft-gilman-news-url-01
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_server';
-
-use URI::Escape qw(uri_unescape);
-use Carp ();
-
-sub default_port { 119 }
-
-#   newsURL      =  scheme ":" [ news-server ] [ refbygroup | message ]
-#   scheme       =  "news" | "snews" | "nntp"
-#   news-server  =  "//" server "/"
-#   refbygroup   = group [ "/" messageno [ "-" messageno ] ]
-#   message      = local-part "@" domain
-
-sub _group
-{
-    my $self = shift;
-    my $old = $self->path;
-    if (@_) {
-	my($group,$from,$to) = @_;
-	if ($group =~ /\@/) {
-            $group =~ s/^<(.*)>$/$1/;  # "<" and ">" should not be part of it
-	}
-	$group =~ s,%,%25,g;
-	$group =~ s,/,%2F,g;
-	my $path = $group;
-	if (defined $from) {
-	    $path .= "/$from";
-	    $path .= "-$to" if defined $to;
-	}
-	$self->path($path);
-    }
-
-    $old =~ s,^/,,;
-    if ($old !~ /\@/ && $old =~ s,/(.*),, && wantarray) {
-	my $extra = $1;
-	return (uri_unescape($old), split(/-/, $extra));
-    }
-    uri_unescape($old);
-}
-
-
-sub group
-{
-    my $self = shift;
-    if (@_) {
-	Carp::croak("Group name can't contain '\@'") if $_[0] =~ /\@/;
-    }
-    my @old = $self->_group(@_);
-    return if $old[0] =~ /\@/;
-    wantarray ? @old : $old[0];
-}
-
-sub message
-{
-    my $self = shift;
-    if (@_) {
-	Carp::croak("Message must contain '\@'") unless $_[0] =~ /\@/;
-    }
-    my $old = $self->_group(@_);
-    return undef unless $old =~ /\@/;
-    return $old;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/nntp.pm

@@ -1,10 +0,0 @@
-package URI::nntp;  # draft-gilman-news-url-01
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::news';
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/nntps.pm

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

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/pop.pm

@@ -1,71 +0,0 @@
-package URI::pop;   # RFC 2384
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_server';
-
-use URI::Escape qw(uri_unescape);
-
-sub default_port { 110 }
-
-#pop://<user>;auth=<auth>@<host>:<port>
-
-sub user
-{
-    my $self = shift;
-    my $old = $self->userinfo;
-
-    if (@_) {
-	my $new_info = $old;
-	$new_info = "" unless defined $new_info;
-	$new_info =~ s/^[^;]*//;
-
-	my $new = shift;
-	if (!defined($new) && !length($new_info)) {
-	    $self->userinfo(undef);
-	} else {
-	    $new = "" unless defined $new;
-	    $new =~ s/%/%25/g;
-	    $new =~ s/;/%3B/g;
-	    $self->userinfo("$new$new_info");
-	}
-    }
-
-    return undef unless defined $old;
-    $old =~ s/;.*//;
-    return uri_unescape($old);
-}
-
-sub auth
-{
-    my $self = shift;
-    my $old = $self->userinfo;
-
-    if (@_) {
-	my $new = $old;
-	$new = "" unless defined $new;
-	$new =~ s/(^[^;]*)//;
-	my $user = $1;
-	$new =~ s/;auth=[^;]*//i;
-
-	
-	my $auth = shift;
-	if (defined $auth) {
-	    $auth =~ s/%/%25/g;
-	    $auth =~ s/;/%3B/g;
-	    $new = ";AUTH=$auth$new";
-	}
-	$self->userinfo("$user$new");
-	
-    }
-
-    return undef unless defined $old;
-    $old =~ s/^[^;]*//;
-    return uri_unescape($1) if $old =~ /;auth=(.*)/i;
-    return;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/rlogin.pm

@@ -1,12 +0,0 @@
-package URI::rlogin;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_login';
-
-sub default_port { 513 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/rsync.pm

@@ -1,14 +0,0 @@
-package URI::rsync;  # http://rsync.samba.org/
-
-# rsync://[USER@]HOST[:PORT]/SRC
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent qw(URI::_server URI::_userpass);
-
-sub default_port { 873 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/rtsp.pm

@@ -1,12 +0,0 @@
-package URI::rtsp;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::http';
-
-sub default_port { 554 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/rtspu.pm

@@ -1,12 +0,0 @@
-package URI::rtspu;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::rtsp';
-
-sub default_port { 554 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/sftp.pm

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

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/sip.pm

@@ -1,81 +0,0 @@
-#
-# Written by Ryan Kereliuk <ryker@ryker.org>.  This file may be
-# distributed under the same terms as Perl itself.
-#
-# The RFC 3261 sip URI is <scheme>:<authority>;<params>?<query>.
-#
-
-package URI::sip;
-
-use strict;
-use warnings;
-
-use parent qw(URI::_server URI::_userpass);
-
-use URI::Escape ();
-
-our $VERSION = '5.17';
-
-sub default_port { 5060 }
-
-sub authority
-{
-    my $self = shift;
-    $$self =~ m,^($URI::scheme_re:)?([^;?]*)(.*)$,os or die;
-    my $start = $1;
-    my $authoritystr = $2;
-    my $rest = $3;
-
-    if (@_) {
-        $authoritystr = shift;
-        $authoritystr =~ s/([^$URI::uric])/ URI::Escape::escape_char($1)/ego;
-        $$self = $start . $authoritystr . $rest;
-    }
-    return $authoritystr;
-}
-
-sub params_form
-{
-    my $self = shift;
-    $$self =~ m,^((?:$URI::scheme_re:)?)(?:([^;?]*))?(;[^?]*)?(.*)$,os or die;
-    my $start = $1 . $2;
-    my $paramstr = $3;
-    my $rest = $4;
-
-    if (@_) {
-	my @paramarr;
-	for (my $i = 0; $i < @_; $i += 2) {
-	    push(@paramarr, "$_[$i]=$_[$i+1]");
-	}
-	$paramstr = join(";", @paramarr);
-	$$self = $start . ";" . $paramstr . $rest;
-    }
-    $paramstr =~ s/^;//o;
-    return split(/[;=]/, $paramstr);
-}
-
-sub params
-{
-    my $self = shift;
-    $$self =~ m,^((?:$URI::scheme_re:)?)(?:([^;?]*))?(;[^?]*)?(.*)$,os or die;
-    my $start = $1 . $2;
-    my $paramstr = $3;
-    my $rest = $4;
-
-    if (@_) {
-        $paramstr = shift; 
-        $$self = $start . ";" . $paramstr . $rest;
-    }
-    $paramstr =~ s/^;//o;
-    return $paramstr;
-}
-
-# Inherited methods that make no sense for a SIP URI.
-sub path {}
-sub path_query {}
-sub path_segments {}
-sub abs { shift }
-sub rel { shift }
-sub query_keywords {}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/sips.pm

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

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/snews.pm

@@ -1,14 +0,0 @@
-package URI::snews;  # draft-gilman-news-url-01
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::news';
-
-sub default_port { 563 }
-
-sub secure { 1 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/ssh.pm

@@ -1,16 +0,0 @@
-package URI::ssh;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_login';
-
-# ssh://[USER@]HOST[:PORT]/SRC
-
-sub default_port { 22 }
-
-sub secure { 1 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/telnet.pm

@@ -1,12 +0,0 @@
-package URI::telnet;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_login';
-
-sub default_port { 23 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/tn3270.pm

@@ -1,12 +0,0 @@
-package URI::tn3270;
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::_login';
-
-sub default_port { 23 }
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/urn/isbn.pm

@@ -1,105 +0,0 @@
-package URI::urn::isbn;  # RFC 3187
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::urn';
-
-use Carp qw(carp);
-
-BEGIN {
-    require Business::ISBN;
-
-    local $^W = 0; # don't warn about dev versions, perl5.004 style
-    warn "Using Business::ISBN version " . Business::ISBN->VERSION .
-        " which is deprecated.\nUpgrade to Business::ISBN version 3.005\n"
-        if Business::ISBN->VERSION < 3.005;
-    }
-
-sub _isbn {
-    my $nss = shift;
-    $nss = $nss->nss if ref($nss);
-    my $isbn = Business::ISBN->new($nss);
-    $isbn = undef if $isbn && !$isbn->is_valid;
-    return $isbn;
-}
-
-sub _nss_isbn {
-    my $self = shift;
-    my $nss = $self->nss(@_);
-    my $isbn = _isbn($nss);
-    $isbn = $isbn->as_string if $isbn;
-    return($nss, $isbn);
-}
-
-sub isbn {
-    my $self = shift;
-    my $isbn;
-    (undef, $isbn) = $self->_nss_isbn(@_);
-    return $isbn;
-}
-
-sub isbn_publisher_code {
-    my $isbn = shift->_isbn || return undef;
-    return $isbn->publisher_code;
-}
-
-BEGIN {
-my $group_method = do {
-    local $^W = 0; # don't warn about dev versions, perl5.004 style
-    Business::ISBN->VERSION >= 2 ? 'group_code' : 'country_code';
-    };
-
-sub isbn_group_code {
-    my $isbn = shift->_isbn || return undef;
-    return $isbn->$group_method;
-}
-}
-
-sub isbn_country_code {
-    my $name = (caller(0))[3]; $name =~ s/.*:://;
-    carp "$name is DEPRECATED. Use isbn_group_code instead";
-
-    no strict 'refs';
-    &isbn_group_code;
-}
-
-BEGIN {
-my $isbn13_method = do {
-    local $^W = 0; # don't warn about dev versions, perl5.004 style
-    Business::ISBN->VERSION >= 2 ? 'as_isbn13' : 'as_ean';
-    };
-
-sub isbn13 {
-    my $isbn = shift->_isbn || return undef;
-
-    # Business::ISBN 1.x didn't put hyphens in the EAN, and it was just a string
-    # Business::ISBN 2.0 doesn't do EAN, but it does ISBN-13 objects
-    #   and it uses the hyphens, so call as_string with an empty anon array
-    # or, adjust the test and features to say that it comes out with hyphens.
-    my $thingy = $isbn->$isbn13_method;
-    return eval { $thingy->can( 'as_string' ) } ? $thingy->as_string([]) : $thingy;
-}
-}
-
-sub isbn_as_ean {
-    my $name = (caller(0))[3]; $name =~ s/.*:://;
-    carp "$name is DEPRECATED. Use isbn13 instead";
-
-    no strict 'refs';
-    &isbn13;
-}
-
-sub canonical {
-    my $self = shift;
-    my($nss, $isbn) = $self->_nss_isbn;
-    my $new = $self->SUPER::canonical;
-    return $new unless $nss && $isbn && $nss ne $isbn;
-    $new = $new->clone if $new == $self;
-    $new->nss($isbn);
-    return $new;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/URI/urn/oid.pm

@@ -1,20 +0,0 @@
-package URI::urn::oid;  # RFC 2061
-
-use strict;
-use warnings;
-
-our $VERSION = '5.17';
-
-use parent 'URI::urn';
-
-sub oid {
-    my $self = shift;
-    my $old = $self->nss;
-    if (@_) {
-	$self->nss(join(".", @_));
-    }
-    return split(/\./, $old) if wantarray;
-    return $old;
-}
-
-1;