File Coverage

blib/lib/Config/DB/Table.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	10	0.0
condition			n/a
subroutine	3	6	50.0
pod	1	1	100.0
total	13	39	33.3

package Config::DB::Table;

$Config::DB::Table::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, $key, $field ) = @_;

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

    return $self->{$key} unless defined $field;

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

    return $self->{$key}->{$field};
}

1;

__END__