File Coverage

blib/lib/Spreadsheet/Gnumeric/Base.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	36	37	97.3

# -*- mode: perl; -*-
#
# Base object for the Gnumeric spreadsheet reader.
#
# Documentation below "__END__".
#
# [created.  -- rgr, 6-Feb-23.]
#

package Spreadsheet::Gnumeric::Base;

use 5.010;

use strict;
use warnings;

our $VERSION = '0.2';

sub define_instance_accessors {
    my ($class, @accessors) = @_;

    no strict 'refs';
    for my $method (@accessors) {
	my $field = '_' . $method;
	*{$class . '::' . $method} = sub {
	    my $self = shift;
	    @_ ? $self->{$field} = shift : $self->{$field};
	};
    }
}

sub new {
    my ($class, @options) = @_;

    my $self = bless({ }, $class);
    while (@options) {
	my ($slot, $value) = (shift(@options), shift(@options));
	$self->$slot($value)
	    if $self->can($slot);
    }
    return $self;
}

1;

__END__