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