File Coverage

blib/lib/OpenFrame/WebApp/Factory.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

=head1 NAME

OpenFrame::WebApp::Factory - abstract factory class

=head1 SYNOPSIS

  # abstract class - must override to use
  use OpenFrame::WebApp::Factory::Foo;

  my $factory = new OpenFrame::WebApp::Factory::Foo()->type('bar');

  my $obj = $factory->new_object( @args );

=cut

package OpenFrame::WebApp::Factory;

use strict;
use warnings::register;

use Error;
use OpenFrame::WebApp::Error::Abstract;
use OpenFrame::WebApp::Error::LoadClass;

use base qw ( OpenFrame::Object );

our $VERSION = (split(/ /, '$Revision: 1.5 $'))[1];

sub type {
    my $self = shift;
    if (@_) {
	$self->{object_type} = shift;
	$self->error( "warning: $self->{object_type} has no known class!" )
	  unless ($self->get_types_class);
	return $self;
    } else {
	return $self->{object_type};
    }
}

sub get_types_class {
    my $self = shift;
    throw OpenFrame::WebApp::Error::Abstract( class => ref($self) );
}

sub new_object {
    my $self = shift;
    return $self->load_types_class->new( @_ );
}

sub load_types_class {
    my $self  = shift;
    my $class = $self->get_types_class;
    unless ( $class->can( 'new' ) ) {
	eval "require $class;";
	throw OpenFrame::WebApp::Error::LoadClass( -text => $@ ) if ($@);
    }
    return $class;
}

1;

__END__