sub _common {
        my $self = shift;
        (my $key = (caller(1))[3]) =~ s/.*:://;

        if (@_) {
                $self->{$key} = shift;
        }
        else {
                $self->{$key}->($self) if defined $self->{$key};
        }
}