File Coverage

blib/lib/App/YG/Vmstat.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	3	4	75.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	22	24	91.6

package App::YG::Vmstat;
use strict;
use warnings;

our $regexp = qr/
  [^\d]+?(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)[^\d]+(\d+)
/x;

sub parse {
    my $line = shift;

    if ($line =~ m!(proc|swpd)!) {
        return [];
    }

    my @matched = ($line =~ m!$regexp!);
    unless (scalar @matched) {
        warn "failed to parse line: '$line'\n";
    }

    return \@matched;
}

sub labels {
    return [qw/
        r
        b
        swpd
        free
        buff
        cache
        si
        so
        bi
        bo
        in
        cs
        us
        sy
        id
        wa
        st
    /];
}

1;

__END__