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