javonet-ruby-sdk 2.4.10 → 2.4.11

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Clone.pm

@@ -1,99 +0,0 @@
-package Clone;
-
-use strict;
-our $AUTOLOAD;
-
-require Exporter;
-require AutoLoader;
-use XSLoader ();
-
-our @ISA       = qw(Exporter);
-our @EXPORT;
-our @EXPORT_OK = qw( clone );
-
-our $VERSION = '0.47';
-
-XSLoader::load('Clone', $VERSION);
-
-1;
-__END__
-
-=head1 NAME
-
-Clone - recursively copy Perl datatypes
-
-=for html
-<a href="https://travis-ci.org/garu/Clone"><img src="https://travis-ci.org/garu/Clone.png?branch=master" alt="Build Status"></a>
-<a href="https://coveralls.io/r/garu/Clone?branch=master"><img src="https://coveralls.io/repos/garu/Clone/badge.png?branch=master" alt="Coverage Status"></a>
-<a href="https://metacpan.org/pod/Clone"><img src="https://badge.fury.io/pl/Clone.svg" alt="CPAN version"></a>
-
-=head1 SYNOPSIS
-
-    use Clone 'clone';
-
-    my $data = {
-       set => [ 1 .. 50 ],
-       foo => {
-           answer => 42,
-           object => SomeObject->new,
-       },
-    };
-
-    my $cloned_data = clone($data);
-
-    $cloned_data->{foo}{answer} = 1;
-    print $cloned_data->{foo}{answer};  # '1'
-    print $data->{foo}{answer};         # '42'
-
-You can also add it to your class:
-
-    package Foo;
-    use parent 'Clone';
-    sub new { bless {}, shift }
-
-    package main;
-
-    my $obj = Foo->new;
-    my $copy = $obj->clone;
-
-=head1 DESCRIPTION
-
-This module provides a C<clone()> method which makes recursive
-copies of nested hash, array, scalar and reference types,
-including tied variables and objects.
-
-C<clone()> takes a scalar argument and duplicates it. To duplicate lists,
-arrays or hashes, pass them in by reference, e.g.
-
-    my $copy = clone (\@array);
-
-    # or
-
-    my %copy = %{ clone (\%hash) };
-
-=head1 SEE ALSO
-
-L<Storable>'s C<dclone()> is a flexible solution for cloning variables,
-albeit slower for average-sized data structures. Simple
-and naive benchmarks show that Clone is faster for data structures
-with 3 or fewer levels, while C<dclone()> can be faster for structures
-4 or more levels deep.
-
-=head1 COPYRIGHT
-
-Copyright 2001-2022 Ray Finch. All Rights Reserved.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=head1 AUTHOR
-
-Ray Finch C<< <rdf@cpan.org> >>
-
-Breno G. de Oliveira C<< <garu@cpan.org> >>,
-Nicolas Rochelemagne C<< <atoomic@cpan.org> >>
-and
-Florian Ragwitz C<< <rafl@debian.org> >> perform routine maintenance
-releases since 2012.
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/Data/UUID.pm

