sub new
{
    croak "new() called as a function, not a method\n" unless @_;
    bless {}, shift;
}