File Coverage

blib/lib/Spike/Object.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition	3	9	33.3
subroutine	10	10	100.0
pod	0	3	0.0
total	45	54	83.3

package Spike::Object;

use strict;
use warnings;

sub new {
    my $proto = shift;
    my $class = ref $proto || $proto;

    return bless { @_ }, $class;
}

sub mk_accessors {
    my $proto = shift;
    my $class = ref $proto || $proto;

    for my $name (@_) {
        no strict 'refs';

        *{"${class}::$name"} = sub {
            my $self = shift;

            return $self->{$name} = shift if @_;
            return $self->{$name};
        }
    }
}

sub mk_ro_accessors {
    my $proto = shift;
    my $class = ref $proto || $proto;

    for my $name (@_) {
        no strict 'refs';

        *{"${class}::$name"} = sub {
            my $self = shift;
            return $self->{$name};
        }
    }
}

1;