Initial Commit

database/perl/vendor/lib/PPI/Token/Data.pm

@@ -0,0 +1,102 @@
+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 1.07 ();
+use PPI::Token ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @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