File Coverage

blib/lib/LibWeb/Time.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	6	12	50.0
condition	1	3	33.3
subroutine	8	9	88.8
pod	0	6	0.0
total	37	53	69.8

#==============================================================================
# LibWeb::Time -- Various time formats for libweb applications

package LibWeb::Time;

# Copyright (C) 2000  Colin Kong
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#=============================================================================

# $Id: Time.pm,v 1.4 2000/07/19 20:31:57 ckyc Exp $

$VERSION = '0.02';

#-##########################
# Use standard library.
use strict;
use vars qw($VERSION);

#-##########################
# Methods.
sub new {
    my($class, $self);
    $class = shift;

    my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
    my $month = $mon + 1;
    my $month_day = $mday;
    $self = {
	     'sec' => ($sec < 10) ? "0$sec" : $sec,
	     'min' => ($min < 10) ? "0$min" : $min,
	     'hour' => ($hour < 10) ? "0$hour" : $hour,
	     'mday' => ($mday < 10) ? "0$mday" : $mday,
	     'month' =>  ($month < 10) ? "0$month" : $month,
	     'month_day' => ($month_day < 10) ? "0$month_day" : $month_day,
	     'mon' => ('Jan','Feb','March','April','May','June','July','Aug','Sep','Oct','Nov','Dec')[$mon],
	     'year' => $year + 1900,
	     'wday' => ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday]
	    };
    bless( $self, ref($class) || $class );
}

sub DESTROY {}

sub get_date {
    # return 'wday month mday'.
    my $self = shift;
    $self->{wday}.' '.$self->{mon}.' '.$self->{mday};
}

sub get_time {
    # return hh:mm:ss
    my $self = shift;
    $self->{hour}.':'.$self->{min}.':'.$self->{sec};
}

sub get_datetime {
    # return 'wday mm dd hh:mm:ss yyyy'.
    my $self = shift;
    $self->{wday}.' '.$self->{mon}.' '.$self->{mday}.' '.
      $self->{hour}.':'.$self->{min}.':'.$self->{sec}.' '.$self->{year};
}

sub get_timestamp {
    # return 'yyyymmddhhmmss'.
    my $self = shift;
    $self->{year}.$self->{month}.$self->{month_day}.$self->{hour}.$self->{min}.$self->{sec};
}

sub get_year {
    # return 'yyyy'.
    shift->{'year'};
}

1;
__END__