——package
PPI::Token::Operator;
=pod
=head1 NAME
PPI::Token::Operator - Token class for operators
=head1 INHERITANCE
PPI::Token::Magic
isa PPI::Token::Symbol
isa PPI::Token
isa PPI::Element
=head1 SYNOPSIS
# This is the list of valid operators
++ -- ** ! ~ + -
=~ !~ * / % x
<< >> lt gt le ge cmp
== != <=> . .. ... ,
& | ^ && || //
? : = += -= *= .=
< > <= >= <> => ->
and or dor 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.
Got any ideas for methods? Submit a report to rt.cpan.org!
=cut
use
strict;
BEGIN {
$VERSION
=
'1.105'
;
# Build the operator index
### NOTE - This is accessed several times explicitly
### in PPI::Token::Word. Do not rename this
### without also correcting them.
%OPERATOR
=
map
{
$_
=> 1 } (
qw{
-> ++ -- ** ! ~ + -
=~ !~ * / % x + - . << >>
< > <= >= lt gt le ge
== != <=> eq ne cmp
& | ^ && || // .. ...
? : = += -= *= .=
=> <>
and or dor not
}
,
','
# Avoids "comma in qw{}" warning
);
}
#####################################################################
# 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
return
1
if
$OPERATOR
{
$t
->{token}->{content} .
$char
};
# Handle the special case if we might be a here-doc
if
(
$t
->{token}->{content} eq
'<<'
) {
my
$line
=
substr
(
$t
->{line},
$t
->{line_cursor} );
if
(
$line
=~ /^(?:(?!\d)\w|\s*['"`])/ ) {
# This is a here-doc.
# Change the class and move to the HereDoc's own __TOKENIZER__on_char method.
$t
->_set_token_class(
'HereDoc'
);
return
$t
->{class}->__TOKENIZER__on_char(
$t
);
}
}
# Handle the special case of the null Readline
if
(
$t
->{token}->{content} eq
'<>'
) {
$t
->_set_token_class(
'QuoteLike::Readline'
);
}
# Finalize normally
$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, L<http://ali.as/>, cpan@ali.as
=head1 COPYRIGHT
Copyright (c) 2001 - 2005 Adam Kennedy. All rights reserved.
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