/usr/share/perl5/PPI/Token/DashedWord.pm is in libppi-perl 1.236-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 | 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 ();
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '1.236';
@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
|