File Coverage

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

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	6	0.0
condition			n/a
subroutine	6	11	54.5
pod	0	1	0.0
total	24	54	44.4

package IBM::StorageSystem::Statistic::Node::DiskWrite;

use strict;
use warnings;

use vars qw($AUTOLOAD);

use Carp qw(croak);

sub AUTOLOAD {
	my $self = shift or return undef;
	( my $method = $AUTOLOAD ) =~ s/.*:://;

	my $accessor = sub {
		my ( $t_self, $val ) = @_;
		$t_self->{$method} = $val if defined $val;
		return $t_self->{$method};
	};

	{
		no strict qw{refs};
		*$AUTOLOAD = $accessor;
	}

	unshift @_, $self;
	goto &$AUTOLOAD;
}

sub DESTROY {}

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

sub _values {
	{
		no strict 'refs';
		return grep { defined &{$_} and /(dm_|(start|end)_time)/ } keys %IBM::StorageSystem::Statistic::Node::DiskWrite::
	}
}

1;

__END__