sub beta {
  my $self = shift;
  my $coderef = sub { $_[0] eq $gamma };
  $self->_internal_sub($coderef);
}

# and ...
  push @foo, [ @bar ] if $coderef->($baz);