sub double { map { $_ * 2 } @_ };
sub method { my ($self, %param) = @_ };

use Param::Validate;
sub validating { my @p = validate( @_, 1, { default => 99 });

.. etc etc etc..