File Coverage

blib/lib/IBM/SONAS.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch			n/a
condition			n/a
subroutine	6	11	54.5
pod	1	1	100.0
total	25	42	59.5

package IBM::SONAS;

use strict;
use warnings;

use IBM::StorageSystem;
use Carp qw(croak);

our $VERSION = '0.20';

our @METHODS = qw(health disk export filesystem interface mount node quota
replication service snapshot task);

our @ATTRS = qw(cluster_throughput cluster_client_throughput
cluster_create_delete_latency cluster_create_delete_operations
cluster_open_close_latency cluster_open_close_operations
cluster_read_write_operations cluster_read_write_latency);

foreach my $method ( @METHODS ) {
	{
		no strict 'refs';
		my $get_method	= "get_$method";
		my $get_methods	= "get_${method}s";

		*{ __PACKAGE__ ."::$method" } = sub {
			my $self = shift;
			$self->{ss}->$method(@_)
		};

		*{ __PACKAGE__ ."::$get_method" } = sub {
			my $self = shift;
			$self->{ss}->$get_method(@_)
		};

		*{ __PACKAGE__ ."::$get_methods" } = sub {
			my $self = shift;
			$self->{ss}->$get_methods(@_)
		}
	}
}

foreach my $attr ( @ATTRS ) {
        {
                no strict 'refs';
                *{ __PACKAGE__ ."::$attr" } = sub {
                        my $self = shift;
                        $self->{ss}->$attr(@_)
                }
        }
}

sub new {
        my ( $class, %args ) = @_;

        my $self = bless {} , $class;
        $self->{ss} = IBM::StorageSystem->new( %args, no_stats => 1 );

        return $self
}

1;

__END__