view release on metacpan or  search on metacpan

lib/App/Prove/Elasticsearch/Blamer/System.pm  view on Meta::CPAN

use utf8;

use System::Info;

sub get_responsible_party {
    my $info = System::Info->sysinfo_hash();
    return _get_uname() . '@' . $info->{hostname};
}

sub _get_uname {
    my @pw_info = getpwuid($<);
    return $pw_info[0];
}

1;

__END__

=pod

=encoding UTF-8