diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/YAML/Marshall.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/YAML/Marshall.pm | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/YAML/Marshall.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/YAML/Marshall.pm deleted file mode 100644 index 5985ecea842..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/YAML/Marshall.pm +++ /dev/null @@ -1,77 +0,0 @@ -package YAML::Marshall; -use strict; use warnings; -use YAML::Node(); - -sub import { - my $class = shift; - no strict 'refs'; - my $package = caller; - unless (grep { $_ eq $class} @{$package . '::ISA'}) { - push @{$package . '::ISA'}, $class; - } - - my $tag = shift; - if ($tag) { - no warnings 'once'; - $YAML::TagClass->{$tag} = $package; - ${$package . "::YamlTag"} = $tag; - } -} - -sub yaml_dump { - my $self = shift; - no strict 'refs'; - my $tag = ${ref($self) . "::YamlTag"} || 'perl/' . ref($self); - $self->yaml_node($self, $tag); -} - -sub yaml_load { - my ($class, $node) = @_; - if (my $ynode = $class->yaml_ynode($node)) { - $node = $ynode->{NODE}; - } - bless $node, $class; -} - -sub yaml_node { - shift; - YAML::Node->new(@_); -} - -sub yaml_ynode { - shift; - YAML::Node::ynode(@_); -} - -1; - -__END__ - -=head1 NAME - -YAML::Marshall - YAML marshalling class you can mixin to your classes - -=head1 SYNOPSIS - - package Bar; - use Foo -base; - use YAML::Marshall -mixin; - -=head1 DESCRIPTION - -For classes that want to handle their own YAML serialization. - -=head1 AUTHOR - -Ingy döt Net <ingy@cpan.org> - -=head1 COPYRIGHT - -Copyright (c) 2006. Ingy döt Net. All rights reserved. - -This program is free software; you can redistribute it and/or modify it -under the same terms as Perl itself. - -See L<http://www.perl.com/perl/misc/Artistic.html> - -=cut |