File Coverage

blib/lib/Devel/Memalyzer/Base.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	28	30	93.3

package Devel::Memalyzer::Base;
use strict;
use warnings;

sub gen_accessors {
    my $class = shift;
    for my $accessor ( @_ ) {
        my $sub = sub {
            my $self = shift;
            ($self->{ $accessor }) = @_ if @_;
            return $self->{ $accessor };
        };
        no strict 'refs';
        *{ $class . '::' . $accessor } = $sub;
    }
}

sub new {
    my $class = shift;
    my %proto = @_;
    return bless( \%proto, $class );
}

1;

__END__