my $self = undef;
  if (ref $_[0] and UNIVERSAL::isa($_[0], __PACKAGE__))
  {
    $self = shift;
  }
  my %args = @_;