package Date::Time::UnixTime;
# Some methods dealing with Unix timestamps are to be implemented here.
1;
package Date::Time;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require AutoLoader;
@ISA = qw(AutoLoader);
$VERSION = '0.01';
sub new {
# Class identification:
my $object_or_class = shift; my $class = ref($object_or_class) || $object_or_class;
my $self={}; bless $self, $class;
}
1;
__END__
=head1 NAME
Date::Time - Lightweight normalised datetime data type
=head1 SYNOPSIS
This is just some suggestions, as nothing is implemented yet. I'm
open to critisism. Anyway I don't know if the original name will fit
this module with all my plans....
use Date::Time;
my $date=Date::Time->new();
# Set date
$date->set; # Set to current time
$date->set(time-60); # Set to 'one minute ago'
my $greg=Date::Time::Gregorian->new();
$greg->parse(source=>'Fri Mar 3 01:20:54 CET 2000');
$greg->parse(source=>'one month ago', format=>'unknown');
$greg->set(localtime, {timezone=>'local'});
$greg->set(gmtime);
my $db_time=new Date::Time::MySQLTimeStamp;
$db_time->set(200003031859);
# Output date and date elements
print $db_time->Gregorian->as_string;
print $db_time->Gregorian->year;
print $db_time->Gregorian->strftime('%A');
# The month operator here will return a Date::Gregorian::Month object.
print $db_time->Gregorian->month->as_string(LANG=>'en');
print $db_time->Julian->as_string;
print $db_time->Maya->as_string;
my $rel_time=$greg->diff($date);
# Will print something like "3 hours ago" or "5 weeks ago"
print $rel_time->Gregorian->as_string;
=head1 DESCRIPTION
See the README as for now. By the way, I want to be neutral to the
calender system - that's why the SYNOPSIS above looks like it does.
Personally I think Gregorian dates sucks a lot - but I'm living in a
Gregorian world and I'm myself mostly thinking about time in Gregorian
terms anyway.
The same applies to the decimal number system, btw. I mean, of all
numbers, why on earth did they chose 2*5? It's really a stupid, ugly
number :) Anyway, I'm always thinking in decimal terms, it's very hard
for me to do calculations in other systems.
=head1 IMPLEMENTATION
I'm intending to write a bit about how I've thought implementing this
one here. Some thoughts are already in the README.
=head1 SUBCLASSING
I will write a bit on how to do subclassing and how to contribute new
methods here.
=head1 AUTHOR
Tobias Brox <tobix@irctos.org>
All kinds of feedback is welcome - and is probably a prerequisite for
progress on this module.
=cut