sub new
{
    my ( $self, %supplied ) = (@_);

    my $class=ref($self) || $self;
...