sub _common {
        my $self = shift;
        my $key  = shift;
# ...