package MyApp::Types; use strict; use warnings; use utf8; use Mouse::Util::TypeConstraints; subtype 'PositiveInt' => as 'Int' => where { $_ > 0 } => message { "($_)は正の数ではありません" }; subtype 'UserId' => as 'PositiveInt' => where { …