File Coverage

blib/lib/IBM/StorageSystem/VDisk.pm

Criterion	Covered	Total	%
statement	21	43	48.8
branch	0	10	0.0
condition			n/a
subroutine	7	12	58.3
pod	0	1	0.0
total	28	66	42.4

package IBM::StorageSystem::VDisk;

use strict;
use warnings;

use Carp qw(croak);
use Scalar::Util qw(weaken);
use IBM::StorageSystem::VDisk::Copy;

our $VERSION = '0.01';
our @ATTR = qw(FC_id FC_name IO_group_id IO_group_name RC_change RC_id RC_name cache
capacity copy_count fast_write_state fc_map_count filesystem formatted id mdisk_grp_id
mdisk_grp_name mdisk_id mdisk_name mirror_write_priority name preferred_node_id
se_copy_count status sync_rate throttling type udid vdisk_UID);

our $OBJ = {
		copy => {
			bcmd	=> 'lsvdiskcopy -nohdr -delim :',
			cmd	=> 'lsvdiskcopy -bytes -copy',
			id	=> 'copy_id',
			class	=> 'IBM::StorageSystem::VDisk::Copy',
			type	=> 'copy'
		}
	};

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, $ibm, %args ) = @_;
        my $self = bless {}, $class;
        defined $args{id} or croak 'Constructor failed: mandatory id argument not supplied';
	weaken( $self->{__ibm } = $ibm );

        foreach my $attr ( @ATTR ) { $self->{$attr} = $args{$attr} }

        return $self
}

foreach my $obj ( keys %{ $OBJ } ) {
        {
                no strict 'refs';
                my $m = 'get_'.$obj.'s';

                *{ __PACKAGE__ ."::$obj" } = sub {
                        my( $self, $id ) = @_;
                        defined $id or return;
                        return ( $self->{$obj}->{$id} ? $self->{$obj}->{$id} : $self->$m( $id ) )
                };

                *{ __PACKAGE__ .'::get_'. $obj } = sub { return $_[0]->$m( $_[1] ) };

                *{ __PACKAGE__ ."::$m" } = sub {
                        my( $self, $id ) = @_;

                        my @objects = map { ( split /:/, $_ )[2] . " $self->{id}" }
				      split /\n/, $self->{__ibm}->__cmd( "$OBJ->{ $obj }->{ bcmd } $self->{ id }");

                        my %a = (objects=> [ @objects ],
				 cmd	=> $OBJ->{ $obj }->{ cmd },
				 class	=> $OBJ->{ $obj }->{ class },
				 nocache=> 1 );
                        @objects = $self->{__ibm}->__get_ml_objects( %a );

                        foreach my $object ( @objects ) {
                                $self->{ $OBJ->{ $obj }->{ type } }->{ $object->{ $OBJ->{ $obj }->{ id } } } = $object
                        }

                        return ( defined $id ? $self->{ $OBJ->{ $obj }->{ type } }->{ $id } : @objects )
                }
        }
}

1;

__END__