File Coverage

blib/lib/Music/ChordBot/Opus/Base.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	21	22	95.4

#! perl

use strict;
use warnings;
use utf8;

package Music::ChordBot::Opus::Base;

=head1 NAME

Music::ChordBot::Opus::Base - Base class for ChordBot classes.

=cut

our $VERSION = 0.01;

# Accessor for data.

sub data { $_[0]->{data} }

# Generic set/get routine. Without a value, it returns the current
# value. With a value it sets the attribute and returns $self so it
# can be chained.

sub _setget {
    my ( $self, $key, $value ) = @_;
    return $self->{data}->{$key} unless defined $value;
    $self->{data}->{$key} = $value;
    return $self;
}

1;