/usr/share/perl5/PPI/Token/Data.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 | package PPI::Token::Data;
=pod
=head1 NAME
PPI::Token::Data - The actual data in the __DATA__ section of a file
=head1 INHERITANCE
PPI::Token::Data
isa PPI::Token
isa PPI::Element
=head1 DESCRIPTION
The C<PPI::Token::Data> class is used to represent the actual data inside
a file's C<__DATA__> section.
One C<PPI::Token::Data> object is used to represent the entire of the data,
primarily so that it can provide a convenient handle directly to the data.
=head1 METHODS
C<PPI::Token::Data> provides one method in addition to those provided by
our parent L<PPI::Token> and L<PPI::Element> classes.
=cut
use strict;
use IO::String ();
use PPI::Token ();
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '1.220';
@ISA = 'PPI::Token';
}
#####################################################################
# Methods
=pod
=head2 handle
The C<handle> method returns a L<IO::String> handle that allows you
to do all the normal handle-y things to the contents of the __DATA__
section of the file.
Unlike in perl itself, this means you can also do things like C<print>
new data onto the end of the __DATA__ section, or modify it with
any other process that can accept an L<IO::Handle> as input or output.
Returns an L<IO::String> object.
=cut
sub handle {
my $self = shift;
IO::String->new( \$self->{content} );
}
sub __TOKENIZER__on_line_start {
my ( $self, $t ) = @_;
# Add the line
if ( defined $t->{token} ) {
$t->{token}->{content} .= $t->{line};
}
else {
defined( $t->{token} = $t->{class}->new( $t->{line} ) ) or return undef;
}
return 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
|