view release on metacpan or  search on metacpan

lib/POE/Devel/Top.pm  view on Meta::CPAN

#
# collect()
# -------
sub collect {
    my ($kernel, $heap) = @_[ KERNEL, HEAP ];
    my $poe_api = POE::API::Peek->new;
    my $now = time;

    # collect general data about the current process
    my @times = times;
    my @pwent = getpwuid(int $>);
    my $egid  = (split / /, $))[0];
    my @grent = getgrgid(int $egid);

    my %general = (
        process => {
            pid     => $$,
            uid     => $>,
            gid     => $egid,
            user    => $pwent[0],
            group   => $grent[0],