Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
Number	[ DIR ]	drwxrwxrwx
Quote	[ DIR ]	drwxrwxrwx
QuoteLike	[ DIR ]	drwxrwxrwx
Regexp	[ DIR ]	drwxrwxrwx
_QuoteEngine	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
ArrayIndex.pm	1.33 KB	-rw-rw-rw-
Attribute.pm	3.74 KB	-rw-rw-rw-
BOM.pm	2.46 KB	-rw-rw-rw-
Cast.pm	1.7 KB	-rw-rw-rw-
Comment.pm	3.36 KB	-rw-rw-rw-
DashedWord.pm	1.93 KB	-rw-rw-rw-
Data.pm	1.93 KB	-rw-rw-rw-
End.pm	2.39 KB	-rw-rw-rw-
HereDoc.pm	8.79 KB	-rw-rw-rw-
Label.pm	1.08 KB	-rw-rw-rw-
Magic.pm	5.57 KB	-rw-rw-rw-
Number.pm	3.21 KB	-rw-rw-rw-
Operator.pm	2.9 KB	-rw-rw-rw-
Pod.pm	3.03 KB	-rw-rw-rw-
Prototype.pm	2.47 KB	-rw-rw-rw-
Quote.pm	2.43 KB	-rw-rw-rw-
QuoteLike.pm	1.59 KB	-rw-rw-rw-
Regexp.pm	2.48 KB	-rw-rw-rw-
Separator.pm	1.29 KB	-rw-rw-rw-
Structure.pm	4.7 KB	-rw-rw-rw-
Symbol.pm	5.24 KB	-rw-rw-rw-
Unknown.pm	12.33 KB	-rw-rw-rw-
Whitespace.pm	11.72 KB	-rw-rw-rw-
Word.pm	9.13 KB	-rw-rw-rw-
_QuoteEngine.pm	5.86 KB	-rw-rw-rw-

Code Editor : Operator.pm

package PPI::Token::Operator;

=pod

=head1 NAME

PPI::Token::Operator - Token class for operators

=head1 INHERITANCE

PPI::Token::Operator
  isa PPI::Token
      isa PPI::Element

=head1 SYNOPSIS

# This is the list of valid operators
  ++   --   **   !    ~    +    -
  =~   !~   *    /    %    x
  <<   >>   lt   gt   le   ge   cmp  ~~
  ==   !=   <=>  .    ..   ...  ,
  &    |    ^    &&   ||   //
  ?    :    **=  +=   -=   .=   *=   /=
  %=   x=   &=   |=   ^=   <<=  >>=  &&=
  ||=  //=  <    >    <=   >=   <>   =>   ->
  and  or   xor  not  eq   ne   <<>>

=head1 DESCRIPTION

All operators in PPI are created as C<PPI::Token::Operator> objects,
including the ones that may superficially look like a L<PPI::Token::Word>
object.

=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 ();
use PPI::Singletons '%OPERATOR';

our $VERSION = '1.270'; # VERSION

our @ISA = "PPI::Token";

#####################################################################
# Tokenizer Methods

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};
	# special case for <<>> operator
	if(length($content) < 4 &&
		$content . substr( $t->{line}, $t->{line_cursor}, 4 - length($content) ) eq '<<>>') {
		return 1;
	}
	return 1 if $OPERATOR{ $content . $char };

# Handle the special case of a .1234 decimal number
	if ( $content eq '.' ) {
		if ( $char =~ /^[0-9]$/ ) {
			# This is a decimal number
			$t->{class} = $t->{token}->set_class('Number::Float');
			return $t->{class}->__TOKENIZER__on_char( $t );
		}
	}

# Handle the special case if we might be a here-doc
	if ( $content eq '<<' ) {
		pos $t->{line} = $t->{line_cursor};
		# Either <<FOO  or << 'FOO'  or <<\FOO  or
		#        <<~FOO or <<~ 'FOO' or <<~\FOO
		### Is the zero-width look-ahead assertion really
		### supposed to be there?
		if ( $t->{line} =~ m/\G ~? (?: (?!\d)\w | \s*['"`] | \\\w ) /gcx ) {
			# This is a here-doc.
			# Change the class and move to the HereDoc's own __TOKENIZER__on_char method.
			$t->{class} = $t->{token}->set_class('HereDoc');
			return $t->{class}->__TOKENIZER__on_char( $t );
		}
	}

# Handle the special case of the null Readline
	$t->{class} = $t->{token}->set_class('QuoteLike::Readline')
		if $content eq '<>' or $content eq '<<>>';

# Finalize normally
	$t->_finalize_token->__TOKENIZER__on_char( $t );
}

=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

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

${this.title}

Code Editor : Operator.pm