Revision history for Perl extension Catalyst::Model::DBIC::Schema
+ - warn on empty schema
- create=dynamic deprecation warning
- conversion to Moose (of Model, helper to follow)
- cursor caching support (via ::Role::Caching)
our $VERSION = '0.24';
-use Carp::Clan '^Catalyst::Model::DBIC::Schema';
+use Carp::Clan '^Catalyst::Model::DBIC::Schema::';
use Data::Dumper;
use DBIx::Class ();
use Scalar::Util 'reftype';
$self->connect_info($schema_class->storage->connect_info);
}
else {
- croak "Either ->config->{connect_info} must be defined for $class"
+ die "Either ->config->{connect_info} must be defined for $class"
. " or $schema_class must have connect info defined on it."
. " Here's what we got:\n"
. Dumper($self);
my $class = $self->_class_name;
no strict 'refs';
- foreach my $moniker ($self->schema->sources) {
+
+ my @sources = $self->schema->sources;
+
+ die "No sources found (did you forget to define your tables?)"
+ unless @sources;
+
+ foreach my $moniker (@sources) {
my $classname = "${class}::$moniker";
*{"${classname}::ACCEPT_CONTEXT"} = sub {
shift;
package Catalyst::Model::DBIC::Schema::Role::Caching;
use Moose::Role;
-use Carp::Clan '^Catalyst::Model::DBIC::Schema';
+use Carp::Clan '^Catalyst::Model::DBIC::Schema::';
use namespace::clean -except => 'meta';
use Moose::Role;
use Moose::Autobox;
-use Carp::Clan '^Catalyst::Model::DBIC::Schema';
+use Carp::Clan '^Catalyst::Model::DBIC::Schema::';
use Catalyst::Model::DBIC::Schema::Types 'ConnectInfos';
} else {
$self->storage_type('::DBI::Replicated');
}
+
+ $self->connect_info->{balancer_type} ||= '::Random';
};
after finalize => sub {
my $self = shift;
- $self->storage->connect_replicants($self->replicants->flatten);
+ $self->storage->connect_replicants(map [ $_ ], $self->replicants->flatten);
};
=head1 SEE ALSO
use MooseX::Types
-declare => [qw/ConnectInfo ConnectInfos Replicants SchemaClass/];
+use Carp::Clan '^Catalyst::Model::DBIC::Schema::';
use MooseX::Types::Moose qw/ArrayRef HashRef Str ClassName/;
use Scalar::Util 'reftype';
use List::MoreUtils 'all';
-use Carp;
use namespace::clean -except => 'meta';
for my $i (0..1) {
my $extra = shift @$_;
last unless $extra;
- croak "invalid connect_info" unless reftype $extra eq 'HASH';
+ die "invalid connect_info" unless reftype $extra eq 'HASH';
%connect_info = (%connect_info, %$extra);
}
- croak "invalid connect_info" if @$_;
+ die "invalid connect_info" if @$_;
} elsif (@$_ == 1 && reftype $_->[0] eq 'HASH') {
return $_->[0];
} else {
- croak "invalid connect_info";
+ die "invalid connect_info";
}
\%connect_info;