javonet-ruby-sdk 2.5.8 → 2.5.10

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Core.pm

@@ -0,0 +1,155 @@
+use strict;
+use warnings;
+package YAML::PP::Schema::Core;
+
+our $VERSION = 'v0.38.0'; # VERSION
+
+use YAML::PP::Schema::JSON qw/
+    represent_int represent_float represent_literal represent_bool
+    represent_undef
+/;
+
+use B;
+
+use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE /;
+
+my $RE_INT_CORE = qr{^([+-]?(?:[0-9]+))$};
+my $RE_FLOAT_CORE = qr{^([+-]?(?:\.[0-9]+|[0-9]+(?:\.[0-9]*)?)(?:[eE][+-]?[0-9]+)?)$};
+my $RE_INT_OCTAL = qr{^0o([0-7]+)$};
+my $RE_INT_HEX = qr{^0x([0-9a-fA-F]+)$};
+
+sub _from_oct { oct $_[2]->[0] }
+sub _from_hex { hex $_[2]->[0] }
+
+sub register {
+    my ($self, %args) = @_;
+    my $schema = $args{schema};
+
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:null',
+        match => [ equals => $_ => undef ],
+    ) for (qw/ null NULL Null ~ /, '');
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:bool',
+        match => [ equals => $_ => $schema->true ],
+    ) for (qw/ true TRUE True /);
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:bool',
+        match => [ equals => $_ => $schema->false ],
+    ) for (qw/ false FALSE False /);
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:int',
+        match => [ regex => $RE_INT_CORE => \&YAML::PP::Schema::JSON::_to_int ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:int',
+        match => [ regex => $RE_INT_OCTAL => \&_from_oct ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:int',
+        match => [ regex => $RE_INT_HEX => \&_from_hex ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:float',
+        match => [ regex => $RE_FLOAT_CORE => \&YAML::PP::Schema::JSON::_to_float ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:float',
+        match => [ equals => $_ => 0 + "inf" ],
+    ) for (qw/ .inf .Inf .INF +.inf +.Inf +.INF /);
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:float',
+        match => [ equals => $_ => 0 - "inf" ],
+    ) for (qw/ -.inf -.Inf -.INF /);
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:float',
+        match => [ equals => $_ => 0 + "nan" ],
+    ) for (qw/ .nan .NaN .NAN /);
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:str',
+        match => [ all => sub { $_[1]->{value} } ],
+    );
+
+    my $int_flags = B::SVp_IOK;
+    my $float_flags = B::SVp_NOK;
+    $schema->add_representer(
+        flags => $int_flags,
+        code => \&represent_int,
+    );
+    $schema->add_representer(
+        flags => $float_flags,
+        code => \&represent_float,
+    );
+    $schema->add_representer(
+        undefined => \&represent_undef,
+    );
+    $schema->add_representer(
+        equals => $_,
+        code => \&represent_literal,
+    ) for ("", qw/
+        true TRUE True false FALSE False null NULL Null ~
+        .inf .Inf .INF +.inf +.Inf +.INF -.inf -.Inf -.INF .nan .NaN .NAN
+    /);
+    $schema->add_representer(
+        regex => qr{$RE_INT_CORE|$RE_FLOAT_CORE|$RE_INT_OCTAL|$RE_INT_HEX},
+        code => \&represent_literal,
+    );
+
+    if ($schema->bool_class) {
+        for my $class (@{ $schema->bool_class }) {
+            if ($class eq 'perl') {
+                $schema->add_representer(
+                    bool => 1,
+                    code => \&represent_bool,
+                );
+                next;
+            }
+            $schema->add_representer(
+                class_equals => $class,
+                code => \&represent_bool,
+            );
+        }
+    }
+
+    return;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+YAML::PP::Schema::Core - YAML 1.2 Core Schema
+
+=head1 SYNOPSIS
+
+    my $yp = YAML::PP->new( schema => ['Core'] );
+
+=head1 DESCRIPTION
+
+This schema is the official recommended Core Schema for YAML 1.2.
+It loads additional values to the JSON schema as special types, for
+example C<TRUE> and C<True> additional to C<true>.
+
+Official Schema:
+L<https://yaml.org/spec/1.2/spec.html#id2804923>
+
+Here you can see all Schemas and examples implemented by YAML::PP:
+L<https://perlpunk.github.io/YAML-PP-p5/schemas.html>
+
+=head1 METHODS
+
+=over
+
+=item register
+
+Called by YAML::PP::Schema
+
+=back
+
+=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Failsafe.pm

