RubyGems - javonet-ruby-sdk - Versions diffs - 2.5.10 → 2.5.11 - Mend

javonet-ruby-sdk 2.5.10 → 2.5.11

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (266) hide show

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Parser.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Parser;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use constant TRACE => $ENV{YAML_PP_TRACE} ? 1 : 0;
 use constant DEBUG => ($ENV{YAML_PP_DEBUG} || $ENV{YAML_PP_TRACE}) ? 1 : 0;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Perl.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Perl;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use base 'Exporter';
 use base 'YAML::PP';

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Reader.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Reader;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 sub input { return $_[0]->{input} }
 sub set_input { $_[0]->{input} = $_[1] }

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Render.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Render;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use constant TRACE => $ENV{YAML_PP_TRACE} ? 1 : 0;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Representer.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Representer;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use Scalar::Util qw/ reftype blessed refaddr /;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema/Binary.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Binary;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use MIME::Base64 qw/ decode_base64 encode_base64 /;
 use YAML::PP::Common qw/ YAML_ANY_SCALAR_STYLE /;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema/Catchall.pm ADDED Viewed

@@ -0,0 +1,76 @@
+use strict;
+use warnings;
+package YAML::PP::Schema::Catchall;
+our $VERSION = 'v0.38.1'; # VERSION
+use Carp qw/ croak /;
+use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE YAML_SINGLE_QUOTED_SCALAR_STYLE /;
+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 => qr{^(?:!|tag:)},
+        match => [ all => sub {
+            my ($constructor, $event) = @_;
+            my $value = $event->{value};
+            return $value;
+        }],
+        implicit => 0,
+    );
+    $schema->add_sequence_resolver(
+        tag => qr{^(?:!|tag:)},
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            push @$$ref, @$list;
+        },
+    );
+    $schema->add_mapping_resolver(
+        tag => qr{^(?:!|tag:)},
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            for (my $i = 0; $i < @$list; $i += 2) {
+                $$ref->{ $list->[ $i ] } = $list->[ $i + 1 ];
+            }
+        },
+    );
+    return;
+}
+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
+=cut

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

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Core;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP::Schema::JSON qw/
     represent_int represent_float represent_literal represent_bool

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

@@ -2,10 +2,32 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Failsafe;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 sub register {
     my ($self, %args) = @_;
+    my $schema = $args{schema};
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:str',
+        match => [ all => sub { $_[1]->{value} } ],
+    );
+    $schema->add_sequence_resolver(
+        tag => 'tag:yaml.org,2002:seq',
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            push @$$ref, @$list;
+        },
+    );
+    $schema->add_mapping_resolver(
+        tag => 'tag:yaml.org,2002:map',
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            for (my $i = 0; $i < @$list; $i += 2) {
+                $$ref->{ $list->[ $i ] } = $list->[ $i + 1 ];
+            }
+        },
+    );
     return;
 }

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

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Include;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use Carp qw/ croak /;
 use Scalar::Util qw/ weaken /;

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

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::JSON;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use base 'Exporter';
 our @EXPORT_OK = qw/

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema/Merge.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Merge;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP::Type::MergeKey;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema/Perl.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Perl;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use Scalar::Util qw/ blessed reftype /;
@@ -157,7 +157,7 @@ sub register {
             tag => qr{^$perl_regex/code:.+},
             match => [ all => $loadcode_dummy ],
             implicit => 0,
-        ) if $no_objects;
+        );
     }
     # Glob
@@ -207,6 +207,10 @@ sub register {
         my ($constructor, $event) = @_;
         return $self->construct_regex($event->{value});
     };
