#!/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;