sub dump_and_die{
   my $self = shift;
   my $ref  = shift || $self;
   die Dumper $ref;
}