У меня есть это;
multi sub infix:<+> ( Measure:D $left, Measure:D $right ) is equiv( &infix:<+> ) is export {
my ( $result, $argument ) = inf-prep( $left, $right );
return $result.add( $argument );
}
multi sub infix:<+> ( Measure:D $left, $right ) is equiv( &infix:<+> ) is export {
my ( $result, $argument ) = inf-prep( $left, $right );
return $result.add( $argument );
}
multi sub infix:<+> ( $left, Measure:D $right ) is equiv( &infix:<+> ) is export {
my ( $result, $argument ) = inf-prep( $left, $right );
return $result.add( $argument );
}
Есть ли сокращение, чтобы избежать трех мульти-суб-объявлений - главная цель здесь - поймать все, что имеет мой пользовательский тип, например Measure.