my ($quarter) = validate_pos(
  @_,
  {  type => SCALAR,
     callbacks => { 'must be 25' => sub { $_[0] == 25 },
  }
);