File Coverage

blib/lib/Data/Decode.pm

Criterion	Covered	Total	%
statement	36	40	90.0
branch	6	12	50.0
condition	2	5	40.0
subroutine	8	8	100.0
pod	3	3	100.0
total	55	68	80.8

# $Id: /mirror/perl/Data-Decode/trunk/lib/Data/Decode.pm 8881 2007-11-09T10:28:54.182349Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki
# All rights reserved.

package Data::Decode;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
use Carp ();
use Data::Decode::Exception;

__PACKAGE__->mk_accessors($_) for qw(_decoder);

our $VERSION = '0.00006';

sub new
{
    my $class = shift;
    my %args  = @_;
    my $self  = bless {}, $class;
    $self->decoder($args{strategy});

    return $self;
}

sub decoder
{
    my $self = shift;

    my $ret;
    if (! @_) {
        $ret = $self->_decoder();
    } else {
        $ret = $self->_decoder($_[0] || Carp::croak("No strategy specified") );
        if (! eval { $_[0]->can('decode') }) {
            Carp::croak("$_[0] does not implement a 'decode' method");
        }
    }
    return $ret;
}

sub decode
{
    my ($self, $data, $hints) = @_;

    return () unless defined $data;
    $hints ||= {};

    my $ret = eval {
        $self->decoder->decode($self, $data, $hints);
    };
    my $e;
    if ($e = Data::Decode::Exception::Deferred->caught() ) {
        # Just deferred. return ()
        return ();
    } elsif ( $e = Exception::Class->caught() ) {
        # Oh, this we re-throw
        eval { $e->isa('Data::Decode::Exception') } ?
            $e->rethrow : die $e;
    }
    return $ret;
}

1;

__END__