use Attribute::Property;

{
    package Param::function;
    sub new : New;

    # XXX - Both need anchors?
    sub type  : Property { /Order|Return/ }
    sub month : Property { grep /$_[1]/, 1 .. 12 }
}
sub function { 
    my $self = shift;
    ...
}