File Coverage

blib/lib/Class/DBI/Plugin/TimePiece.pm

Criterion	Covered	Total	%
statement	22	28	78.5
branch			n/a
condition			n/a
subroutine	6	9	66.6
pod			n/a
total	28	37	75.6

package Class::DBI::Plugin::TimePiece;

use strict;
use warnings;
use Carp;

use vars '$VERSION';

$VERSION = '0.01';

sub import {
    my $class = shift;
    my $pkg   = caller(0);

    no strict 'refs';
    *{"$pkg\::has_a_timepiece"} = sub {
        my $self   = shift;
        my $colum  = shift;
        my $format = shift;

        $self->has_a(
            $colum  => 'Time::Piece',
            inflate => sub { Time::Piece->strptime(shift , $format ) },
            deflate => sub { shift->strftime($format) },
        );
    };
    *{"$pkg\::has_a_tp"} = *{"$pkg\::has_a_timepiece"};
}

1;
__END__