view release on metacpan or  search on metacpan

lib/IBM/StorageSystem/FileSystem/FileSet.pm  view on Meta::CPAN

							: $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__

=pod

=head1 NAME

IBM::StorageSystem::FileSystem::FileSet - Utility class for operations with a IBM storage system filesystem filesets

=head1 VERSION

Version 0.01

=head1 SYNOPSIS

IBM::StorageSystem::FileSystem::FileSet - Utility class for operations with a IBM storage system filesystem filesets

        use IBM::StorageSystem;

        my $ibm = IBM::StorageSystem->new(      
					user            => 'admin',
                                        host            => 'my-v7000',
                                        key_path        => '/path/to/my/.ssh/private_key'
                        ) or die "Couldn't create object! $!\n";

=head3 alloc_inodes

Returns the number of allocated inodes for the fileset.

B<Note> that the number of allocated inodes is returned in a human-readable format with a variable units -
e.g. the value may be returned as 10K or 10M, where K and M refer to the unit.

=head3 comment

Returns the user-specified fileset comment.

=head3 creation_time

Returns the fileset creation time.

=head3 data

Returns the amount of data in use for the fileset in a human-readable format (kB, MB, GB, TB or PB where
1 kB is equal to 1000 bytes).

=head3 device_name

Returns the name of the file system to which the fileset belongs.

=head3 id

Returns the fileset numerical identifier.

=head3 inode_space_owner

Returns the numerical identifier of the fileset owner.

=head3 inodes

Returns the number of inodes in use.

=head3 is_independent

Specifies if the fileset is independent.

=head3 max_inodes

Returns the maximum number of allocatable inodes.

=head3 name

Returns the fileset name.

=head3 parent_id

Returns the parent fileset identifier.

=head3 path

Returns the fileset path if the fileset B<status> is linked and blank otherwise.

=head3 root_inode