devel/p5-Class-Multimethods-Pure/pkg-descr

   1 You can define multimethods with the "multi" declarator:
   2
   3     use Class::Multimethods::Pure;
   4
   5     multi collide => ('Bullet', 'Ship') => sub {
   6         my ($a, $b) = @_;  ...
   7     };
   8
   9     multi collide => ('Ship', 'Asteroid') => sub {
  10         my ($a, $b) = @_;  ...
  11     };
  12
  13 It is usually wise to put such declarations within a BEGIN block, so
  14 they behave more like Perl treats subs (you can call them without
  15 parentheses and you can use them before you define them).
  16
  17 WWW: http://search.cpan.org/dist/Class-Multimethods-Pure/