If Perl had better support for anonymous classes a simple solution would be to just create a specialization of the Divisor class (i.e. a subclass).

# Pseudo code!

my $two = new subclass of Divisor {
  sub divides { $_[1] =~ /[02468]\z/ }
};
[download]

lodin