File Coverage

blib/lib/Banal/DateTime.pm

Criterion	Covered	Total	%
statement	18	49	36.7
branch			n/a
condition	0	21	0.0
subroutine	6	16	37.5
pod	10	10	100.0
total	34	96	35.4

package Banal::DateTime;

use 5.006;
use utf8;
use strict;
use warnings;
no warnings qw(uninitialized);

our $VERSION = '0.10';

use DateTime;
our @ISA = qw(DateTime);


#********************************************
# CONSTRUCTORS
#********************************************
sub new {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->new(@_);
 	return bless $self, $class;
}

#=================================
sub from_epoch {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->from_epoch(@_);
 	return bless $self, $class;
}

#=================================
sub now {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->now(@_);
 	return bless $self, $class;
}

#=================================
sub today {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->today(@_);
 	return bless $self, $class;
}

#=================================
sub from_object {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->from_object(@_);
 	return bless $self, $class;
}

#=================================
sub last_day_of_month {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->last_day_of_month(@_);
 	return bless $self, $class;
}

#=================================
sub from_day_of_year {
	my $proto 	= shift;
	my $class	= ref($proto) || $proto;

	my $self	= DateTime->from_day_of_year(@_);
 	return bless $self, $class;
}


#********************************************
# OBJECT METHODS
#********************************************

#=======================
# Always 4 digits (at a minimum)
#======================
sub year_std {
	return shift->year();
}


#=======================
# Always 2 digits
#======================
sub month_std {
	return shift->strftime("%m");
}

#=======================
# Always 2 digits
#======================
sub day_std {
	return shift->strftime("%d");
}









1;




__END__