#!env perl
use strict;
use warnings;
use Class::Date qw(date);

print "Class::Date: ".$Class::Date::VERSION."\n";
print "Tie::Hash: ".$Tie::Hash::VERSION."\n";
print "OS: $^O\n";
print "PERL: ".(`env perl -v`)[1]."\n";

my %t;
tie %t, 'TH';

$t{test} = date('2012-01-01');
print $t{test}." --> ";
print $t{test}-=5;


# standard hashverhalten
package TH;

use Tie::Hash;

sub TIEHASH {
        my $self = {};
        my $class = shift;
        bless $self, $class;
}

sub STORE {
        $_[0]->{$_[1]} = $_[2];
}

sub FETCH {
        return $_[0]->{$_[1]};
}

Class::Date: 1.1.10
Tie::Hash: 1.04
OS: linux
PERL: This is perl 5, version 14, subversion 2 (v5.14.2) built for i486-linux-gnu-thread-multi-64int

2012-01-01 00:00:00 --> 2011-12-31 23:59:55