my ($package,$params) = @_; my $self = ( ref($params) eq 'HASH' ) ? $params : {};