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