package Cats;
sub new { bless {}, shift } # generic constructor ;)
sub purring { $self = shift; $self->{key} = "foos" };