view release on metacpan or  search on metacpan

example/apache-status  view on Meta::CPAN

        }
        $rps += 0;              # as numeric
        dprint2 "rps=$rps";

        ## process status
        my @sc_order = (
                       'waiting',
                       'starting',
                       'reading_request',
                       'sending_reply',
                       'keepalive',
                       'dns_lookup',
                       'closing',
                       'logging',
                       'gracefully_finishing',
                       'idle',
                       'open_slot',
                      );
        my %sc_byname = (
                         'waiting'              => '_',
                         'starting'             => 'S',
                         'reading_request'      => 'R',
                         'sending_reply'        => 'W',
                         'keepalive'            => 'K',
                         'dns_lookup'           => 'D',
                         'closing'              => 'C',
                         'logging'              => 'L',
                         'gracefully_finishing' => 'G',
                         'idle'                 => 'I',
                         'open_slot'            => '.',
                        );
        my %sc_bychar = reverse %sc_byname;
        my $score;
        if ($content =~ /^Scoreboard:\s*(.+)$/m) {