sub foo
{
  my %defaults = 
  {
    param1 = 'default1',
    param2 = 'default2',
    #etc
  }

  my $self = shift;
  my $params = { @_ };

  for ( keys %defaults )
  {
    $params->{$_} = $defaults{$_} unless defined $params->{$_};
  }
}