Select Code to Download

sub doit {
    my( $self, $a, $b ) = @_;
    $self->{thing} += $a;
    $self->{thing} *= $b;
}

sub doit {
    my( $self, $a, $b ) = @_;
...
    $self->{afters}{'doit'}->( $self, $a, $b );
    return @results;
}

sub doit {
    my( $self, $a, $b ) = @_;
...
    ## do some stuff after
    return $self->{thing};
}

  package Parent;
  use Moose;
...
      In Parent after
    In Child around after calling original
  In Child after