# Pseudo code!

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