RubyGems - javonet-ruby-sdk - Versions diffs - 2.4.10 → 2.4.11 - Mend

javonet-ruby-sdk 2.4.10 → 2.4.11

Files changed (1456) hide show

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Statement/Sub.pm DELETED Viewed

@@ -1,222 +0,0 @@
-package PPI::Statement::Sub;
-=pod
-=head1 NAME
-PPI::Statement::Sub - Subroutine declaration
-=head1 INHERITANCE
-  PPI::Statement::Sub
-  isa PPI::Statement
-      isa PPI::Node
-          isa PPI::Element
-=head1 DESCRIPTION
-Except for the special BEGIN, CHECK, UNITCHECK, INIT, and END subroutines
-(which are part of L<PPI::Statement::Scheduled>) all subroutine declarations
-are lexed as a PPI::Statement::Sub object.
-Primarily, this means all of the various C<sub foo {}> statements, but also
-forward declarations such as C<sub foo;> or C<sub foo($);>. It B<does not>
-include anonymous subroutines, as these are merely part of a normal statement.
-=head1 METHODS
-C<PPI::Statement::Sub> has a number of methods in addition to the standard
-L<PPI::Statement>, L<PPI::Node> and L<PPI::Element> methods.
-=cut
-use strict;
-use List::Util     ();
-use Params::Util   qw{_INSTANCE};
-use PPI::Statement ();
-our $VERSION = '1.279';
-our @ISA = "PPI::Statement";
-# Lexer clue
-sub __LEXER__normal() { '' }
-sub _complete {
-	my $child = $_[0]->schild(-1);
-	return !! (
-		defined $child
-		and
-		$child->isa('PPI::Structure::Block')
-		and
-		$child->complete
-	);
-}
-#####################################################################
-# PPI::Statement::Sub Methods
-=pod
-=head2 name
-The C<name> method returns the name of the subroutine being declared.
-In some rare cases such as a naked C<sub> at the end of the file, this may return
-false.
-=cut
-sub name {
-	my ($self) = @_;
-	# Usually the second token is the name.
-	# The third token is the name if this is a lexical subroutine.
-	my $token = $self->schild(defined $self->type ? 2 : 1);
-	return $token->content
-	  if defined $token and $token->isa('PPI::Token::Word');
-	# In the case of special subs whose 'sub' can be omitted (AUTOLOAD
-	# or DESTROY), the name will be the first token.
-	$token = $self->schild(0);
-	return $token->content
-	  if defined $token and $token->isa('PPI::Token::Word');
-	return '';
-}
-=pod
-=head2 prototype
-If it has one, the C<prototype> method returns the subroutine's prototype.
-It is returned in the same format as L<PPI::Token::Prototype/prototype>,
-cleaned and removed from its brackets.
-Returns the subroutine's prototype, or undef if the subroutine does not
-define one. Note that when the sub has an empty prototype (C<()>) the
-return is an empty string.
-=cut
-sub prototype {
-	my $self      = shift;
-	my $Prototype = List::Util::first {
-		_INSTANCE($_, 'PPI::Token::Prototype')
-	} $self->children;
-	defined($Prototype) ? $Prototype->prototype : undef;
-}
-=pod
-=head2 block
-With its name and implementation shared with L<PPI::Statement::Scheduled>,
-the C<block> method finds and returns the actual Structure object of the
-code block for this subroutine.
-Returns false if this is a forward declaration, or otherwise does not have a
-code block.
-=cut
-sub block {
-	my $self = shift;
-	my $lastchild = $self->schild(-1) or return '';
-	$lastchild->isa('PPI::Structure::Block') and $lastchild;
-}
-=pod
-=head2 forward
-The C<forward> method returns true if the subroutine declaration is a
-forward declaration.
-That is, it returns false if the subroutine has a code block, or true
-if it does not.
-=cut
-sub forward {
-	! shift->block;
-}
-=pod
-=head2 reserved
-The C<reserved> method provides a convenience method for checking to see
-if this is a special reserved subroutine. It does not check against any
-particular list of reserved sub names, but just returns true if the name
-is all uppercase, as defined in L<perlsub>.
-Note that in the case of BEGIN, CHECK, UNITCHECK, INIT and END, these will be
-defined as L<PPI::Statement::Scheduled> objects, not subroutines.
-Returns true if it is a special reserved subroutine, or false if not.
-=cut
-sub reserved {
-	my $self = shift;
-	my $name = $self->name or return '';
-	# perlsub is silent on whether reserveds can contain:
-	# - underscores;
-	# we allow them due to existing practice like CLONE_SKIP and __SUB__.
-	# - numbers; we allow them by PPI tradition.
-	$name eq uc $name;
-}
-=pod
-=head2 type
-The C<type> method checks and returns the declaration type of the statement,
-which will be one of 'my', 'our', or 'state'.
-Returns a string of the type, or C<undef> if the type is not declared.
-=cut
-sub type {
-	my $self = shift;
-	# Get the first significant child
-	my @schild = grep { $_->significant } $self->children;
-	# Ignore labels
-	shift @schild if _INSTANCE($schild[0], 'PPI::Token::Label');
-	# Get the type
-	(_INSTANCE($schild[0], 'PPI::Token::Word') and $schild[0]->content =~ /^(my|our|state)$/)
-		? $schild[0]->content
-		: undef;
-}
-1;
-=pod
-=head1 SUPPORT
-See the L<support section|PPI/SUPPORT> in the main module.
-=head1 AUTHOR
-Adam Kennedy E<lt>adamk@cpan.orgE<gt>
-=head1 COPYRIGHT
-Copyright 2001 - 2011 Adam Kennedy.
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-The full text of the license can be found in the
-LICENSE file included with this module.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Statement/Unknown.pm DELETED Viewed

