view release on metacpan or  search on metacpan

eg/processes.psgi  view on Meta::CPAN

        { id => 'since', label => "Since",   type => 'datetime' },
    );

    foreach my $p (@{ Proc::ProcessTable->new()->table() }) {

        # Only show processes for this user
        next unless $p->{'uid'} == $>;

        $datatable->add_rows({
            pid   => $p->{'pid'},
            uid   => { v => $p->{'uid'},  f => (getpwuid( $p->{'uid'} ))[0] },
            size  => { v => $p->{'size'}, f => format_bytes( $p->{'size'} ) },
            cmd   => $p->{'cmndline'},
            since => { v => $p->{'start'}, f => ago( time - $p->{'start'} ) }
        });
    }

    # Step 2: Add data
    $datasource->datatable( $datatable );

    SERIALIZE: