File Coverage

blib/lib/App/Prove/Elasticsearch/Blamer/System.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	20	23	86.9

# ABSTRACT: Determine the responsible party for tests via system user & hostname for upload to elasticsearch
# PODNAME: App::Prove::Elasticsearch::Blamer::Env

package App::Prove::Elasticsearch::Blamer::System;
$App::Prove::Elasticsearch::Blamer::System::VERSION = '0.001';
use strict;
use warnings;
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__