@@ -1,68 +0,0 @@
-package PPI::Statement::Unknown;
-=pod
-=head1 NAME
-PPI::Statement::Unknown - An unknown or transient statement
-=head1 INHERITANCE
-  PPI::Statement::Unknown
-  isa PPI::Statement
-      isa PPI::Node
-          isa PPI::Element
-=head1 DESCRIPTION
-The C<PPI::Statement::Unknown> class is used primarily during the lexing
-process to hold elements that are known to be statement, but for which
-the exact C<type> of statement is as yet unknown, and requires further
-tokens in order to resolve the correct type.
-They should not exist in a fully parse B<valid> document, and if any
-exists they indicate either a problem in Document, or possibly (by
-allowing it to get through unresolved) a bug in L<PPI::Lexer>.
-=head1 METHODS
-C<PPI::Statement::Unknown> has no additional methods beyond the
-default ones provided by L<PPI::Statement>, L<PPI::Node> and
-L<PPI::Element>.
-=cut
-use strict;
-use PPI::Statement ();
-our $VERSION = '1.279';
-our @ISA = "PPI::Statement";
-# If one of these ends up in the final document,
-# we're pretty much screwed. Just call it a day.
-sub _complete () { 1 }
-1;
-=pod
-=head1 SUPPORT
-See the L<support section|PPI/SUPPORT> in the main module.
-=head1 AUTHOR
-Adam Kennedy E<lt>adamk@cpan.orgE<gt>
-=head1 COPYRIGHT
-Copyright 2001 - 2011 Adam Kennedy.
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-The full text of the license can be found in the
-LICENSE file included with this module.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Statement/UnmatchedBrace.pm DELETED Viewed

