use base qw(Class::MOP::Object);
-our $VERSION = '0.78';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
}
}
+sub assert_valid {
+ my ($self, $value) = @_;
+
+ my $error = $self->validate($value);
+ return 1 if ! defined $error;
+
+ require Moose;
+ Moose->throw_error($error);
+}
+
sub get_message {
my ($self, $value) = @_;
if (my $msg = $self->message) {