sub new {
   my $class = shift;
   my %self = %{$_[0]} if ref $_[0];
   ...
}