Catalyst::Model::Factory - use a plain class as a Catalyst model,

Catalyst-Model-Adaptor documentation Contained in the Catalyst-Model-Adaptor distribution.

Index

Code Index:

NAME

Top

Catalyst::Model::Factory - use a plain class as a Catalyst model, instantiating it every time it is requested

SYNOPSIS

Top

This module works just like Catalyst::Model::Adaptor, except that a fresh instance of your adapted class is created every time it is requested via $c->model.

CUSTOMIZING

Top

You can customize your subclass just like Catalyst::Model::Adaptor. Instead of $app, though, you'll get $c, the current request context.

METHODS

Top

These methods are called by Catalyst, not by you:

COMPONENT

Load your class

ACCEPT_CONTEXT

Create an instance of your class and return it.

SEE ALSO

Top

For all the critical documentation, see Catalyst::Model::Adaptor.

Catalyst-Model-Adaptor documentation Contained in the Catalyst-Model-Adaptor distribution. 
package Catalyst::Model::Factory;
use strict;
use warnings;
use MRO::Compat;

use base 'Catalyst::Model::Adaptor::Base';
use Catalyst::Utils ();
use Scalar::Util 'blessed';

our $VERSION = '0.10';

sub COMPONENT {
    my ($class, @args) = @_;
    my $self = $class->next::method(@args);

    $self->_load_adapted_class;
    return $self;
}

sub ACCEPT_CONTEXT {
    my ($self, $context, @args) = @_;
    my $arg = {};
    if ( scalar @args ) {
        if ( ref($args[0]) eq 'HASH' ) {
            $arg = $args[0];
        }
        else {
            $arg = { @args };
        }
    }
    my $suffix = Catalyst::Utils::class2classsuffix(blessed $self);
    return $self->_create_instance(
        $context,
        $self->merge_config_hashes($context->config->{$suffix} || {}, $arg),
    );
}

1;
__END__