our @EXPORT_OK qw( func_one func_two ); our @EXPORT_PRIVATE = qw( _private_one _private_two ); our %EXPORT_TAGS = ( all => \@EXPORT_OK, private => _add_private(), ); sub _add_private { push @EXPORT_OK, @EXPORT_PRIVATE; return \@EXPORT_OK;