File Coverage

blib/lib/IBM/StorageSystem/FileSystem/FileSet.pm

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

package IBM::StorageSystem::FileSystem::FileSet;

use strict;
use warnings;

use Scalar::Util qw(weaken);
use Carp qw(croak);

our @ATTR = qw(	Alloc_inodes		Comment	Creation_time	Data ID		device_name
		Inode_space_owner	Inodes	Is_independent	Max_inodes	Name
		Parent_id		Path	Root_inode	Status		Timestamp);

our $OBJ = {
                snapshot => {
                        cmd     => 'lssnapshot -Y',
                        id      => 'Snapshot_ID',
                        class   => 'IBM::StorageSystem::Snapshot',
                        type    => 'snapshot',
                        sl      => 1
                }
};

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

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 %args = ( cmd	=> "$OBJ->{$obj}->{cmd} $self->{device_name} -j $self->{name} ",
				     class	=> $OBJ->{$obj}->{class},
				     type	=> $OBJ->{$obj}->{type},
				     id		=> $OBJ->{$obj}->{id}
				);
			my @res = $self->{__ibm}->__get_sl_objects( %args );

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

sub new {
        my( $class, $ibm, %args ) = @_;
        my $self = bless {}, $class;
        defined $args{ID} or croak 'Constructor failed: mandatory argument ID not supplied';
	weaken( $self->{__ibm} = $ibm );

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

        return $self
}

1;

__END__