File Coverage

blib/lib/Net/Songkick/Types.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

=head1 NAME

Net::Songkick::Types - Useful type stuff for Net::Songkick

=head1 SYNOPSIS

  use Net::Songkick::Types;
  # This really won't be very useful outside of Net::Songkick.

=cut

package Net::Songkick::Types;

use Moose::Util::TypeConstraints;
use Data::Dumper;
use DateTime::Format::Strptime;

subtype 'Net::Songkick::DateTime',
  as 'DateTime';

coerce 'Net::Songkick::DateTime',
  from 'HashRef',
  via {
    my $dt = ( exists($_->{datetime}) )   ?

      DateTime::Format::Strptime->new(
      pattern => '%Y-%m-%dT%H:%M:%S%z',
      )->parse_datetime($_->{datetime})   :

      DateTime::Format::Strptime->new(
        pattern => '%Y-%m-%d',
      )->parse_datetime($_->{date})      ;

    return $dt;
  };

1;

=head1 AUTHOR

Dave Cross <[e-mail]>

=head1 SEE ALSO

L<Net::Songkick>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2016, Magnum Solutions Ltd.  All Rights Reserved.

This script is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut