sub foo{
   my $self = shift;
   my %args = (
      sid => undef,
      host => 'localhost',
      base => '',
      param => {},
   @_);
}