File Coverage

blib/lib/Gearman/Starter/Util.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	25	32.0

package Gearman::Starter::Util;
use strict;
use warnings;

sub display_scoreboard {
    my $scoreboard = shift;
    my $stats = $scoreboard->read_all;
    my $raw_stats;
    my $busy = 0;
    my $idle = 0;
    for my $pid ( sort { $a <=> $b } keys %$stats) {
        if ( $stats->{$pid} =~ m!^A! ) {
            $busy++;
        }
        else {
            $idle++;
        }
        $raw_stats .= sprintf "%-14d %s\n", $pid, $stats->{$pid}
    }
    $raw_stats = <<"EOF";
BusyWorkers: $busy
IdleWorkers: $idle
--
pid       Status Counter Comment
$raw_stats
EOF
    $raw_stats;
}

1;