#!/usr/bin/perl -wT
use strict;

my $d = data->new;
print $d->Y, "\n";

##</code><code>##

2002

##</code><code>##

#!/usr/bin/perl -wT
use strict;

my $d = data->new;
print "$d->Y\n";

##</code><code>##

data=HASH(0x254c7228)->Y

##</code><code>##

{ package data;
#########################
# Call a new package with
# my $d = data->new;
#
# Use this on other dates (than localtime)
# by calling a new package with the date
# my $d = data->('YYYY-MM-DD hh:mm:ss');
# or
# my $d = data->('YYYYMMDDhhmmss');
#
# switch on 'nice' dates with
# $d->nice(1);
# and switch it back off with
# $d->nice(0);
##########################

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self = {};
  if (my $input = shift) {
    if ($input =~ /^(\d{4})-?(\d{2})-?(\d{2}) ?(\d{2}):?(\d{2}):?(\d{2})$/) {
      $self->{year} = $1;
      $self->{month} = $2;
      $self->{day} = $3;
      $self->{hour} = $4;
      $self->{minute} = $5;
      $self->{second} = $6;
    }
  }
  else {
    my @datetime = localtime();
    $datetime[0] += 1;  #format the seconds
    $datetime[4] += 1;  #format the month
    $datetime[5] += 1900;  #format the year
    $self->{second} = $datetime[0];
    $self->{minute} = $datetime[1];
    $self->{hour} = $datetime[2];
    $self->{day} = $datetime[3];
    $self->{month} = $datetime[4];
    $self->{year} = $datetime[5];
  }
  $self->{nice} = '0';
    bless ($self, $class);
    return $self;
  }

sub nice {
  my $self = shift;
  my $value = shift;
  if ($value == 1) {
    $self->{nice} = 1;
  }
  elsif ($value == 0) {
    $self->{nice} = 0;
  }
}

sub s {
  my $self = shift;
  return $self->{second};
}

sub m {
  my $self = shift;
  return $self->{minute};
}

sub h {
  my $self = shift;
  return $self->{hour};
}

sub D {
  my $self = shift;
  if ($self->{nice} == 1) {
    my $value = $self->{day};
    if ($value == 1) { "1st" }
      elsif ($value == 2) { "2nd" }
      elsif ($value == 3) { "3rd" }
      elsif ($value == 21) { "21st" }
      elsif ($value == 22) { "22nd" }
      elsif ($value == 23) { "23rd" }
      elsif ($value == 31) { "31st" }
      elsif (($value >= 4) && ($value <= 31)) {
      return $value . "th";
    }
  }
  else {
  return $self->{day};
  }  
}

sub M {
  my $self = shift;
  if ($self->{nice} == 1) {
    my $value = $self->{month};
    if ($value == 1) { "January" }
    elsif ($value == 2) { "February" }
    elsif ($value == 3) { "March" }
    elsif ($value == 4) { "April" }
    elsif ($value == 5) { "May" }
    elsif ($value == 6) { "June" }
    elsif ($value == 7) { "July" }
    elsif ($value == 8) { "August" }
    elsif ($value == 9) { "September" }
    elsif ($value == 10) { "October" }
    elsif ($value == 11) { "November" }
    elsif ($value == 12) { "December" }
    else { "invalid month" }
  }  
  else {
    return $self->{month};
  }
}

sub Y {
  my $self = shift;
  return $self->{year};
}
}