File Coverage

blib/lib/Parse/DaemontoolsStatus.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	9	10	90.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	31	34	91.1

package Parse::DaemontoolsStatus;
use strict;
use warnings;
our $VERSION = '0.02';

sub parse {
    my $line = shift;

    my ($service, $status, $pid, $seconds, $info);

    # parse up status line
    $line =~ /
        ^
        (\S+):\s         # $1 service
        (\S+)\s          # $2 status
        \(pid\s(\S+)\)\s # $3 pid
        (\S+)\s seconds  # $4 seconds
        (,?\s?.*)        # $5 info
        $
    /x;

    ($service, $status, $pid, $seconds, $info) = ($1,$2,$3,$4,$5);
    $info =~ s/^,\s// if $info;

    return +{
        service => $service,
        status  => $status,
        pid     => $pid,
        seconds => $seconds,
        info    => $info,
    } if $service;

    # parse down status line
    $line =~ /
        ^
        (\S+):\s         # $1 service
        (\S+)\s          # $2 status
        (\S+)\s seconds  # $3 seconds
        (,?\s?.*)        # $4 info
        $
    /x;

    ($service, $status, $pid, $seconds, $info) = ($1,$2,undef,$3,$4);
    $info =~ s/^,\s// if $info;

    return +{
        service => $service,
        status  => $status,
        pid     => $pid,
        seconds => $seconds,
        info    => $info,
    } if $service;

    # parse not running status line
    $line =~ /
        ^
        (\S+):\s                  # $1 service
        (supervise\snot\srunning) # $2 status
        $
    /x;

    ($service, $status, $pid, $seconds, $info) = ($1,$2,undef,0,'');

    return +{
        service => $service,
        status  => $status,
        pid     => $pid,
        seconds => $seconds,
        info    => $info,
    } if $service;

    return;
}

1;
__END__