6 use Test::More tests => 1;
21 has 'value' => (isa => 'Num', is => 'ro');
23 around 'validate' => sub {
25 my ($self, $field) = @_;
26 return undef if $c->($self, $self->validation_value($field));
27 return $self->error_message;
30 sub validation_value {
31 my ($self, $field) = @_;
35 sub error_message { confess "Abstract method!" }
37 package Constraint::OnLength;
40 has 'units' => (isa => 'Str', is => 'ro');
42 override 'validation_value' => sub {
43 return length(super());
46 override 'error_message' => sub {
48 return super() . ' ' . $self->units;
56 package Constraint::AtLeast;
62 my ($self, $field) = @_;
63 ($field >= $self->value);
66 sub error_message { 'must be at least ' . (shift)->value; }
68 package Constraint::NoMoreThan;
74 my ($self, $field) = @_;
75 ($field <= $self->value);
78 sub error_message { 'must be no more than ' . (shift)->value; }
80 package Constraint::LengthNoMoreThan;
83 extends 'Constraint::NoMoreThan';
84 with 'Constraint::OnLength';
86 package Constraint::LengthAtLeast;
89 extends 'Constraint::AtLeast';
90 with 'Constraint::OnLength';
93 my $no_more_than_10 = Constraint::NoMoreThan->new(value => 10);
94 isa_ok($no_more_than_10, 'Constraint::NoMoreThan');
96 ok($no_more_than_10->does('Constraint'), '... Constraint::NoMoreThan does Constraint');
98 ok(!defined($no_more_than_10->validate(1)), '... validated correctly');
99 is($no_more_than_10->validate(11), 'must be no more than 10', '... validation failed correctly');
101 my $at_least_10 = Constraint::AtLeast->new(value => 10);
102 isa_ok($at_least_10, 'Constraint::AtLeast');
104 ok($at_least_10->does('Constraint'), '... Constraint::AtLeast does Constraint');
106 ok(!defined($at_least_10->validate(11)), '... validated correctly');
107 is($at_least_10->validate(1), 'must be at least 10', '... validation failed correctly');
111 my $no_more_than_10_chars = Constraint::LengthNoMoreThan->new(value => 10, units => 'chars');
112 isa_ok($no_more_than_10_chars, 'Constraint::LengthNoMoreThan');
113 isa_ok($no_more_than_10_chars, 'Constraint::NoMoreThan');
115 ok($no_more_than_10_chars->does('Constraint'), '... Constraint::LengthNoMoreThan does Constraint');
116 ok($no_more_than_10_chars->does('Constraint::OnLength'), '... Constraint::LengthNoMoreThan does Constraint::OnLength');
118 ok(!defined($no_more_than_10_chars->validate('foo')), '... validated correctly');
119 is($no_more_than_10_chars->validate('foooooooooo'),
120 'must be no more than 10 chars',
121 '... validation failed correctly');
123 my $at_least_10_chars = Constraint::LengthAtLeast->new(value => 10, units => 'chars');
124 isa_ok($at_least_10_chars, 'Constraint::LengthAtLeast');
125 isa_ok($at_least_10_chars, 'Constraint::AtLeast');
127 ok($at_least_10_chars->does('Constraint'), '... Constraint::LengthAtLeast does Constraint');
128 ok($at_least_10_chars->does('Constraint::OnLength'), '... Constraint::LengthAtLeast does Constraint::OnLength');
130 ok(!defined($at_least_10_chars->validate('barrrrrrrrr')), '... validated correctly');
131 is($at_least_10_chars->validate('bar'), 'must be at least 10 chars', '... validation failed correctly');