view release on metacpan or  search on metacpan

lib/HPCI/SystemLogger.pm  view on Meta::CPAN

sub _log_ret {
    my $self = shift;
    my $path = shift;
    my $fh   = shift;
    my $ret  = shift;
    say $fh "";
    say $fh "*"x40 for 1..2;
    say $fh "Program\t$FindBin::Bin/$FindBin::Script";
    say $fh "ProcessID\t$$";
    say $fh "StartTime\t", $start;
    say $fh "User\t", scalar(getpwuid $<);
    my $gname = $self->name;
    say $fh "GroupName\t$gname";
    say $fh "GroupCount\t", ++$groupcnt;
    say $fh "GroupEndTime\t", DateTime->from_epoch(epoch => time);
    $self->_log_stages( $fh, $gname, $ret );
}

sub _log_stages {
    my ($self, $fh, $gname, $ret, @parents) = @_;