File Coverage

blib/lib/YAML/Old/Marshall.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	11	11	100.0
pod	0	4	0.0
total	58	65	89.2

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

use YAML::Old::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::Old::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::Old::Node->new(@_);
}

sub yaml_ynode {
    shift;
    YAML::Old::Node::ynode(@_);
}

1;