In his OOP book he gives a much clearer, to me, way to do (almost) the same thing. I use it often. Dovetails nicely with Params::Validate.

sub bar {
   my %args = ( mi => "default",
                mo => "default",
                mu => "default",
                @_  # list of args in key/val pairs
              );
# ...
}
[download]