root ::= Dice_Expression     action => finish
Dice_Expression ::= ...
... same as above ...

sub My_Actions::finish {
    my $self = shift;
    # ... additional cleanup or else change whole sub to just return $_[0]
    return $self
}