@@ -1,158 +0,0 @@
-package Data::UUID;
-
-use strict;
-
-use Carp;
-
-require Exporter;
-require DynaLoader;
-require Digest::MD5;
-
-our @ISA = qw(Exporter DynaLoader);
-our @EXPORT = qw(
-   NameSpace_DNS
-   NameSpace_OID
-   NameSpace_URL
-   NameSpace_X500
-);
-our $VERSION = '1.227';
-
-bootstrap Data::UUID $VERSION;
-
-1;
-__END__
-
-=head1 NAME
-
-Data::UUID - Globally/Universally Unique Identifiers (GUIDs/UUIDs)
-
-=head1 SEE INSTEAD?
-
-The module L<Data::GUID> provides another interface for generating GUIDs.
-Right now, it relies on Data::UUID, but it may not in the future.  Its
-interface may be just a little more straightforward for the average Perl
-programmer.
-
-=head1 SYNOPSIS
-
-  use Data::UUID;
-  
-  $ug    = Data::UUID->new;
-  $uuid1 = $ug->create();
-  $uuid2 = $ug->create_from_name(<namespace>, <name>);
-
-  $res   = $ug->compare($uuid1, $uuid2);
-
-  $str   = $ug->to_string( $uuid );
-  $uuid  = $ug->from_string( $str );
-
-=head1 DESCRIPTION
-
-This module provides a framework for generating v3 UUIDs (Universally Unique
-Identifiers, also known as GUIDs (Globally Unique Identifiers). A UUID is 128
-bits long, and is guaranteed to be different from all other UUIDs/GUIDs
-generated until 3400 CE.
-
-UUIDs were originally used in the Network Computing System (NCS) and later in
-the Open Software Foundation's (OSF) Distributed Computing Environment.
-Currently many different technologies rely on UUIDs to provide unique identity
-for various software components. Microsoft COM/DCOM for instance, uses GUIDs
-very extensively to uniquely identify classes, applications and components
-across network-connected systems.
-
-The algorithm for UUID generation, used by this extension, is described in the
-Internet Draft "UUIDs and GUIDs" by Paul J. Leach and Rich Salz.  (See RFC
-4122.)  It provides reasonably efficient and reliable framework for generating
-UUIDs and supports fairly high allocation rates -- 10 million per second per
-machine -- and therefore is suitable for identifying both extremely short-lived
-and very persistent objects on a given system as well as across the network.
-
-This modules provides several methods to create a UUID.  In all methods, C<<
-<namespace> >> is a UUID and C<< <name> >> is a free form string.
- 
-   # creates binary (16 byte long binary value) UUID.
-   $ug->create();
-   $ug->create_bin();
-
-   # creates binary (16-byte long binary value) UUID based on particular
-   # namespace and name string.
-   $ug->create_from_name(<namespace>, <name>);
-   $ug->create_from_name_bin(<namespace>, <name>);
-
-   # creates UUID string, using conventional UUID string format,
-   # such as: 4162F712-1DD2-11B2-B17E-C09EFE1DC403
-   # Note that digits A-F are capitalized, which is contrary to rfc4122
-   $ug->create_str();
-   $ug->create_from_name_str(<namespace>, <name>);
-
-   # creates UUID string as a hex string,
-   # such as: 0x4162F7121DD211B2B17EC09EFE1DC403
-   # Note that digits A-F are capitalized, which is contrary to rfc4122
-   $ug->create_hex();
-   $ug->create_from_name_hex(<namespace>, <name>);
-
-   # creates UUID string as a Base64-encoded string
-   $ug->create_b64();
-   $ug->create_from_name_b64(<namespace>, <name>);
-
-   Binary UUIDs can be converted to printable strings using following methods:
-
-   # convert to conventional string representation
-   $ug->to_string(<uuid>);
-
-   # convert to hex string (using upper, rather than lower, case letters)
-   $ug->to_hexstring(<uuid>);
-
-   # convert to Base64-encoded string
-   $ug->to_b64string(<uuid>);
-
-   Conversely, string UUIDs can be converted back to binary form:
-
-   # recreate binary UUID from string
-   $ug->from_string(<uuid>);
-   $ug->from_hexstring(<uuid>);
-
-   # recreate binary UUID from Base64-encoded string
-   $ug->from_b64string(<uuid>);
-
-   Finally, two binary UUIDs can be compared using the following method:
-
-   # returns -1, 0 or 1 depending on whether uuid1 less
-   # than, equals to, or greater than uuid2
-   $ug->compare(<uuid1>, <uuid2>);
-
-Examples:
-
-   use Data::UUID;
-
-   # this creates a new UUID in string form, based on the standard namespace
-   # UUID NameSpace_URL and name "www.mycompany.com"
-
-   $ug = Data::UUID->new;
-   print $ug->create_from_name_str(NameSpace_URL, "www.mycompany.com");
-
-=head2 EXPORT
-
-The module allows exporting of several standard namespace UUIDs:
-
-=over
-
-=item NameSpace_DNS
-
-=item NameSpace_URL
-
-=item NameSpace_OID
-
-=item NameSpace_X500
-
-=back
- 
-=head1 AUTHOR
-
-Alexander Golomshtok <agolomsh@cpan.org>
-
-=head1 SEE ALSO
-
-The Internet Draft "UUIDs and GUIDs" by Paul J. Leach and Rich Salz (RFC 4122)
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/FFI/Build/File/Base.pm

@@ -1,368 +0,0 @@
-package FFI::Build::File::Base;
-
-use strict;
-use warnings;
-use 5.008004;
-use Carp ();
-use FFI::Temp;
-use File::Basename ();
-use FFI::Build::Platform;
-use FFI::Build::PluginData;
-use overload '""' => sub { $_[0]->path }, bool => sub { 1 }, fallback => 1;
-
-# ABSTRACT: Base class for File::Build files
-our $VERSION = '2.09'; # VERSION
-
-
-sub new
-{
-  my($class, $content, %config) = @_;
-
-  my $base     = $config{base} || 'ffi_build_';
-  my $dir      = $config{dir};
-  my $build    = $config{build};
-  my $platform = $config{platform} || FFI::Build::Platform->new;
-
-  my $self = bless {
-    platform => $platform,
-    build    => $build,
-  }, $class;
-
-  if(!defined $content)
-  {
-    Carp::croak("content is required");
-  }
-  elsif(ref($content) eq 'ARRAY')
-  {
-    $self->{path} = File::Spec->catfile(@$content);
-  }
-  elsif(ref($content) eq 'SCALAR')
-  {
-    my %args;
-    $args{TEMPLATE} = "${base}XXXXXX";
-    $args{DIR}      = $dir if $dir;
-    $args{SUFFIX}   = $self->default_suffix;
-    $args{UNLINK}   = 0;
-
-    my $fh = $self->{fh} = FFI::Temp->new(%args);
-
-    binmode( $fh, $self->default_encoding );
-    print $fh $$content;
-    close $fh;
-
-    $self->{path} = $fh->filename;
-    $self->{temp} = 1;
-  }
-  elsif(ref($content) eq '')
-  {
-    $self->{path} = $content;
-  }
-
-  if($self->platform->osname eq 'MSWin32')
-  {
-    $self->{native} = File::Spec->catfile($self->{path});
-    $self->{path} =~ s{\\}{/}g;
-  }
-
-  $self;
-}
-
-
-sub default_suffix    { die "must define a default extension in subclass" }
-sub default_encoding  { die "must define an encoding" }
-sub accept_suffix     { () }
-
-
-sub path      { shift->{path}                          }
-sub basename  { File::Basename::basename shift->{path} }
-sub dirname   { File::Basename::dirname  shift->{path} }
-sub is_temp   { shift->{temp}                          }
-sub platform  { shift->{platform}                      }
-sub build     { shift->{build}                         }
-
-
-sub native {
-  my($self) = @_;
-  $self->platform->osname eq 'MSWin32'
-    ? $self->{native}
-    : $self->{path};
-}
-
-
-sub slurp
-{
-  my($self) = @_;
-  my $fh;
-  open($fh, '<', $self->path) || Carp::croak "Error opening @{[ $self->path ]} for read $!";
-  binmode($fh, $self->default_encoding);
-  my $content = do { local $/; <$fh> };
-  close $fh;
-  $content;
-}
-
-
-sub keep
-{
-  delete shift->{temp};
-}
-
-
-sub build_item
-{
-  Carp::croak("Not implemented!");
-}
-
-
-sub needs_rebuild
-{
-  my($self, @source) = @_;
-  # if the target doesn't exist, then we definitely
-  # need a rebuild.
-  return 1 unless -f $self->path;
-  my $target_time = [stat $self->path]->[9];
-  foreach my $source (@source)
-  {
-    my $source_time = [stat "$source"]->[9];
-    return 1 if ! defined $source_time;
-    return 1 if $source_time > $target_time;
-  }
-  return 0;
-}
-
-
-sub ld
-{
-  return undef;
-}
-
-sub DESTROY
-{
-  my($self) = @_;
-
-  if($self->{temp})
-  {
-    unlink($self->path);
-  }
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-FFI::Build::File::Base - Base class for File::Build files
-
-=head1 VERSION
-
-version 2.09
-
-=head1 SYNOPSIS
-
-Create your own file class
-
- package FFI::Build::File::Foo;
- use parent qw( FFI::Build::File::Base );
- use constant default_suffix => '.foo';
- use constant default_encoding => ':utf8';
-
-Use it:
-
- # use an existing file in the filesystem
- my $file = FFI::Build::File::Foo->new('src/myfile.foo');
- 
- # generate a temp file with provided content
- # file will be deletd when $file falls out of scope.
- my $file = FFI::Build::File::Foo->new(\'content for a temp foo');
-
-=head1 DESCRIPTION
-
-This class is the base class for other C<FFI::Build::File::*> classes.
-
-=head1 CONSTRUCTOR
-
-=head2 new
-
- my $file = FFI::Build::File::Base->new(\$content, %options);
- my $file = FFI::Build::File::Base->new($filename, %options);
-
-Create a new instance of the file class.  You may provide either the
-content of the file as a scalar reference, or the path to an existing
-filename.  Options:
-
-=over 4
-
-=item base
-
-The base name for any temporary file C<ffi_build_> by default.
-
-=item build
-
-The L<FFI::Build> instance to use.
-
-=item dir
-
-The directory to store any temporary file.
-
-=item platform
-
-The L<FFI::Build::Platform> instance to use.
-
-=back
-
-=head1 METHODS
-
-=head2 default_suffix
-
- my $suffix = $file->default_suffix;
-
-B<MUST> be overridden in the subclass.  This is the standard extension for the file type.  C<.c> for a C file, C<.o> or C<.obj> for an object file depending on platform.  etc.
-
-=head2 default_encoding
-
- my $encoding = $file->default_encoding;
-
-B<MUST> be overridden in the subclass.  This is the passed to C<binmode> when the file is opened for reading or writing.
-
-=head2 accept_suffix
-
- my @suffix_list = $file->accept_suffix;
-
-Returns a list of regexes that recognize the file type.
-
-=head2 path
-
- my $path = $file->path;
-
-The full or relative path to the file.
-
-=head2 basename
-
- my $basename = $file->basename;
-
-The base filename part of the path.
-
-=head2 dirname
-
- my $dir = $file->dirname;
-
-The directory part of the path.
-
-=head2 is_temp
-
- my $bool = $file->is_temp;
-
-Returns true if the file is temporary, that is, it will be deleted when the file object falls out of scope.
-You can call C<keep>, to keep the file.
-
-=head2 platform
-
- my $platform = $file->platform;
-
-The L<FFI::Build::Platform> instance used for this file object.
-
-=head2 build
-
- my $build = $file->build;
-
-The L<FFI::Build> instance used for this file object, if any.
-
-=head2 native
-
- my $path = $file->native;
-
-Returns the operating system native version of the filename path.  On Windows, this means that forward slash C<\> is
-used instead of backslash C</>.
-
-=head2 slurp
-
- my $content = $file->slurp;
-
-Returns the content of the file.
-
-=head2 keep
-
- $file->keep;
-
-Turns off the temporary flag on the file object, meaning it will not automatically be deleted when the
-file object is deallocated or falls out of scope.
-
-=head2 build_item
-
- $file->build_item;
-
-Builds the file into its natural output type, usually an object file.  It returns a new file instance,
-or if the file is an object file then it returns empty list.
-
-=head2 build_all
-
- $file->build_all;
-
-If implemented the file in question can directly create a shared or dynamic library
-without needing a link step.  This is useful for languages that have their own build
-systems.
-
-=head2 needs_rebuild
-
- my $bool = $file->needs_rebuild
-
-=head2 ld
-
-=head1 AUTHOR
-
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-
-Contributors:
-
-Bakkiaraj Murugesan (bakkiaraj)
-
-Dylan Cali (calid)
-
-pipcet
-
-Zaki Mughal (zmughal)
-
-Fitz Elliott (felliott)
-
-Vickenty Fesunov (vyf)
-
-Gregor Herrmann (gregoa)
-
-Shlomi Fish (shlomif)
-
-Damyan Ivanov
-
-Ilya Pavlov (Ilya33)
-
-Petr Písař (ppisar)
-
-Mohammad S Anwar (MANWAR)
-
-Håkon Hægland (hakonhagland, HAKONH)
-
-Meredith (merrilymeredith, MHOWARD)
-
-Diab Jerius (DJERIUS)
-
-Eric Brine (IKEGAMI)
-
-szTheory
-
-José Joaquín Atria (JJATRIA)
-
-Pete Houston (openstrike, HOUSTON)
-
-Lukas Mai (MAUKE)
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2015-2022 by Graham Ollis.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut