javonet-nodejs-sdk 2.4.9 → 2.4.11

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Token/Attribute.pm

@@ -1,176 +0,0 @@
-package PPI::Token::Attribute;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Attribute - A token for a subroutine attribute
-
-=head1 INHERITANCE
-
-  PPI::Token::Attribute
-  isa PPI::Token
-      isa PPI::Element
-
-=head1 DESCRIPTION
-
-In Perl, attributes are a relatively recent addition to the language.
-
-Given the code C< sub foo : bar(something) {} >, the C<bar(something)>
-part is the attribute.
-
-A C<PPI::Token::Attribute> token represents the entire of the attribute,
-as the braces and its contents are not parsed into the tree, and are
-treated by Perl (and thus by us) as a single string.
-
-=head1 METHODS
-
-This class provides some additional methods beyond those provided by its
-L<PPI::Token> and L<PPI::Element> parent classes.
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-our $VERSION = '1.279';
-
-our @ISA = "PPI::Token";
-
-
-
-
-#####################################################################
-# PPI::Token::Attribute Methods
-
-=pod
-
-=head2 identifier
-
-The C<identifier> attribute returns the identifier part of the attribute.
-
-That is, for the attribute C<foo(bar)>, the C<identifier> method would
-return C<"foo">.
-
-=cut
-
-sub identifier {
-	my $self = shift;
-	$self->{content} =~ /^(.+?)\(/ ? $1 : $self->{content};
-}
-
-=pod
-
-=head2 parameters
-
-The C<parameters> method returns the parameter string for the attribute.
-
-That is, for the attribute C<foo(bar)>, the C<parameters> method would
-return C<"bar">.
-
-Returns the parameters as a string (including the null string C<''> for
-the case of an attribute such as C<foo()>.)
-
-Returns C<undef> if the attribute does not have parameters.
-
-=cut
-
-sub parameters {
-	my $self = shift;
-	$self->{content} =~ /\((.*)\)$/ ? $1 : undef;
-}
-
-
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-sub __TOKENIZER__on_char {
-	my $class = shift;
-	my $t     = shift;
-	my $char  = substr( $t->{line}, $t->{line_cursor}, 1 );
-
-	# Unless this is a '(', we are finished.
-	unless ( $char eq '(' ) {
-		# Finalise and recheck
-		return $t->_finalize_token->__TOKENIZER__on_char( $t );
-	}
-
-	# This is a bar(...) style attribute.
-	# We are currently on the ( so scan in until the end.
-	# We finish on the character AFTER our end
-	my $string = $class->__TOKENIZER__scan_for_end( $t );
-	if ( ref $string ) {
-		# EOF
-		$t->{token}->{content} .= $$string;
-		$t->_finalize_token;
-		return 0;
-	}
-
-	# Found the end of the attribute
-	$t->{token}->{content} .= $string;
-	$t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-# Scan for a close braced, and take into account both escaping,
-# and open close bracket pairs in the string. When complete, the
-# method leaves the line cursor on the LAST character found.
-sub __TOKENIZER__scan_for_end {
-	my $t = $_[1];
-
-	# Loop as long as we can get new lines
-	my $string = '';
-	my $depth = 0;
-	while ( exists $t->{line} ) {
-		# Get the search area
-		pos $t->{line} = $t->{line_cursor};
-
-		# Look for a match
-		unless ( $t->{line} =~ /\G((?:\\.|[^()])*?[()])/gc ) {
-			# Load in the next line and push to first character
-			$string .= substr( $t->{line}, $t->{line_cursor} );
-			$t->_fill_line(1) or return \$string;
-			$t->{line_cursor} = 0;
-			next;
-		}
-
-		# Add to the string
-		$string .= $1;
-		$t->{line_cursor} += length $1;
-
-		# Alter the depth and continue if we aren't at the end
-		$depth += ($1 =~ /\($/) ? 1 : -1 and next;
-
-		# Found the end
-		return $string;
-	}
-
-	# Returning the string as a reference indicates EOF
-	\$string;
-}
-
-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

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Token/BOM.pm

@@ -1,113 +0,0 @@
-package PPI::Token::BOM;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::BOM - Tokens representing Unicode byte order marks
-
-=head1 INHERITANCE
-
-  PPI::Token::BOM
-  isa PPI::Token
-      isa PPI::Element
-
-=head1 DESCRIPTION
-
-This is a special token in that it can only occur at the beginning of
-documents.  If a BOM byte mark occurs elsewhere in a file, it should
-be treated as L<PPI::Token::Whitespace>.  We recognize the byte order
-marks identified at this URL:
-L<http://www.unicode.org/faq/utf_bom.html#BOM>
-
-    UTF-32, big-endian     00 00 FE FF
-    UTF-32, little-endian  FF FE 00 00
-    UTF-16, big-endian     FE FF
-    UTF-16, little-endian  FF FE
-    UTF-8                  EF BB BF
-
-Note that as of this writing, PPI only has support for UTF-8
-(namely, in POD and strings) and no support for UTF-16 or UTF-32.  We
-support the BOMs of the latter two for completeness only.
-
-The BOM is considered non-significant, like white space.
-
-=head1 METHODS
-
-There are no additional methods beyond those provided by the parent
-L<PPI::Token> and L<PPI::Element> classes.
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-our $VERSION = '1.279';
-
-our @ISA = "PPI::Token";
-
-sub significant() { '' }
-
-
-
-
-
-#####################################################################
-# Parsing Methods
-
-my %bom_types = (
-   "\x00\x00\xfe\xff" => 'UTF-32',
-   "\xff\xfe\x00\x00" => 'UTF-32',
-   "\xfe\xff"         => 'UTF-16',
-   "\xff\xfe"         => 'UTF-16',
-   "\xef\xbb\xbf"     => 'UTF-8',
-);
-
-sub __TOKENIZER__on_line_start {
-	my $t = $_[1];
-	$_ = $t->{line};
-
-	if (m/^(\x00\x00\xfe\xff |  # UTF-32, big-endian
-		\xff\xfe\x00\x00 |  # UTF-32, little-endian
-		\xfe\xff         |  # UTF-16, big-endian
-		\xff\xfe         |  # UTF-16, little-endian
-		\xef\xbb\xbf)       # UTF-8
-	    /xs) {
-	   my $bom = $1;
-
-	   if ($bom_types{$bom} ne 'UTF-8') {
-	      return $t->_error("$bom_types{$bom} is not supported");
-	   }
-
-	   $t->_new_token('BOM', $bom) or return undef;
-	   $t->{line_cursor} += length $bom;
-	}
-
-	# Continue just as if there was no BOM
-	$t->{class} = 'PPI::Token::Whitespace';
-	return $t->{class}->__TOKENIZER__on_line_start($t);
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module
-
-=head1 AUTHOR
-
-Chris Dolan E<lt>cdolan@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

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Token/Cast.pm

@@ -1,87 +0,0 @@
-package PPI::Token::Cast;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Cast - A prefix which forces a value into a different context
-
-=head1 INHERITANCE
-
-  PPI::Token::Cast
-  isa PPI::Token
-      isa PPI::Element
-
-=head1 DESCRIPTION
-
-A "cast" in PPI terms is one of more characters used as a prefix which force
-a value into a different class or context.
-
-This includes referencing, dereferencing, and a few other minor cases.
-
-For expressions such as C<@$foo> or C<@{ $foo{bar} }> the C<@> in both cases
-represents a cast. In this case, an array dereference.
-
-=head1 METHODS
-
-There are no additional methods beyond those provided by the parent
-L<PPI::Token> and L<PPI::Element> classes.
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-our $VERSION = '1.279';
-
-our @ISA = "PPI::Token";
-
-our %POSTFIX = map { $_ => 1 } (
-	qw{
-	%* @* $*
-	},
-	'$#*' # throws warnings if it's inside a qw
-);
-
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-# A cast is either % @ $ or $#
-# and also postfix dereference are %* @* $* $#*
-sub __TOKENIZER__on_char {
-	my $t    = $_[1];
-	my $char = substr( $t->{line}, $t->{line_cursor}, 1 );
-
-	# Are we still an operator if we add the next character
-	my $content = $t->{token}->{content};
-	return 1 if $POSTFIX{ $content . $char };
-
-	$t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-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

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Token/Comment.pm

@@ -1,146 +0,0 @@
-package PPI::Token::Comment;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Comment - A comment in Perl source code
-
-=head1 INHERITANCE
-
-  PPI::Token::Comment
-  isa PPI::Token
-      isa PPI::Element
-
-=head1 SYNOPSIS
-
-  # This is a PPI::Token::Comment
-  
-  print "Hello World!"; # So it this
-  
-  $string =~ s/ foo  # This, unfortunately, is not :(
-        bar
-  	/w;
-
-=head1 DESCRIPTION
-
-In PPI, comments are represented by C<PPI::Token::Comment> objects.
-
-These come in two flavours, line comment and inline comments.
-
-A C<line comment> is a comment that stands on its own line. These comments
-hold their own newline and whitespace (both leading and trailing) as part
-of the one C<PPI::Token::Comment> object.
-
-An inline comment is a comment that appears after some code, and
-continues to the end of the line. This does B<not> include whitespace,
-and the terminating newlines is considered a separate
-L<PPI::Token::Whitespace> token.
-
-This is largely a convenience, simplifying a lot of normal code relating
-to the common things people do with comments.
-
-Most commonly, it means when you C<prune> or C<delete> a comment, a line
-comment disappears taking the entire line with it, and an inline comment
-is removed from the inside of the line, allowing the newline to drop
-back onto the end of the code, as you would expect.
-
-It also means you can move comments around in blocks much more easily.
-
-For now, this is a suitably handy way to do things. However, I do reserve
-the right to change my mind on this one if it gets dangerously
-anachronistic somewhere down the line.
-
-=head1 METHODS
-
-Only very limited methods are available, beyond those provided by our
-parent L<PPI::Token> and L<PPI::Element> classes.
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-our $VERSION = '1.279';
-
-our @ISA = "PPI::Token";
-
-### XS -> PPI/XS.xs:_PPI_Token_Comment__significant 0.900+
-sub significant() { '' }
-
-# Most stuff goes through __TOKENIZER__commit.
-# This is such a rare case, do char at a time to keep the code small
-sub __TOKENIZER__on_char {
-	my $t = $_[1];
-
-	# Make sure not to include the trailing newline
-	if ( substr( $t->{line}, $t->{line_cursor}, 1 ) eq "\n" ) {
-		return $t->_finalize_token->__TOKENIZER__on_char( $t );
-	}
-
-	1;
-}
-
-sub __TOKENIZER__commit {
-	my $t = $_[1];
-
-	# Get the rest of the line
-	my $rest = substr( $t->{line}, $t->{line_cursor} );
-	if ( chomp $rest ) { # Include the newline separately
-		# Add the current token, and the newline
-		$t->_new_token('Comment', $rest);
-		$t->_new_token('Whitespace', "\n");
-	} else {
-		# Add this token only
-		$t->_new_token('Comment', $rest);
-	}
-
-	# Advance the line cursor to the end
-	$t->{line_cursor} = $t->{line_length} - 1;
-
-	0;
-}
-
-# Comments end at the end of the line
-sub __TOKENIZER__on_line_end {
-	$_[1]->_finalize_token if $_[1]->{token};
-	1;
-}
-
-=pod
-
-=head2 line
-
-The C<line> accessor returns true if the C<PPI::Token::Comment> is a
-line comment, or false if it is an inline comment.
-
-=cut
-
-sub line {
-	# Entire line comments have a newline at the end
-	$_[0]->{content} =~ /\n$/ ? 1 : 0;
-}
-
-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

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/PPI/Token/DashedWord.pm

@@ -1,96 +0,0 @@
-package PPI::Token::DashedWord;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::DashedWord - A dashed bareword token
-
-=head1 INHERITANCE
-
-  PPI::Token::DashedWord
-  isa PPI::Token
-      isa PPI::Element
-
-=head1 DESCRIPTION
-
-The "dashed bareword" token represents literal values like C<-foo>.
-
-NOTE: this class is currently unused.  All tokens that should be
-PPI::Token::DashedWords are just normal PPI::Token::Word instead.
-That actually makes sense, since there really is nothing special about
-this class except that dashed words cannot be subroutine names or
-keywords.  As such, this class may be removed from PPI in the future.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-our $VERSION = '1.279';
-
-our @ISA = "PPI::Token";
-
-=pod
-
-=head2 literal
-
-Returns the value of the dashed word as a string.  This differs from
-C<content> because C<-Foo'Bar> expands to C<-Foo::Bar>.
-
-=cut
-
-*literal = *PPI::Token::Word::literal;
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-sub __TOKENIZER__on_char {
-	my $t = $_[1];
-
-	# Suck to the end of the dashed bareword
-	pos $t->{line} = $t->{line_cursor};
-	if ( $t->{line} =~ m/\G(\w+)/gc ) {
-		$t->{token}->{content} .= $1;
-		$t->{line_cursor} += length $1;
-	}
-
-	# Are we a file test operator?
-	if ( $t->{token}->{content} =~ /^\-[rwxoRWXOezsfdlpSbctugkTBMAC]$/ ) {
-		# File test operator
-		$t->{class} = $t->{token}->set_class( 'Operator' );
-	} else {
-		# No, normal dashed bareword
-		$t->{class} = $t->{token}->set_class( 'Word' );
-	}
-
-	$t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-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