File Coverage

blib/lib/Puppet/Storage.pm

Criterion	Covered	Total	%
statement	15	34	44.1
branch	0	12	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	1	1	100.0
total	21	57	36.8

package Puppet::Storage ;

use Carp ;
use AutoLoader 'AUTOLOAD' ;

use strict ;
use vars qw($VERSION %ClassData) ;
$VERSION = sprintf "%d.%03d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;

%ClassData = (dbHash => undef, keyRoot => undef );

# translucent attribute (See Tom Christiansen's perltootc page)
# creates accessor methods for all keys of ClassData.
for my $datum (keys %ClassData)
  {
    no strict "refs";
    *$datum = sub
      {
        my $self = shift ;
        my $class = ref($self) || $self ;
        unless (ref($self))
          {
            $ClassData{$datum} = shift if @_ ;
            return $ClassData{$datum} ;
          }
        $self->{$datum} = shift if @_ ;
        return defined $self->{$datum} ? $self->{$datum} : $ClassData{$datum};
      }
  }

sub new
  {
    my $type = shift ;
    my $self = {} ;
    my %args = @_ ;

    bless $self,$type ;

    local $_ ;

    croak("You must pass a name to Puppet::Storage")
          unless defined $args{name};

    $self->{name}=$args{name} ;

    foreach (qw/dbHash keyRoot/)
      {
        $self->{$_} = delete $args{$_} ;
        croak "You must define $_ to Puppet::Storage $self->{name}"
          unless defined $self->$_() ;
      }

    $self->{myDbKey} = $self->keyRoot.";".$self->{name} ;

    return $self;
  }

1;

__END__