/usr/share/perl5/PPI/Token/Operator.pm is in libppi-perl 1.220-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | 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 vars qw{$VERSION @ISA %OPERATOR};
BEGIN {
$VERSION = '1.220';
@ISA = 'PPI::Token';
# 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 ~~
& | ^ && || // .. ...
? :
= **= += -= .= *= /= %= x= &= |= ^= <<= >>= &&= ||= //=
=> <>
and or xor 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
my $content = $t->{token}->{content};
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
### 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
if ( $content eq '<>' ) {
$t->{class} = $t->{token}->set_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 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
|