sub defaults { my ($self, $param) = map { @_ ? shift : $_ } (1); print($param); }