package QuotePlus;
use Quote;
@ISA = qw/Quote/;

use strict;
use warnings;
use Data::Dumper;
use Carp qw/clue/;

my(%date);

sub new {
	my ($class, $args) = @_;
	my $self = new Quote( $args );
	$self = bless \$self, ref $class || $class;
	clue "$self";

	if (ref $args eq "HASH") {
		$self->date() = $args->{date} if exists $args->{date};
		clue $self->date();
	}
	return $self;
}

sub date : lvalue { $date{shift}; }

sub DESTROY {
	clue "@_";
	my $self = shift;
	delete $date{$self};
	#$self->SUPER::DESTROY();
}

1;