File Coverage

blib/lib/Parse/Apache/ServerStatus/Extended.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	42	50.0

package Parse::Apache::ServerStatus::Extended;

use warnings;
use strict;
use Web::Scraper;
use base qw( Parse::Apache::ServerStatus );

our $VERSION = '0.02';
use 5.8.1;

sub parse {
    my $self    = shift;
    my $content = $_[0] ? shift : $self->{content};
    return $self->_raise_error('no content received') unless $content;

    my $table = scraper {
        process 'table[border="0"] tr',
            'rows[]' => scraper {
                process 'td',
                    'values[]' => 'TEXT';
            }
    };

    my @scraped;
    for ( @{ $table->scrape($content)->{rows} } ) {
        next unless $_->{values};
        my $stat = $_->{values};
        push @scraped, {
            srv     => $stat->[0],
            pid     => $stat->[1],
            acc     => $stat->[2],
            m       => $stat->[3],
            cpu     => $stat->[4],
            ss      => $stat->[5],
            req     => $stat->[6],
            conn    => $stat->[7],
            child   => $stat->[8],
            slot    => $stat->[9],
            client  => $stat->[10],
            vhost   => $stat->[11],
            request => $stat->[12],
        };
    }

    return \@scraped;
}

1;
__END__