package edt;

use strict;

use DateTime;
our @ISA = qw/ DateTime /;

sub new {
 my $proto = shift;
 my $class = ref($proto) || $proto;
 my %h_p = @_;
 $h_p{year} = '2011';
 my $self = $class->SUPER::new( %h_p );
 $self->{_TZONE} = $h_p{time_zone};
 return bless($self, $class);
}

sub custom {
 print "in custom module\n";
}

1;