File Coverage

blib/lib/Petal/Utils/US_Date.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition	2	5	40.0
subroutine	7	7	100.0
pod	0	1	0.0
total	39	43	90.7

package Petal::Utils::US_Date;

use strict;
use warnings::register;

use Carp;

use base qw( Petal::Utils::Base );

use constant name    => 'us_date';
use constant aliases => qw();

our $VERSION  = ((require Petal::Utils), $Petal::Utils::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.2 $ '))[2];

sub process {
    my $class = shift;
    my $hash  = shift;
    my $args  = shift || confess( "'us_date' expects a variable (got nothing)!" );

    my ($year,$mon,$day);
    my ($date, $sep) = $hash->fetch($args);
    $sep ||= '/';
    if ($date =~ /[-|\/]/) {
	($year,$mon,$day) = split(/[-|\/]/, $date);
    }
    else {
	($year,$mon,$day) = $date =~ /(\d{4})(\d{2})(\d{2})/;
    }

    return sprintf("%02d$sep%02d$sep%04d", $mon,$day,$year);
}

1;

__END__