File Coverage

blib/lib/IBM/StorageSystem/Pool.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	4	0.0
condition	0	2	0.0
subroutine	5	15	33.3
pod	0	1	0.0
total	20	51	39.2

package IBM::StorageSystem::Pool;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '0.01';
our @ATTR = qw(Filesystem:Name Filesystem Name Size Usage Available_fragments Available_blocks Disk_list);

foreach my $attr ( map lc, @ATTR ) {
        {
                no strict 'refs';
                *{ __PACKAGE__ .'::'. $attr } = sub {
                        my( $self, $val ) = @_;
                        $self->{$attr} = $val if $val;
                        return $self->{$attr}
                }
        }
}

our $STATS = {
                throughput => {
                        cmd     => '-g pool_throughput',
                        class   => 'IBM::StorageSystem::Statistic::Pool::Throughput'
                        },
};

foreach my $stat ( keys %{ $STATS } ) {
        {
        no strict 'refs';
        *{ __PACKAGE__ .'::'. $stat } =
        sub {
                my( $self, $t ) = @_;
                $t ||= 'minute';
                my $stats = $self->{__ibm}->__lsperfdata( cmd   => "$STATS->{$stat}->{cmd} -t $t -p $self->{'filesystem:name'}",
                                                          class => $STATS->{$stat}->{class}
                                                        );
                return $stats
        }
        }
}

sub new {
        my( $class, $ibm, %args ) = @_;
        my $self = bless {}, $class;
        defined lc $args{'filesystem:pool'} or croak __PACKAGE__ . ' constructor failed: mandatory filesystem:pool argument not supplied';
	$self->{ name } = $args{Name};

	foreach my $attr ( keys %args ) { $self->{lc $attr} = $args{$attr} }

        return $self
}

1;

__END__