sub add_pet {
  state $check = compile_named(
    name    => Str,
    species => Str,
    age     => Optional[Int],
  );
  my $args = $check->(@_);

  ...; # do stuff with $args hashref
}