File Coverage

blib/lib/Text/Diff3/Base.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	51	52	98.0

package Text::Diff3::Base;
use 5.006;
use strict;
use warnings;

use version; our $VERSION = '0.08';

__PACKAGE__->mk_attr_accessor('factory');

sub new {
    my($class, @arg) = @_;
    my $self = bless {}, $class;
    $self->initialize(@arg);
    return $self;
}

sub initialize {
    my($self, $f) = @_;
    $self->factory($f);
    return $self;
}

sub mk_attr_accessor {
    my($class, @fields) = @_;
    $class = ref $class ? ref $class : $class;
    for my $field (@fields) {
        my $accessor = $class->_accessor($field);
        no strict 'refs';
        *{"${class}::${field}"} = $accessor;
    }
    return;
}

sub _accessor {
    my($class, $field) = @_;
    return sub{
        my($self, @arg) = @_;
        if (@arg) {
            $self->{$field} = $arg[0];
        }
        return $self->{$field};
    };
}

1;

__END__