@@ -0,0 +1,49 @@
+use strict;
+use warnings;
+package YAML::PP::Schema::Failsafe;
+
+our $VERSION = 'v0.38.0'; # VERSION
+
+sub register {
+    my ($self, %args) = @_;
+
+    return;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+YAML::PP::Schema::Failsafe - YAML 1.2 Failsafe Schema
+
+=head1 SYNOPSIS
+
+    my $yp = YAML::PP->new( schema => ['Failsafe'] );
+
+=head1 DESCRIPTION
+
+With this schema, everything will be treated as a string. There are no booleans,
+integers, floats or undefined values.
+
+Here you can see all Schemas and examples implemented by YAML::PP:
+L<https://perlpunk.github.io/YAML-PP-p5/schemas.html>
+
+Official Schema: L<https://yaml.org/spec/1.2/spec.html#id2802346>
+
+=head1 METHODS
+
+=over
+
+=item register
+
+Called by YAML::PP::Schema
+
+=back
+
+=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Include.pm

@@ -0,0 +1,259 @@
+use strict;
+use warnings;
+package YAML::PP::Schema::Include;
+
+our $VERSION = 'v0.38.0'; # VERSION
+
+use Carp qw/ croak /;
+use Scalar::Util qw/ weaken /;
+use File::Basename qw/ dirname /;
+
+sub new {
+    my ($class, %args) = @_;
+
+    my $paths = delete $args{paths};
+    if (defined $paths) {
+        unless (ref $paths eq 'ARRAY') {
+            $paths = [$paths];
+        }
+    }
+    else {
+        $paths = [];
+    }
+    my $allow_absolute = $args{allow_absolute} || 0;
+    my $loader = $args{loader} || \&default_loader;
+
+    my $self = bless {
+        paths => $paths,
+        allow_absolute => $allow_absolute,
+        last_includes => [],
+        cached => {},
+        loader => $loader,
+    }, $class;
+    return $self;
+}
+
+sub init {
+    my ($self) = @_;
+    $self->{last_includes} = [];
+    $self->{cached} = [];
+}
+
+sub paths { $_[0]->{paths} }
+sub allow_absolute { $_[0]->{allow_absolute} }
+sub yp {
+    my ($self, $yp) = @_;
+    if (@_ == 2) {
+        $self->{yp} = $yp;
+        weaken $self->{yp};
+        return $yp;
+    }
+    return $self->{yp};
+}
+
+sub register {
+    my ($self, %args) = @_;
+    my $schema = $args{schema};
+
+    $schema->add_resolver(
+        tag => '!include',
+        match => [ all => sub { $self->include(@_) } ],
+        implicit => 0,
+    );
+}
+
+sub include {
+    my ($self, $constructor, $event) = @_;
+    my $yp = $self->yp;
+    my $search_paths = $self->paths;
+    my $allow_absolute = $self->allow_absolute;
+
+    my $relative = not @$search_paths;
+    if ($relative) {
+        my $last_includes = $self->{last_includes};
+        if (@$last_includes) {
+            $search_paths = [ $last_includes->[-1] ];
+        }
+        else {
+            # we are in the top-level file and need to look into
+            # the original YAML::PP instance
+            my $filename = $yp->loader->filename;
+            $search_paths = [dirname $filename];
+        }
+    }
+    my $filename = $event->{value};
+
+    my $fullpath;
+    if (File::Spec->file_name_is_absolute($filename)) {
+        unless ($allow_absolute) {
+            croak "Absolute filenames not allowed";
+        }
+        $fullpath = $filename;
+    }
+    else {
+        my @paths = File::Spec->splitdir($filename);
+        unless ($allow_absolute) {
+            # if absolute paths are not allowed, we also may not use upwards ..
+            @paths = File::Spec->no_upwards(@paths);
+        }
+        for my $candidate (@$search_paths) {
+            my $test = File::Spec->catfile( $candidate, @paths );
+            if (-e $test) {
+                $fullpath = $test;
+                last;
+            }
+        }
+        croak "File '$filename' not found" unless defined $fullpath;
+    }
+
+    if ($self->{cached}->{ $fullpath }++) {
+        croak "Circular include '$fullpath'";
+    }
+    if ($relative) {
+        push @{ $self->{last_includes} }, dirname $fullpath;
+    }
+
+    # We need a new object because we are still in the parsing and
+    # constructing process
+    my $clone = $yp->clone;
+    my ($data) = $self->loader->($clone, $fullpath);
+
+    if ($relative) {
+        pop @{ $self->{last_includes} };
+    }
+    unless (--$self->{cached}->{ $fullpath }) {
+        delete $self->{cached}->{ $fullpath };
+    }
+    return $data;
+}
+
+sub loader {
+    my ($self, $code) = @_;
+    if (@_ == 2) {
+        $self->{loader} = $code;
+        return $code;
+    }
+    return $self->{loader};
+}
+sub default_loader {
+    my ($yp, $filename) = @_;
+    $yp->load_file($filename);
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+YAML::PP::Schema::Include - Include YAML files
+
+=head1 SYNOPSIS
+
+    # /path/to/file.yaml
+    # ---
+    # included: !include include/file2.yaml
+
+    # /path/to/include/file2.yaml
+    # ---
+    # a: b
+
+    my $include = YAML::PP::Schema::Include->new;
+
+    my $yp = YAML::PP->new( schema => ['+', $include] );
+    # we need the original YAML::PP object for getting the current filename
+    # and for loading another file
+    $include->yp($yp);
+
+    my ($data) = $yp->load_file("/path/to/file.yaml");
+
+    # The result will be:
+    $data = {
+        included => { a => 'b' }
+    };
+
+Allow absolute filenames and upwards C<'..'>:
+
+    my $include = YAML::PP::Schema::Include->new(
+        allow_absolute => 1, # default: 0
+    );
+
+Specify paths to search for includes:
+
+    my @include_paths = ("/path/to/include/yaml/1", "/path/to/include/yaml/2");
+    my $include = YAML::PP::Schema::Include->new(
+        paths => \@include_paths,
+    );
+    my $yp = YAML::PP->new( schema => ['+', $include] );
+    $include->yp($yp);
+
+    # /path/to/include/yaml/1/file1.yaml
+    # ---
+    # a: b
+
+    my $yaml = <<'EOM';
+    - included: !include file1.yaml
+    EOM
+    my ($data) = $yp->load_string($yaml);
+
+
+=head1 DESCRIPTION
+
+This plugin allows you to split a large YAML file into smaller ones.
+You can then include these files with the C<!include> tag.
+
+It will search for the specified filename relative to the currently processed
+filename.
+
+You can also specify the paths where to search for files to include. It iterates
+through the paths and returns the first filename that exists.
+
+By default, only relative paths are allowed. Any C<../> in the path will be
+removed. You can change that behaviour by setting the option C<allow_absolute>
+to true.
+
+If the included file contains more than one document, only the first one
+will be included.
+
+I will probably add a possibility to return all documents as an arrayref.
+
+The included YAML file will be loaded by creating a new L<YAML::PP> object
+with the schema from the existing object. This way you can recursively include
+files.
+
+You can even reuse the same include via an alias:
+
+    ---
+    invoice:
+        shipping address: &address !include address.yaml
+        billing address: *address
+
+Circular includes will be detected, and will be fatal.
+
+It's possible to specify what to do with the included file:
+
+    my $include = YAML::PP::Schema::Include->new(
+        loader => sub {
+            my ($yp, $filename);
+            if ($filename =~ m/\.txt$/) {
+                # open file and just return text
+            }
+            else {
+                # default behaviour
+                return $yp->load_file($filename);
+            }
+        },
+    );
+
+For example, RAML defines an C<!include> tag which depends on the file
+content. If it contains a special RAML directive, it will be loaded as
+YAML, otherwise the content of the file will be included as a string.
+
+So with this plugin you are able to read RAML specifications.
+
+
+=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/JSON.pm

@@ -0,0 +1,259 @@
+use strict;
+use warnings;
+package YAML::PP::Schema::JSON;
+
+our $VERSION = 'v0.38.0'; # VERSION
+
+use base 'Exporter';
+our @EXPORT_OK = qw/
+    represent_int represent_float represent_literal represent_bool
+    represent_undef
+/;
+
+use B;
+use Carp qw/ croak /;
+
+use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE YAML_SINGLE_QUOTED_SCALAR_STYLE /;
+
+my $RE_INT = qr{^(-?(?:0|[1-9][0-9]*))$};
+my $RE_FLOAT = qr{^(-?(?:0|[1-9][0-9]*)(?:\.[0-9]*)?(?:[eE][+-]?[0-9]+)?)$};
+
+sub _to_int { 0 + $_[2]->[0] }
+
+# DaTa++ && shmem++
+sub _to_float { unpack F => pack F => $_[2]->[0] }
+
+sub register {
+    my ($self, %args) = @_;
+    my $schema = $args{schema};
+    my $options = $args{options};
+    my $empty_null = 0;
+    for my $opt (@$options) {
+        if ($opt eq 'empty=str') {
+        }
+        elsif ($opt eq 'empty=null') {
+            $empty_null = 1;
+        }
+        else {
+            croak "Invalid option for JSON Schema: '$opt'";
+        }
+    }
+
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:null',
+        match => [ equals => null => undef ],
+    );
+    if ($empty_null) {
+        $schema->add_resolver(
+            tag => 'tag:yaml.org,2002:null',
+            match => [ equals => '' => undef ],
+            implicit => 1,
+        );
+    }
+    else {
+        $schema->add_resolver(
+            tag => 'tag:yaml.org,2002:str',
+            match => [ equals => '' => '' ],
+            implicit => 1,
+        );
+    }
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:bool',
+        match => [ equals => true => $schema->true ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:bool',
+        match => [ equals => false => $schema->false ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:int',
+        match => [ regex => $RE_INT => \&_to_int ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:float',
+        match => [ regex => $RE_FLOAT => \&_to_float ],
+    );
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:str',
+        match => [ all => sub { $_[1]->{value} } ],
+    );
+
+    $schema->add_representer(
+        undefined => \&represent_undef,
+    );
+
+    my $int_flags = B::SVp_IOK;
+    my $float_flags = B::SVp_NOK;
+    $schema->add_representer(
+        flags => $int_flags,
+        code => \&represent_int,
+    );
+    my %special = ( (0+'nan').'' => '.nan', (0+'inf').'' => '.inf', (0-'inf').'' => '-.inf' );
+    $schema->add_representer(
+        flags => $float_flags,
+        code => \&represent_float,
+    );
+    $schema->add_representer(
+        equals => $_,
+        code => \&represent_literal,
+    ) for ("", qw/ true false null /);
+    $schema->add_representer(
+        regex => qr{$RE_INT|$RE_FLOAT},
+        code => \&represent_literal,
+    );
+
+    if ($schema->bool_class) {
+        for my $class (@{ $schema->bool_class }) {
+            if ($class eq 'perl') {
+                $schema->add_representer(
+                    bool => 1,
+                    code => \&represent_bool,
+                );
+                next;
+            }
+            $schema->add_representer(
+                class_equals => $class,
+                code => \&represent_bool,
+            );
+        }
+    }
+
+    return;
+}
+
+sub represent_undef {
+    my ($rep, $node) = @_;
+    $node->{style} = YAML_PLAIN_SCALAR_STYLE;
+    $node->{data} = 'null';
+    return 1;
+}
+
+sub represent_literal {
+    my ($rep, $node) = @_;
+    $node->{style} ||= YAML_SINGLE_QUOTED_SCALAR_STYLE;
+    $node->{data} = "$node->{value}";
+    return 1;
+}
+
+
+sub represent_int {
+    my ($rep, $node) = @_;
+    if (int($node->{value}) ne $node->{value}) {
+        return 0;
+    }
+    $node->{style} = YAML_PLAIN_SCALAR_STYLE;
+    $node->{data} = "$node->{value}";
+    return 1;
+}
+
+my %special = (
+    (0+'nan').'' => '.nan',
+    (0+'inf').'' => '.inf',
+    (0-'inf').'' => '-.inf'
+);
+sub represent_float {
+    my ($rep, $node) = @_;
+    if (exists $special{ $node->{value} }) {
+        $node->{style} = YAML_PLAIN_SCALAR_STYLE;
+        $node->{data} = $special{ $node->{value} };
+        return 1;
+    }
+    if (0.0 + $node->{value} ne $node->{value}) {
+        return 0;
+    }
+    if (int($node->{value}) eq $node->{value} and not $node->{value} =~ m/\./) {
+        $node->{value} .= '.0';
+    }
+    $node->{style} = YAML_PLAIN_SCALAR_STYLE;
+    $node->{data} = "$node->{value}";
+    return 1;
+}
+
+sub represent_bool {
+    my ($rep, $node) = @_;
+    my $string = $node->{value} ? 'true' : 'false';
+    $node->{style} = YAML_PLAIN_SCALAR_STYLE;
+    @{ $node->{items} } = $string;
+    $node->{data} = $string;
+    return 1;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+YAML::PP::Schema::JSON - YAML 1.2 JSON Schema
+
+=head1 SYNOPSIS
+
+    my $yp = YAML::PP->new( schema => ['JSON'] );
+    my $yp = YAML::PP->new( schema => [qw/ JSON empty=str /] );
+    my $yp = YAML::PP->new( schema => [qw/ JSON empty=null /] );
+
+=head1 DESCRIPTION
+
+With this schema, the resolution of plain values will work like in JSON.
+Everything that matches a special value will be loaded as such, other plain
+scalars will be loaded as strings.
+
+Note that this is different from the official YAML 1.2 JSON Schema, where all
+strings have to be quoted.
+
+Here you can see all Schemas and examples implemented by YAML::PP:
+L<https://perlpunk.github.io/YAML-PP-p5/schemas.html>
+
+Official Schema: L<https://yaml.org/spec/1.2/spec.html#id2803231>
+
+=head1 CONFIGURATION
+
+The official YAML 1.2 JSON Schema wants all strings to be quoted.
+YAML::PP currently does not require that (it might do this optionally in
+the future).
+
+That means, there are no empty nodes allowed in the official schema. Example:
+
+    ---
+    key:
+
+The default behaviour of YAML::PP::Schema::JSON is to return an empty string,
+so it would be equivalent to:
+
+    ---
+    key: ''
+
+You can configure it to resolve this as C<undef>:
+
+    my $yp = YAML::PP->new( schema => [qw/ JSON empty=null /] );
+
+This way it is equivalent to:
+
+    ---
+    key: null
+
+The default is:
+
+    my $yp = YAML::PP->new( schema => [qw/ JSON empty=str /] );
+
+=head1 METHODS
+
+=over
+
+=item register
+
+Called by YAML::PP::Schema
+
+=item represent_bool, represent_float, represent_int, represent_literal, represent_undef
+
+Functions to represent the several node types.
+
+    represent_bool($representer, $node);
+
+=back
+
+=cut