Catalyst Improving your Catalyst Application #29

Doing something harder

package MyApp::Model::WeirdLogic; # from before
use strict; use warnings;
use base 'Catalyst::Model::Factory::PerRequest';

__PACKAGE__->config( class => 'WeirdLogic' );

sub prepare_arguments {
  my ($self, $c) = @_;
  return {
     schema => $c->model('DBIC'),
     user   => $c->user,
  };
}

1;
Infinity Interactive