File Coverage

blib/lib/Template/Plugin/Datum.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	8	8	100.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	1	2	50.0
total	37	38	97.3

package Template::Plugin::Datum;
$VERSION = 0.02;

use strict;
use base 'Template::Plugin';

sub new {
    my ($self, $context) = @_;

    $context->define_filter('datum', \&datum, '');

    return $self;
}

sub datum {
    my $text = shift || '';

    my @date = ();
    my @time = ();

    # 8 digits?
    if ($text =~ /^(\d{4})(\d{2})(\d{2})$/) {
        @date = ($1, $2, $3);
    } elsif ($text =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) {
        @date = ($1, $2, $3);
        @time = ($4, $5, $6);
    } else {
        # split on '-', '.' or '/'
        @date = split(/[-\/.]/, $text);
    }

    # wrong?
    return '' unless (scalar @date == 3);

    my $output = join('.', reverse @date);

    if (scalar @time == 3) {
        $output .= ' '.join(':', @time);
    }

    return $output;
}


1;
__END__