@@ -1,80 +0,0 @@
-package PPI::Statement::UnmatchedBrace;
-=pod
-=head1 NAME
-PPI::Statement::UnmatchedBrace - Isolated unmatched brace
-=head1 SYNOPSIS
-  sub foo {
-      1;
-  }
-  } # <--- This is an unmatched brace
-=head1 INHERITANCE
-  PPI::Statement::UnmatchedBrace
-  isa PPI::Statement
-      isa PPI::Node
-          isa PPI::Element
-=head1 DESCRIPTION
-The C<PPI::Statement::UnmatchedBrace> class is a miscellaneous utility
-class. Objects of this type should be rare, or not exist at all in normal
-valid L<PPI::Document> objects.
-It can be either a round ')', square ']' or curly '}' brace, this class
-does not distinguish. Objects of this type are only allocated at a
-structural level, not a lexical level (as they are lexically invalid
-anyway).
-The presence of a C<PPI::Statement::UnmatchedBrace> indicated a broken
-or invalid document. Or maybe a bug in PPI, but B<far> more likely a
-broken Document. :)
-=head1 METHODS
-C<PPI::Statement::UnmatchedBrace> has no additional methods beyond the
-default ones provided by L<PPI::Statement>, L<PPI::Node> and
-L<PPI::Element>.
-=cut
-use strict;
-use PPI::Statement ();
-our $VERSION = '1.279';
-our @ISA = "PPI::Statement";
-# Once we've hit a naked unmatched brace we can never truly be complete.
-# So instead we always just call it a day...
-sub _complete () { 1 }
-1;
-=pod
-=head1 SUPPORT
-See the L<support section|PPI/SUPPORT> in the main module.
-=head1 AUTHOR
-Adam Kennedy E<lt>adamk@cpan.orgE<gt>
-=head1 COPYRIGHT
-Copyright 2001 - 2011 Adam Kennedy.
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-The full text of the license can be found in the
-LICENSE file included with this module.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Statement/Variable.pm DELETED Viewed

@@ -1,195 +0,0 @@
-package PPI::Statement::Variable;
-=pod
-=head1 NAME
-PPI::Statement::Variable - Variable declaration statements
-=head1 SYNOPSIS
-  # All of the following are variable declarations
-  my $foo = 1;
-  my ($foo, $bar) = (1, 2);
-  our $foo = 1;
-  local $foo;
-  local $foo = 1;
-  LABEL: my $foo = 1;
-=head1 INHERITANCE
-  PPI::Statement::Variable
-  isa PPI::Statement::Expression
-      isa PPI::Statement
-          isa PPI::Node
-              isa PPI::Element
-=head1 DESCRIPTION
-The main intent of the C<PPI::Statement::Variable> class is to describe
-simple statements that explicitly declare new local or global variables.
-Note that this does not make it exclusively the only place where variables
-are defined, and later on you should expect that the C<variables> method
-will migrate deeper down the tree to either L<PPI::Statement> or
-L<PPI::Node> to recognise this fact, but for now it stays here.
-=head1 METHODS
-=cut
-use strict;
-use Params::Util               qw{_INSTANCE};
-use PPI::Statement::Expression ();
-our $VERSION = '1.279';
-our @ISA = "PPI::Statement::Expression";
-=pod
-=head2 type
-The C<type> method checks and returns the declaration type of the statement,
-which will be one of 'my', 'local', 'our', or 'state'.
-Returns a string of the type, or C<undef> if the type cannot be detected
-(which is probably a bug).
-=cut
-sub type {
-	my $self = shift;
-	# Get the first significant child
-	my @schild = grep { $_->significant } $self->children;
-	# Ignore labels
-	shift @schild if _INSTANCE($schild[0], 'PPI::Token::Label');
-	# Get the type
-	(_INSTANCE($schild[0], 'PPI::Token::Word') and $schild[0]->content =~ /^(my|local|our|state)$/)
-		? $schild[0]->content
-		: undef;
-}
-=pod
-=head2 variables
-As for several other PDOM Element types that can declare variables, the
-C<variables> method returns a list of the canonical forms of the variables
-defined by the statement.
-Returns a list of the canonical string forms of variables, or the null list
-if it is unable to find any variables.
-=cut
-sub variables {
-	map { $_->canonical } $_[0]->symbols;
-}
-=pod
-=head2 symbols
-Returns a list of the variables defined by the statement, as
-L<PPI::Token::Symbol>s.
-=cut
-sub symbols {
-	my $self = shift;
-	# Get the children we care about
-	my @schild = grep { $_->significant } $self->children;
-	shift @schild if _INSTANCE($schild[0], 'PPI::Token::Label');
-	# If the second child is a symbol, return its name
-	if ( _INSTANCE($schild[1], 'PPI::Token::Symbol') ) {
-		return $schild[1];
-	}
-	# If it's a list, return as a list
-	if ( _INSTANCE($schild[1], 'PPI::Structure::List') ) {
-		my $Expression = $schild[1]->schild(0);
-		$Expression and
-		$Expression->isa('PPI::Statement::Expression') or return ();
-		# my and our are simpler than local
-		if (
-			$self->type eq 'my'
-			or
-			$self->type eq 'our'
-			or
-			$self->type eq 'state'
-		) {
-			return grep {
-				$_->isa('PPI::Token::Symbol')
-			} $Expression->schildren;
-		}
-		# Local is much more icky (potentially).
-		# Not that we are actually going to deal with it now,
-		# but having this separate is likely going to be needed
-		# for future bug reports about local() things.
-		# This is a slightly better way to check.
-		return grep {
-			$self->_local_variable($_)
-		} grep {
-			$_->isa('PPI::Token::Symbol')
-		} $Expression->schildren;
-	}
-	# erm... this is unexpected
-	();
-}
-sub _local_variable {
-	my ($self, $el) = @_;
-	# The last symbol should be a variable
-	my $n = $el->snext_sibling or return 1;
-	my $p = $el->sprevious_sibling;
-	if ( ! $p or $p eq ',' ) {
-		# In the middle of a list
-		return 1 if $n eq ',';
-		# The first half of an assignment
-		return 1 if $n eq '=';
-	}
-	# Lets say no for know... additional work
-	# should go here.
-	return '';
-}
-1;
-=pod
-=head1 TO DO
-- Write unit tests for this
-=head1 SUPPORT
-See the L<support section|PPI/SUPPORT> in the main module.
-=head1 AUTHOR
-Adam Kennedy E<lt>adamk@cpan.orgE<gt>
-=head1 COPYRIGHT
-Copyright 2001 - 2011 Adam Kennedy.
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-The full text of the license can be found in the
-LICENSE file included with this module.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Statement/When.pm DELETED Viewed

