npm - javonet-nodejs-sdk - Versions diffs - 2.5.10 → 2.5.11 - Mend

javonet-nodejs-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 (268) hide show

package/Binaries/Perl/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/auto/YAML/PP/.packlist CHANGED Viewed

@@ -25,6 +25,7 @@ D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Render.pm
 D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Representer.pm
 D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Schema.pm
 D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Schema\Binary.pm
+D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Schema\Catchall.pm
 D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Schema\Core.pm
 D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Schema\Failsafe.pm
 D:\a\1\s\src\perl\deps\lib\perl5\YAML\PP\Schema\Include.pm

package/Binaries/Perl/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/auto/autobox/autobox.xs.dll CHANGED Viewed

Binary file

package/Binaries/Perl/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/perllocal.pod CHANGED Viewed

@@ -1,4 +1,4 @@
-=head2 Sat Jan 11 10:49:22 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Mon Feb  3 11:57:47 2025: C<Module> L<Attribute::Util|Attribute::Util>
 =over 4
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 1.227>
+C<VERSION: 1.07>
 =item *
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:49:37 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Mon Feb  3 11:57:51 2025: C<Module> L<Data::Cmp|Data::Cmp>
 =over 4
@@ -34,15 +34,15 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: v0.38.0>
+C<VERSION: 0.010>
 =item *
-C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-load-dump bin/yamlpp-parse-emit>
+C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:49:40 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=head2 Mon Feb  3 11:58:44 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 =over 4
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 1.000010>
+C<VERSION: 0.40>
 =item *
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:49:44 2025: C<Module> L<PPI|PPI>
+=head2 Mon Feb  3 11:58:52 2025: C<Module> L<Data::UUID|Data::UUID>
 =over 4
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 1.281>
+C<VERSION: 1.227>
 =item *
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:49:49 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Mon Feb  3 11:58:58 2025: C<Module> L<Want|Want>
 =over 4
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 0.910>
+C<VERSION: 0.29>
 =item *
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:49:55 2025: C<Module> L<Want|Want>
+=head2 Mon Feb  3 11:59:04 2025: C<Module> L<Safe::Isa|Safe::Isa>
 =over 4
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 0.29>
+C<VERSION: 1.000010>
 =item *
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:49:57 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Mon Feb  3 11:59:13 2025: C<Module> L<YAML::PP|YAML::PP>
 =over 4
@@ -144,15 +144,15 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: v1.3.15>
+C<VERSION: v0.38.1>
 =item *
-C<EXE_FILES: >
+C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-load-dump bin/yamlpp-parse-emit>
 =back
-=head2 Sat Jan 11 10:50:02 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Mon Feb  3 11:59:17 2025: C<Module> L<PPI|PPI>
 =over 4
@@ -166,7 +166,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 1.07>
+C<VERSION: 1.281>
 =item *
@@ -174,7 +174,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:50:08 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Mon Feb  3 11:59:21 2025: C<Module> L<PPI::XS|PPI::XS>
 =over 4
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 0.017>
+C<VERSION: 0.910>
 =item *
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:50:13 2025: C<Module> L<autobox|autobox>
+=head2 Mon Feb  3 11:59:23 2025: C<Module> L<Nice::Try|Nice::Try>
 =over 4
@@ -210,7 +210,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: v3.0.2>
+C<VERSION: v1.3.15>
 =item *
@@ -218,7 +218,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:50:16 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Mon Feb  3 11:59:29 2025: C<Module> L<Test::Fatal|Test::Fatal>
 =over 4
@@ -232,7 +232,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 0.010>
+C<VERSION: 0.017>
 =item *
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 =back
-=head2 Sat Jan 11 10:50:21 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Mon Feb  3 11:59:33 2025: C<Module> L<autobox|autobox>
 =over 4
@@ -254,7 +254,7 @@ C<LINKTYPE: dynamic>
 =item *
-C<VERSION: 0.40>
+C<VERSION: v3.0.2>
 =item *

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Common.pm CHANGED Viewed

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

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Constructor.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Constructor;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP;
 use YAML::PP::Common qw/

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Dumper.pm CHANGED Viewed

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

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Emitter.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Emitter;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use Data::Dumper;
 use YAML::PP::Common qw/

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Exception.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Exception;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use overload '""' => \&to_string;

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Grammar.pm CHANGED Viewed

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

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Highlight.pm CHANGED Viewed

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

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Lexer.pm CHANGED Viewed

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Lexer;
-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;

package/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Loader.pm CHANGED Viewed

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Loader;
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.38.1'; # VERSION
 use YAML::PP::Parser;
 use YAML::PP::Constructor;

package/Binaries/Perl/Windows/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;

package/Binaries/Perl/Windows/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';

package/Binaries/Perl/Windows/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] }

package/Binaries/Perl/Windows/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;

package/Binaries/Perl/Windows/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 /;

package/Binaries/Perl/Windows/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 /;

package/Binaries/Perl/Windows/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

package/Binaries/Perl/Windows/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

package/Binaries/Perl/Windows/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;
 }

package/Binaries/Perl/Windows/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 /;

package/Binaries/Perl/Windows/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/

package/Binaries/Perl/Windows/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;

package/Binaries/Perl/Windows/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,

package/Binaries/Perl/Windows/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';

package/Binaries/Perl/Windows/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

package/Binaries/Perl/Windows/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);

package/Binaries/Perl/Windows/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) = @_;