Gecko [ nbspublicschool.com ]

Name	Size	Permission
Dumper	[ DIR ]	drwxr-xr-x
Loader	[ DIR ]	drwxr-xr-x
Any.pm	4.1 KB	-rw-r--r--
Dumper.pm	16.79 KB	-rw-r--r--
Error.pm	6.22 KB	-rw-r--r--
Loader.pm	23.75 KB	-rw-r--r--
Marshall.pm	1.42 KB	-rw-r--r--
Mo.pm	2.91 KB	-rw-r--r--
Node.pm	6.62 KB	-rw-r--r--
Tag.pm	683 B	-rw-r--r--
Tiny.pm	30.5 KB	-rw-r--r--
Types.pm	6.55 KB	-rw-r--r--

Code Editor : Marshall.pm

use strict;
use warnings;
package YAML::Marshall;

our $VERSION = '0.84';

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(@_);
}

__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

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

${this.title}

Code Editor : Marshall.pm