sub handler ($$) {
  my($class, $r) = @_;
  ...

##</code><code>##

sub handler : method {
  my($class, $r) = @_;
  ...