File Coverage

blib/lib/DateTime/Format/Builder/Parser/Quick.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	8	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	44	47.7

package DateTime::Format::Builder::Parser::Quick;
{
  $DateTime::Format::Builder::Parser::Quick::VERSION = '0.81';
}
use strict;
use warnings;
use vars qw( %dispatch_data );
use Params::Validate qw( SCALAR OBJECT CODEREF validate );
use base qw( DateTime::Format::Builder::Parser );



__PACKAGE__->valid_params(
    Quick => {
        type      => SCALAR | OBJECT,
        callbacks => {
            good_classname => sub {
                ( ref $_[0] ) or ( $_[0] =~ /^\w+[:'\w+]*\w+/ );
            },
        }
    },
    method => {
        optional => 1,
        type     => SCALAR | CODEREF,
    },
);

sub create_parser {
    my ( $self, %args ) = @_;
    my $class  = $args{Quick};
    my $method = $args{method};
    $method = 'parse_datetime' unless defined $method;
    eval "use $class";
    die $@ if $@;

    return sub {
        my ( $self, $date ) = @_;
        return unless defined $date;
        my $rv = eval { $class->$method($date) };
        return $rv if defined $rv;
        return;
    };
}

1;

# ABSTRACT: Use another formatter, simply

__END__