File Coverage

blib/lib/Class/Scaffold/YAML/Marshall/ExceptionContainer.pm

Criterion	Covered	Total	%
statement	16	24	66.6
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	23	32	71.8

use 5.008;
use warnings;
use strict;

package Class::Scaffold::YAML::Marshall::ExceptionContainer;
BEGIN {
  $Class::Scaffold::YAML::Marshall::ExceptionContainer::VERSION = '1.102280';
}
# ABSTRACT: Marshalling plugin that constructs an exception container
use YAML::Marshall 'exception/container';
use parent 'Class::Scaffold::YAML::Marshall';

sub yaml_load {
    my $self = shift;
    my $node = $self->SUPER::yaml_load(@_);

 # Expect a list of hashrefs; each hash element is an exception with a
 # 'ref' key giving the exception class, and the rest being treated as args
 # to give to the exception when it is being recorded. Example:
 #
 #  exception_container: !perl/Class::Scaffold::YAML::Active::ExceptionContainer
 #    - ref: Class::Scaffold::Exception::Policy::Blah
 #      property1: value1
 #      property2: value2
    my $container = $self->delegate->make_obj('exception_container');
    for my $exception (@$node) {

        # Copy because we delete (so as to not mess up YAML references)
        my %args  = %$exception;
        my $class = delete $args{ref};
        $container->record($class, %args);
    }
    $container;
}
1;


__END__