view release on metacpan or  search on metacpan

lib/Data/AnyXfer/Elastic/Utils.pm  view on Meta::CPAN

    }
}

sub make_safe_name {

    my ( $self, $name, $hostname, $user, $package ) = @_;

    croak "name not supplied" unless $name;

    $hostname //= Sys::Hostname::hostname;
    $user     //= getpwuid($>) || $>;
    $package  //= $self->_find_test_package_name;

    my $safe_name
        = join( '_', grep {$_} ( $user, $hostname, $package, $name ) );

    # make the name pretty and easy to type
    $safe_name =~ s/-/_/g;    # some hostnames have dashes in them

    return $safe_name;
}