File Coverage

blib/lib/IBM/StorageSystem/Quota.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	4	0.0
condition			n/a
subroutine	4	13	30.7
pod	0	1	0.0
total	16	44	36.3

package IBM::StorageSystem::Quota;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '0.02';
our @ATTR = qw(cluster device fileset type ID name SL_usage HL_usage used_usage
SL_inode HL_inode used_inode gracetime_usage gracetime_inode in_doubt_kB last_update);

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{'Cluster:Device:Type:ID'}
		or croak 'Constructor failed: mandatory Cluster:Device:Type:ID argument not supplied';

	foreach my $attr ( keys %args ) {
		my $mattr = lc $attr;
		$mattr =~ s/(\(|\))//g;

		foreach my $s ( qw(id hl sl) ) {
			my $u = uc $s;
			$mattr =~ s/(^|_)($s)/$1$u/g
		}

		$self->{$mattr} = $args{$attr}
	}

	return $self;
}

1;

__END__