File Coverage

blib/lib/MooseFS/Matrix.pm

Criterion	Covered	Total	%
statement	12	39	30.7
branch	0	6	0.0
condition	0	9	0.0
subroutine	4	6	66.6
pod	0	1	0.0
total	16	61	26.2

package MooseFS::Matrix;
use strict;
use warnings;
use IO::Socket::INET;
use Moo;

extends 'MooseFS';

has info => (
    is => 'rw',
    default => sub { [] }
);

sub BUILD {
    my $self = shift;
    my $s = $self->sock;
    print $s pack('(LL)>', 510, 0);
    my $header = $self->myrecv($s, 8);
    my ($cmd, $length) = unpack('(LL)>', $header);
    my $data = $self->myrecv($s, $length);
    my ($v1, $v2, $v3, $memusage, $total, $avail, $trspace, $trfiles, $respace, $refiles, $nodes, $dirs, $files, $chunks, $allcopies, $tdcopies) = unpack('(SCCQQQQLQLLLLLLL)>', $data);

    if ($v2 > 5 and $v3 > 9) {
        print $s pack('(LLS)>', 516, 1, 0);
    } elsif ($v2 > 4 and $v3 > 12) {
        print $s pack('(LL)>', 516, 0);
    } else {
        die 'Too old version';
    };
    my $nheader = $self->myrecv($s, 8);
    my ($ncmd, $nlength) = unpack('(LL)>', $nheader);
    if ($ncmd == 517 and $nlength == 484) {
        for my $i ( 0 .. 10 ) {
            my $ndata = $self->myrecv($s, 44);
            push @{ $self->info }, [ unpack("(LLLLLLLLLLL)>", $ndata) ];
        };
    };
    for  my $goal ( 0 .. $#{ $self->info } ) {
        has "goal$goal" => (is => 'ro', lazy => 1, default => sub {
             my $self = shift;
             my $info;
             for my $valid ( 0 .. $#{ $self->info->[$goal] } ) {
                 $info->{"valid$valid"} = $self->info->[$goal]->[$valid];
             };
             return $info;
        });
    };
};

1;