sub pre {
        my $self = shift;
        $self->_common(pre => @_);
}
# etc.