Exercise some sanity, this should be limited to actual comparision operations,
not as a sneaky way to mess with the constraining value.
+This should return a Bool, suitable for ->check (That is true for valid, false
+for fail).
+
=cut
has 'comparison_callback' => (
);
};
+=head2 constraint
+
+We modify constraint so that the value pass is automatically dereferenced
+
+=cut
+
+around 'constraint' => sub {
+ my ($constraint, $self) = @_;
+ return sub {
+ my ($arg) = @_;
+ $self->$constraint->($arg);
+ };
+};
+
=head2 is_a_type_of
=head2 is_subtype_of