#!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]};
}