package Some::Class;

sub new : New {
    my ($self) = @_;
    exists $self->{$_} or croak "Mandatory argument '$_' missing"
        for qw(id foo);
    return $self;
}

sub id   : Property { /^\d+\z/ }
sub foo  : Property;
sub bar  : Property;
sub blah : Property { $_ < 50 }

sub _private : method {
    my ($self) = @_;
    ...
}

sub do_something : method {
    my ($self, $quux) = @_;
    ...
}