@@ -1,100 +0,0 @@
-package PPI::Statement::When;
-=pod
-=head1 NAME
-PPI::Statement::When - A when statement
-=head1 SYNOPSIS
-  foreach ( qw/ foo bar baz / ) {
-      when ( m/b/ ) {
-          boing($_);
-      }
-      when ( m/f/ ) {
-          boom($_);
-      }
-      default {
-          tchak($_);
-      }
-  }
-=head1 INHERITANCE
-  PPI::Statement::When
-  isa PPI::Statement
-      isa PPI::Node
-          isa PPI::Element
-=head1 DESCRIPTION
-C<PPI::Statement::When> objects are used to describe when and default
-statements, as described in L<perlsyn>.
-=head1 METHODS
-C<PPI::Structure::When> has no methods beyond those provided by the
-standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
-=cut
-use strict;
-use PPI::Statement ();
-our $VERSION = '1.279';
-our @ISA = "PPI::Statement";
-# Lexer clues
-sub __LEXER__normal() { '' }
-sub _complete {
-	my $child = $_[0]->schild(-1);
-	return !! (
-		defined $child
-		and
-		$child->isa('PPI::Structure::Block')
-		and
-		$child->complete
-	);
-}
-#####################################################################
-# PPI::Node Methods
-sub scope() {
-	1;
-}
-1;
-=pod
-=head1 TO DO
-- Write unit tests for this package
-=head1 SUPPORT
-See the L<support section|PPI/SUPPORT> in the main module.
-=head1 AUTHOR
-Adam Kennedy E<lt>adamk@cpan.orgE<gt>
-=head1 COPYRIGHT
-Copyright 2001 - 2011 Adam Kennedy.
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-The full text of the license can be found in the
-LICENSE file included with this module.
-=cut