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__

=pod

=head1 NAME

DateTime::Format::Builder::Parser::Quick - Use another formatter, simply

=head1 VERSION

version 0.81

=head1 SYNOPSIS

    use DateTime::Format::Builder (

    parsers => { parse_datetime => [

        { Quick => 'DateTime::Format::HTTP' },

        { Quick => 'DateTime::Format::Mail' },

        { Quick => 'DateTime::Format::IBeat' },

    ]});

is the same as:

    use DateTime::Format::HTTP;

    use DateTime::Format::Mail;

    use DateTime::Format::IBeat;

    use DateTime::Format::Builder (

    parsers => { parse_datetime => [

        sub { eval { DateTime::Format::HTTP->parse_datetime( $_[1] ) } },

        sub { eval { DateTime::Format::Mail->parse_datetime( $_[1] ) } },

        sub { eval { DateTime::Format::IBeat->parse_datetime( $_[1] ) } },

    ]});

(These two pieces of code can both be found in the test

suite; one as F<quick.t>, the other as F<fall.t>.)

=head1 DESCRIPTION

C<Quick> adds a parser that allows some shortcuts when

writing fairly standard and mundane calls to other

formatting modules.

=head1 SPECIFICATION

C<Quick> has two keys, one optional.

The C<Quick> keyword should have an argument of either an

object or a class name. If it's a class name then the class

is C<use>d.

The C<method> keyword is optional with a default of

C<parse_datetime>. It's either name of the method to invoke

on the object, or a reference to a piece of code.

In any case, the resultant code ends up looking like:

     my $rv = $Quick->$method( $date );

=head1 SUPPORT

See L<DateTime::Format::Builder> for details.

=head1 SEE ALSO

C<datetime@perl.org> mailing list.

http://datetime.perl.org/

L<perl>, L<DateTime>,

L<DateTime::Format::Builder>

=head1 AUTHORS

=over 4

=item *

Dave Rolsky <autarch@urth.org>

=item *

Iain Truskett

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2013 by Dave Rolsky.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut