File Coverage

blib/lib/ObjectDB/Factory.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	28	34	82.3

package ObjectDB::Factory;

use strict;
use warnings;

our $VERSION = '3.28';

require Carp;
use ObjectDB::Util qw(load_class);

sub new {
    my $class = shift;

    my $self = {};
    bless $self, $class;

    return $self;
}

sub namespace { Carp::croak('implement') }

sub build {
    my $self   = shift;
    my $type   = shift;
    my %params = @_;

    Carp::croak('type is required') unless $type;

    my @parts = map { ucfirst } split q{ }, $type;
    my $rel_class = $self->namespace . join q{}, @parts;

    load_class $rel_class;

    return $rel_class->new(%params);
}

1;