File Coverage

lib/Data/Processor/Transformer.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	2	0.0
total	38	43	88.3

use 5.10.1;
use strict;
use warnings;
package Data::Processor::Transformer;

# XXX document this with pod. (if standalone)

sub new {
    my $class  = shift;

    my $self = {};
    bless ($self, $class);
    return $self;
}

sub transform {
    my $self    = shift;
    my $key     = shift;
    my $schema_key = shift;
    my $section = shift;
    if (exists $section->{schema}{$schema_key}{transformer}){
        my $return_value;
        eval {
            local $SIG{__DIE__};
            $return_value =
                $section->{schema}{$schema_key}{transformer}($section->{data}{$key},$section->{data});
        };
        if (my $err = $@) {
            if (ref $err eq 'HASH' && defined $err->{msg}){
                $err = $err->{msg};
            }
            return "error transforming '$key': $err";
        }
        $section->{data}{$key} = $return_value;
    }
    return undef;
}

1