requires 'DBIx::Class' => '0.08103';
requires 'Catalyst::Runtime' => '5.80003';
-requires 'MooseX::Traits' => '0.05';
+requires 'MooseX::Traits' => '0.06';
requires 'Moose';
requires 'Moose::Autobox';
requires 'MooseX::Types';
-requires 'namespace::clean';
+requires 'namespace::autoclean';
requires 'Carp::Clan';
requires 'List::MoreUtils';
package Catalyst::Helper::Model::DBIC::Schema;
+use namespace::autoclean;
use Moose;
no warnings 'uninitialized';
use List::MoreUtils 'firstidx';
use Scalar::Util 'looks_like_number';
-use namespace::clean -except => 'meta';
-
=head1 NAME
Catalyst::Helper::Model::DBIC::Schema - Helper for DBIC Schema Models
our $VERSION = '0.24';
+use namespace::autoclean;
use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use Data::Dumper;
use DBIx::Class ();
use MooseX::Types::Moose qw/ArrayRef Str ClassName Undef/;
-use namespace::clean -except => 'meta';
-
=head1 NAME
Catalyst::Model::DBIC::Schema - DBIx::Class::Schema Model Class
if (my $traits = delete $args->{traits}) {
my @traits = $class->_resolve_traits($traits->flatten);
- return $class->new_with_traits(
+ return $class->new_with_traits({
traits => \@traits,
_original_class_name => $class,
_traits => $traits,
_resolved_traits => \@traits,
%$args
- );
+ });
}
- return $class->new(%$args);
-}
-
-# we override Catalyst::Component::BUILDARGS, which merges configs, because we
-# merge configs ourselves in COMPONENT. We also don't pass $app to ->new, so
-# Moose::Object::BUILDARGS works perfectly.
-sub BUILDARGS {
- goto &Moose::Object::BUILDARGS;
+ return $class->new($args);
}
sub BUILD {
=head2 ACCEPT_CONTEXT
-Point of extension for doing things at C<< $c->model >> time, returns the model
-instance, see L<Catalyst::Manual::Intro> for more information.
+Point of extension for doing things at C<< $c->model >> time with context,
+returns the model instance, see L<Catalyst::Manual::Intro/ACCEPT_CONTEXT> for
+more information.
=cut
package Catalyst::Model::DBIC::Schema::Trait::Caching;
+use namespace::autoclean;
use Moose::Role;
use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use Catalyst::Model::DBIC::Schema::Types 'CursorClass';
use MooseX::Types::Moose qw/Int Str/;
-use namespace::clean -except => 'meta';
-
=head1 NAME
Catalyst::Model::DBIC::Schema::Trait::Caching - Query caching support for
package Catalyst::Model::DBIC::Schema::Trait::Replicated;
+use namespace::autoclean;
use Moose::Role;
use Moose::Autobox;
use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use Catalyst::Model::DBIC::Schema::Types 'ConnectInfos';
-use namespace::clean -except => 'meta';
-
=head1 NAME
Catalyst::Model::DBIC::Schema::Trait::Replicated - Replicated storage support for
}
};
-my $build = sub {
+sub BUILD {}
+after BUILD => sub {
my $self = shift;
$self->storage->connect_replicants(map [ $_ ], $self->replicants->flatten);
};
-after BUILD => $build;
-sub BUILD { goto $build }
=head1 SEE ALSO