File Coverage

blib/lib/Config/DB/Record.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	0	6	0.0
condition			n/a
subroutine	3	6	50.0
pod	1	1	100.0
total	13	33	39.3

package Config::DB::Record;

$Config::DB::Record::VERSION = '0.2';

use strict;
use warnings;

use Carp;

our $AUTOLOAD;

sub AUTOLOAD {
    my ( $self, @pars ) = @_;
    my $name = $AUTOLOAD;

    $name =~ s/.*://;

    croak "Can't locate object method \"$name\" via package \""
      . __PACKAGE__ . '"'
      unless $name =~ /^_/;

    $name =~ s/^_//;

    return $self->get( $name, @pars );
}

sub DESTROY {
}

sub get {
    my ( $self, $field ) = @_;

    croak __PACKAGE__ . "::get: missing field parameter" unless defined $field;
    croak __PACKAGE__ . "::get: unknown field '$field' for configuration table"
      unless exists $self->{$field};

    return $self->{$field};
}

1;

__END__