File Coverage

blib/lib/IBM/StorageSystem/Statistic/Node/Memory.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition			n/a
subroutine	4	14	28.5
pod	0	1	0.0
total	16	40	40.0

package IBM::StorageSystem::Statistic::Node::Memory;

use strict;
use warnings;

use Carp qw(croak);

our @ATTR = qw(start_time end_time avg_memory avg_cache_memory avg_swap_memory avg_swap_free_memory avg_free_memory avg_buffer_memory avg_dirty_memory avg_swap_cache_memory);

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

sub new {
        my( $class, @vals ) = @_;
        my $self = bless {}, $class;
	my $c = 0;

        foreach my $attr ( @ATTR ) { $self->{$attr} = $vals[$c]; $c++ }

        return $self
}

sub _values { return @ATTR }

1;

__END__