+    my $load_regex_dummy = sub {
+        my ($constructor, $event) = @_;
+        return $event->{value};
+    };
     my $load_regex_blessed = sub {
         my ($constructor, $event) = @_;
         my $class = $event->{tag};
@@ -225,10 +229,10 @@ sub register {
         implicit => 0,
     );
     $schema->add_resolver(
-        tag => qr{^$perl_regex/regexp:$class_regex$},
-        match => [ all => $load_regex ],
+        tag => qr{^$perl_regex/regexp:.*$},
+        match => [ all => $load_regex_dummy ],
         implicit => 0,
-    ) if $no_objects;
+    );
     my $load_sequence = sub { return [] };
     my $load_sequence_blessed = sub {
@@ -248,7 +252,7 @@ sub register {
     $schema->add_sequence_resolver(
         tag => qr{^$perl_regex/array:.+$},
         on_create => $load_sequence,
-    ) if $no_objects;
+    );# if $no_objects;
     my $load_mapping = sub { return {} };
     my $load_mapping_blessed = sub {
@@ -268,7 +272,7 @@ sub register {
     $schema->add_mapping_resolver(
         tag => qr{^$perl_regex/hash:.+$},
         on_create => $load_mapping,
-    ) if $no_objects;
+    ); # if $no_objects;
     # Ref
     my $load_ref = sub {
@@ -305,7 +309,7 @@ sub register {
             my ($constructor, $ref, $list) = @_;
             $$$ref = $self->construct_ref($list);
         },
-    ) if $no_objects;
+    ); # if $no_objects;
     # Scalar ref
     my $load_scalar_ref = sub {
@@ -342,7 +346,7 @@ sub register {
             my ($constructor, $ref, $list) = @_;
             $$$ref = $self->construct_scalar($list);
         },
-    ) if $no_objects;
+    ); # if $no_objects;
     $schema->add_representer(
         scalarref => 1,

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema/Tie/IxHash.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Tie::IxHash;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use base 'YAML::PP::Schema';

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema/YAML1_1.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::YAML1_1;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP::Schema::JSON qw/
     represent_int represent_float represent_literal represent_bool

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Schema.pm CHANGED Viewed

@@ -4,10 +4,11 @@ package YAML::PP::Schema;
 use B;
 use Module::Load qw//;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE /;
+use Carp qw/ croak /;
 use Scalar::Util qw/ blessed /;
 sub new {
@@ -306,6 +307,9 @@ sub load_scalar {
     my $resolvers = $self->resolvers;
     my $res;
     if ($tag) {
+        if ($tag eq '!') {
+            return $value;
+        }
         $res = $resolvers->{tag}->{ $tag };
         if (not $res and my $matches = $resolvers->{tags}) {
             for my $match (@$matches) {
@@ -316,6 +320,9 @@ sub load_scalar {
                 }
             }
         }
+        unless ($res) {
+            croak "Unknown tag '$tag'. Use schema 'Catchall' to ignore unknown tags";
+        }
     }
     else {
         $res = $resolvers->{value};
@@ -376,6 +383,7 @@ sub create_sequence {
                 }
             }
         }
+        croak "Unknown tag '$tag'. Use schema 'Catchall' to ignore unknown tags";
     }
     return ($data, $on_data);
@@ -406,6 +414,7 @@ sub create_mapping {
                 }
             }
         }
+        croak "Unknown tag '$tag'. Use schema 'Catchall' to ignore unknown tags";
     }
     return ($data, $on_data);

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Type/MergeKey.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Type::MergeKey;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 sub new {
     my ($class) = @_;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Writer/File.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Writer::File;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use Scalar::Util qw/ openhandle /;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP/Writer.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Writer;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 sub output { return $_[0]->{output} }
 sub set_output { $_[0]->{output} = $_[1] }

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/YAML/PP.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP::Schema;
 use YAML::PP::Schema::JSON;
@@ -1029,18 +1029,26 @@ Serializing Perl objects and types
 Serializing binary data
-=item L<YAML::PP::Schema::Tie::IxHash>
-Deprecated. See option C<preserve>
 =item L<YAML::PP::Schema::Merge>
 YAML 1.1 merge keys for mappings
+=item L<YAML::PP::Schema::Catchall>
+Adding this allows (and ignores) all unknown tags, like
+    key: !something value
+By default they will result in an error.
 =item L<YAML::PP::Schema::Include>
 Include other YAML files via C<!include> tags
+=item L<YAML::PP::Schema::Tie::IxHash>
+Deprecated. See option C<preserve>
 =back
 To make the parsing process faster, you can plugin the libyaml parser