File Coverage

blib/lib/Cake/Utils/Accessor.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	4	6	66.6
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	1	0.0
total	36	41	87.8

package Cake::Utils::Accessor;
use strict;
use warnings;
use base qw/Exporter/;

our @EXPORT = qw(
    Accessor
);

###quick simple accessor
sub Accessor {
    my $class;
    if (caller eq $_[0]){
        $class = shift;
    } else {
        $class = caller;
    }

    foreach my $method (@_){
        my $code = $class.'::'.$method;
        {
            no strict 'refs';
            *$code = sub {
                my $self = shift;
                $self->{$method} ||= {};
                if(@_ == 1) {
                    return $self->{$method} = $_[0];
                } elsif (@_ > 1) {
                    return $self->{$method} = [@_];
                } else {
                    return $self->{$method};
                }
            };
        }
    }
}

1;

__END__