I am a complete newbie to Moose.
I would appreciate some help with what a I hope is a "simple" Moose problem.
The code below "works".
But I want to enhance it so that the new() method for Appointment will throw an exception or otherwise report an error if the parameters don't "jive" when taken into context amoungst each other. In addition, is there any easy way to say limit the Month parameter to between 1 and 12? I can see that 'Int' works, but is it possibile to be more specific in the limitation?

FILE:test.pl 

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Appointment;

my $x = Appointment->new(Month=>45, Day => 1); 
print "Month: ",$x->Month,"\n";

print Dumper $x;

__END__
Prints:

Month: 45
$VAR1 = bless( {
                 'Day' => 1,
                 'Month' => 45,
                 'Freq' => 'OneTime'
               }, 'Appointment' );

[download]
FILE: Appointment.pm 
#!/usr/bin/perl
#file: Appointment.pm

package Appointment;

use Moose;      # automatically turns on strict and warnings

my @freq_valid = (qw/OneTime Daily Monthly Quarterly/);

has 'Month'  => ( is       => 'ro', 
                  isa      => 'Int',
                  required => 1,
                );
                  
has 'Day'   => ( is       => 'ro', 
                 isa      => 'Int',
                 required => 1,
               );                
                        
has 'Freq' => (  is       => 'ro', 
                 isa      => 'Str',
                 default  => 'OneTime',
              );

1;

[download]
Update: I have found the replies by kevbot++ and Your Mother++ to be extremely helpful. Thanks!

In reply to Moose: checking parms in object construction by Marshall

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.