aboutsummaryrefslogtreecommitdiffstats
path: root/Data-YAML-0.0.6/lib/Data/YAML
diff options
context:
space:
mode:
Diffstat (limited to 'Data-YAML-0.0.6/lib/Data/YAML')
-rw-r--r--Data-YAML-0.0.6/lib/Data/YAML/Reader.pm422
-rw-r--r--Data-YAML-0.0.6/lib/Data/YAML/Writer.pm269
2 files changed, 0 insertions, 691 deletions
diff --git a/Data-YAML-0.0.6/lib/Data/YAML/Reader.pm b/Data-YAML-0.0.6/lib/Data/YAML/Reader.pm
deleted file mode 100644
index dbd5189..0000000
--- a/Data-YAML-0.0.6/lib/Data/YAML/Reader.pm
+++ /dev/null
@@ -1,422 +0,0 @@
-package Data::YAML::Reader;
-
-use strict;
-use warnings;
-use Carp;
-
-use vars qw{$VERSION};
-
-$VERSION = '0.0.6';
-
-# TODO:
-# Handle blessed object syntax
-
-# Printable characters for escapes
-my %UNESCAPES = (
- z => "\x00",
- a => "\x07",
- t => "\x09",
- n => "\x0a",
- v => "\x0b",
- f => "\x0c",
- r => "\x0d",
- e => "\x1b",
- '\\' => '\\',
-);
-
-my $QQ_STRING = qr{ " (?:\\. | [^"])* " }x;
-my $HASH_LINE = qr{ ^ ($QQ_STRING|\S+) \s* : (?: \s+ (.+?) \s* )? $ }x;
-my $IS_HASH_KEY = qr{ ^ [\w\'\"] }x;
-my $IS_END_YAML = qr{ ^ [.][.][.] \s* $ }x;
-my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x;
-
-# Create an empty Data::YAML::Reader object
-sub new {
- my $class = shift;
- bless {}, $class;
-}
-
-sub _make_reader {
- my $self = shift;
- my $obj = shift;
-
- croak "Must have something to read from"
- unless defined $obj;
-
- if ( my $ref = ref $obj ) {
- if ( 'CODE' eq $ref ) {
- return $obj;
- }
- elsif ( 'ARRAY' eq $ref ) {
- return sub { shift @$obj };
- }
- elsif ( 'SCALAR' eq $ref ) {
- return $self->_make_reader( $$obj );
- }
- elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) {
- return sub {
- my $line = <$obj>;
- chomp $line if defined $line;
- return $line;
- };
- }
- croak "Don't know how to read $ref";
- }
- else {
- my @lines = split( /\n/, $obj );
- return sub { shift @lines };
- }
-}
-
-sub read {
- my $self = shift;
- my $obj = shift;
-
- $self->{reader} = $self->_make_reader( $obj );
- $self->{capture} = [];
-
- # Prime the reader
- $self->_next;
-
- my $doc = $self->_read;
-
- # The terminator is mandatory otherwise we'd consume a line from the
- # iterator that doesn't belong to us. If we want to remove this
- # restriction we'll have to implement look-ahead in the iterators.
- # Which might not be a bad idea.
- my $dots = $self->_peek;
- croak "Missing '...' at end of YAML"
- unless $dots =~ $IS_END_YAML;
-
- delete $self->{reader};
- delete $self->{next};
-
- return $doc;
-}
-
-sub get_raw {
- my $self = shift;
-
- if ( defined( my $capture = $self->{capture} ) ) {
- return join( "\n", @$capture ) . "\n";
- }
-
- return '';
-}
-
-sub _peek {
- my $self = shift;
- return $self->{next} unless wantarray;
- my $line = $self->{next};
- $line =~ /^ (\s*) (.*) $ /x;
- return ( $2, length $1 );
-}
-
-sub _next {
- my $self = shift;
- croak "_next called with no reader"
- unless $self->{reader};
- my $line = $self->{reader}->();
- $self->{next} = $line;
- push @{ $self->{capture} }, $line;
-}
-
-sub _read {
- my $self = shift;
-
- my $line = $self->_peek;
-
- # Do we have a document header?
- if ( $line =~ /^ --- (?: \s* (.+?) \s* )? $/x ) {
- $self->_next;
-
- return $self->_read_scalar( $1 ) if defined $1; # Inline?
-
- my ( $next, $indent ) = $self->_peek;
-
- if ( $next =~ /^ - /x ) {
- return $self->_read_array( $indent );
- }
- elsif ( $next =~ $IS_HASH_KEY ) {
- return $self->_read_hash( $next, $indent );
- }
- elsif ( $next =~ $IS_END_YAML ) {
- croak "Premature end of YAML";
- }
- else {
- croak "Unsupported YAML syntax: '$next'";
- }
- }
- else {
- croak "YAML document header not found";
- }
-}
-
-# Parse a double quoted string
-sub _read_qq {
- my $self = shift;
- my $str = shift;
-
- unless ( $str =~ s/^ " (.*?) " $/$1/x ) {
- die "Internal: not a quoted string";
- }
-
- $str =~ s/\\"/"/gx;
- $str =~ s/ \\ ( [tartan\\favez] | x([0-9a-fA-F]{2}) )
- / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex;
- return $str;
-}
-
-# Parse a scalar string to the actual scalar
-sub _read_scalar {
- my $self = shift;
- my $string = shift;
-
- return undef if $string eq '~';
-
- if ( $string eq '>' || $string eq '|' ) {
-
- my ( $line, $indent ) = $self->_peek;
- die "Multi-line scalar content missing" unless defined $line;
-
- my @multiline = ( $line );
-
- while ( 1 ) {
- $self->_next;
- my ( $next, $ind ) = $self->_peek;
- last if $ind < $indent;
- push @multiline, $next;
- }
-
- return join( ( $string eq '>' ? ' ' : "\n" ), @multiline ) . "\n";
- }
-
- if ( $string =~ /^ ' (.*) ' $/x ) {
- ( my $rv = $1 ) =~ s/''/'/g;
- return $rv;
- }
-
- if ( $string =~ $IS_QQ_STRING ) {
- return $self->_read_qq( $string );
- }
-
- if ( $string =~ /^['"]/ ) {
-
- # A quote with folding... we don't support that
- die __PACKAGE__ . " does not support multi-line quoted scalars";
- }
-
- # Regular unquoted string
- return $string;
-}
-
-sub _read_nested {
- my $self = shift;
-
- my ( $line, $indent ) = $self->_peek;
-
- if ( $line =~ /^ -/x ) {
- return $self->_read_array( $indent );
- }
- elsif ( $line =~ $IS_HASH_KEY ) {
- return $self->_read_hash( $line, $indent );
- }
- else {
- croak "Unsupported YAML syntax: '$line'";
- }
-}
-
-# Parse an array
-sub _read_array {
- my ( $self, $limit ) = @_;
-
- my $ar = [];
-
- while ( 1 ) {
- my ( $line, $indent ) = $self->_peek;
- last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML;
-
- if ( $indent > $limit ) {
- croak "Array line over-indented";
- }
-
- if ( $line =~ /^ (- \s+) \S+ \s* : (?: \s+ | $ ) /x ) {
- $indent += length $1;
- $line =~ s/-\s+//;
- push @$ar, $self->_read_hash( $line, $indent );
- }
- elsif ( $line =~ /^ - \s* (.+?) \s* $/x ) {
- croak "Unexpected start of YAML" if $line =~ /^---/;
- $self->_next;
- push @$ar, $self->_read_scalar( $1 );
- }
- elsif ( $line =~ /^ - \s* $/x ) {
- $self->_next;
- push @$ar, $self->_read_nested;
- }
- elsif ( $line =~ $IS_HASH_KEY ) {
- $self->_next;
- push @$ar, $self->_read_hash( $line, $indent, );
- }
- else {
- croak "Unsupported YAML syntax: '$line'";
- }
- }
-
- return $ar;
-}
-
-sub _read_hash {
- my ( $self, $line, $limit ) = @_;
-
- my $indent;
- my $hash = {};
-
- while ( 1 ) {
- croak "Badly formed hash line: '$line'"
- unless $line =~ $HASH_LINE;
-
- my ( $key, $value ) = ( $self->_read_scalar( $1 ), $2 );
- $self->_next;
-
- if ( defined $value ) {
- $hash->{$key} = $self->_read_scalar( $value );
- }
- else {
- $hash->{$key} = $self->_read_nested;
- }
-
- ( $line, $indent ) = $self->_peek;
- last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML;
- }
-
- return $hash;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Data::YAML::Reader - Parse YAML created by Data::YAML::Writer
-
-=head1 VERSION
-
-This document describes Data::YAML::Reader version 0.0.6
-
-=head1 SYNOPSIS
-
- use Data::YAML::Reader;
-
- my $yr = Data::YAML::Reader->new;
-
- # Read from an array...
- my $from_array = $yr->read( \@some_array );
-
- # ...an open file handle...
- my $from_handle = $yr->read( $some_file );
-
- # ...a string containing YAML...
- my $from_string = $yr->read( $some_string );
-
- # ...or a closure
- my $from_code = $yr->read( sub { return get_next_line() } );
-
-=head1 DESCRIPTION
-
-In the spirit of L<YAML::Tiny> this is a lightweight, dependency-free
-YAML reader. While C<YAML::Tiny> is designed principally for working
-with configuration files C<Data::YAML> concentrates on the transparent
-round-tripping of YAML serialized Perl data structures.
-
-The syntax accepted by C<Data::YAML::Reader> is a subset of YAML.
-Specifically it is the same subset of YAML that L<Data::YAML::Writer>
-produces. See L<Data::YAML> for more information.
-
-=head1 INTERFACE
-
-=over
-
-=item C<< new >>
-
-Creates and returns an empty C<Data::YAML::Reader> object. No options may be passed.
-
-=item C<< read( $source ) >>
-
-Read YAML and return the data structure it represents. The YAML data may be supplied by a
-
-=over
-
-=item * scalar string containing YAML source
-
-=item * the handle of an open file
-
-=item * a reference to an array of lines
-
-=item * a code reference
-
-=back
-
-In the case of a code reference a subroutine (most likely a closure)
-that returns successive lines of YAML must be supplied. Lines should
-have no trailing newline. When the YAML is exhausted the subroutine must
-return undef.
-
-Returns the data structure (specifically either a scalar, hash ref or
-array ref) that results from decoding the YAML.
-
-=item C<< get_raw >>
-
-Return the raw YAML source from the most recent C<read>.
-
-=back
-
-=head1 BUGS AND LIMITATIONS
-
-No bugs have been reported.
-
-Please report any bugs or feature requests to
-C<data-yaml@rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org>.
-
-=head1 SEE ALSO
-
-L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny>
-
-=head1 AUTHOR
-
-Andy Armstrong C<< <andy@hexten.net> >>
-
-Adam Kennedy wrote L<YAML::Tiny> which provided the template and many of
-the YAML matching regular expressions for this module.
-
-=head1 LICENCE AND COPYRIGHT
-
-Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself. See L<perlartistic>.
-
-=head1 DISCLAIMER OF WARRANTY
-
-BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
-EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
-ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
-YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
-NECESSARY SERVICING, REPAIR, OR CORRECTION.
-
-IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
-LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
-OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
-THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
-RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
-FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
-SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
diff --git a/Data-YAML-0.0.6/lib/Data/YAML/Writer.pm b/Data-YAML-0.0.6/lib/Data/YAML/Writer.pm
deleted file mode 100644
index abce670..0000000
--- a/Data-YAML-0.0.6/lib/Data/YAML/Writer.pm
+++ /dev/null
@@ -1,269 +0,0 @@
-package Data::YAML::Writer;
-
-use strict;
-use warnings;
-use Carp;
-
-use vars qw{$VERSION};
-
-$VERSION = '0.0.6';
-
-my $ESCAPE_CHAR = qr{ [\x00-\x1f\"] }x;
-
-my @UNPRINTABLE = qw(
- z x01 x02 x03 x04 x05 x06 a
- x08 t n v f r x0e x0f
- x10 x11 x12 x13 x14 x15 x16 x17
- x18 x19 x1a e x1c x1d x1e x1f
-);
-
-# Create an empty Data::YAML::Writer object
-sub new {
- my $class = shift;
- bless {}, $class;
-}
-
-sub write {
- my $self = shift;
-
- croak "Need something to write"
- unless @_;
-
- my $obj = shift;
- my $out = shift || \*STDOUT;
-
- croak "Need a reference to something I can write to"
- unless ref $out;
-
- $self->{writer} = $self->_make_writer( $out );
-
- $self->_write_obj( '---', $obj );
- $self->_put( '...' );
-
- delete $self->{writer};
-}
-
-sub _make_writer {
- my $self = shift;
- my $out = shift;
-
- my $ref = ref $out;
-
- if ( 'CODE' eq $ref ) {
- return $out;
- }
- elsif ( 'ARRAY' eq $ref ) {
- return sub { push @$out, shift };
- }
- elsif ( 'SCALAR' eq $ref ) {
- return sub { $$out .= shift() . "\n" };
- }
- elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) {
- return sub { print $out shift(), "\n" };
- }
-
- croak "Can't write to $out";
-}
-
-sub _put {
- my $self = shift;
- $self->{writer}->( join '', @_ );
-}
-
-sub _enc_scalar {
- my $self = shift;
- my $val = shift;
-
- return '~' unless defined $val;
-
- if ( $val =~ /$ESCAPE_CHAR/ ) {
- $val =~ s/\\/\\\\/g;
- $val =~ s/"/\\"/g;
- $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex;
- return qq{"$val"};
- }
-
- if ( length( $val ) == 0 or $val =~ /\s/ ) {
- $val =~ s/'/''/;
- return "'$val'";
- }
-
- return $val;
-}
-
-sub _write_obj {
- my $self = shift;
- my $prefix = shift;
- my $obj = shift;
- my $indent = shift || 0;
-
- if ( my $ref = ref $obj ) {
- my $pad = ' ' x $indent;
- $self->_put( $prefix );
- if ( 'HASH' eq $ref ) {
- for my $key ( sort keys %$obj ) {
- my $value = $obj->{$key};
- $self->_write_obj( $pad . $self->_enc_scalar( $key ) . ':',
- $value, $indent + 1 );
- }
- }
- elsif ( 'ARRAY' eq $ref ) {
- for my $value ( @$obj ) {
- $self->_write_obj( $pad . '-', $value, $indent + 1 );
- }
- }
- else {
- croak "Don't know how to encode $ref";
- }
- }
- else {
- $self->_put( $prefix, ' ', $self->_enc_scalar( $obj ) );
- }
-}
-
-1;
-
-__END__
-
-
-=head1 NAME
-
-Data::YAML::Writer - Easy YAML serialisation
-
-=head1 VERSION
-
-This document describes Data::YAML::Writer version 0.0.6
-
-=head1 SYNOPSIS
-
- use Data::YAML::Writer;
-
- my $data = {
- one => 1,
- two => 2,
- three => [ 1, 2, 3 ],
- };
-
- my $yw = Data::YAML::Writer->new;
-
- # Write to an array...
- $yw->write( $data, \@some_array );
-
- # ...an open file handle...
- $yw->write( $data, $some_file_handle );
-
- # ...a string ...
- $yw->write( $data, \$some_string );
-
- # ...or a closure
- $yw->write( $data, sub {
- my $line = shift;
- print "$line\n";
- } );
-
-
-=head1 DESCRIPTION
-
-Encodes a scalar, hash reference or array reference as YAML.
-
-In the spirit of L<YAML::Tiny> this is a lightweight, dependency-free
-YAML writer. While C<YAML::Tiny> is designed principally for working
-with configuration files C<Data::YAML> concentrates on the transparent
-round-tripping of YAML serialized Perl data structures.
-
-The syntax produced by C<Data::YAML::Writer> is a subset of YAML.
-Specifically it is the same subset of YAML that L<Data::YAML::Reader>
-consumes. See L<Data::YAML> for more information.
-
-=head1 INTERFACE
-
-=over
-
-=item C<< new >>
-
-The constructor C<new> creates and returns an empty C<Data::YAML::Writer> object.
-
-=item C<< write( $obj, $output ) >>
-
-Encode a scalar, hash reference or array reference as YAML.
-
- my $writer = sub {
- my $line = shift;
- print SOMEFILE "$line\n";
- };
-
- my $data = {
- one => 1,
- two => 2,
- three => [ 1, 2, 3 ],
- };
-
- my $yw = Data::YAML::Writer->new;
- $yw->write( $data, $writer );
-
-
-The C< $output > argument may be
-
-=over
-
-=item * a reference to a scalar to append YAML to
-
-=item * the handle of an open file
-
-=item * a reference to an array into which YAML will be pushed
-
-=item * a code reference
-
-=back
-
-If you supply a code reference the subroutine will be called once for
-each line of output with the line as its only argument. Passed lines
-will have no trailing newline.
-
-=back
-
-=head1 BUGS AND LIMITATIONS
-
-No bugs have been reported.
-
-Please report any bugs or feature requests to
-C<data-yaml@rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org>.
-
-=head1 SEE ALSO
-
-L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny>
-
-=head1 AUTHOR
-
-Andy Armstrong C<< <andy@hexten.net> >>
-
-=head1 LICENCE AND COPYRIGHT
-
-Copyright (c) 2007, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself. See L<perlartistic>.
-
-=head1 DISCLAIMER OF WARRANTY
-
-BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
-EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
-ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
-YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
-NECESSARY SERVICING, REPAIR, OR CORRECTION.
-
-IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
-LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
-OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
-THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
-RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
-FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
-SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
generated by cgit (git 2.34.1) at 2024-11-08 17:45:23 +0000