sub toString{
	my $self = shift;
	sprintf '[%s:' . '%s; 'x2 .'%s]',
		$self,
		$phrase{$self},
		$author{$self},
		$approved{$self};
}

##</code><code>##

sub toString{
	my $self = shift;
	sprintf '[%s:' . '%s;' x 1 . '%s]',
		$self,
		$date{$self},
		$self->SUPER::toString();
}

##</code><code>##

# QuotePlus (sub)class
sub _dump{
	warn "_dump should only be called as a class method.\nIe. QuotePlus::_dump()",
	and return if ref +shift;

	Data::Dumper->Dump(
		[  \%date ],
	  	[ 'date' ]
	 )
	. Quote::_dump();
}
...

# Quote class
...sub _dump{
	warn "_dump should only be called as a class method.\nIe. Quote::_dump()"
	and return if ref +shift;

	Data::Dumper->Dump(
		[  \%phrase, \%author, \%approved, ],
	  	[ qw/phrase    author    approved/ ]
	 );
}