Revision history for Perl extension Catalyst::Model::DBIC::Schema
- - make schema a delegate for model (caelum)
+0.27 Wed Aug 26 09:09:44 EDT 2009
+ - remove autobox usage due to reports of strange errors (caelum)
+ - make schema a delegate for model, config too (caelum)
0.26 Wed Jul 29 16:16:09 PDT 2009
- fix loading connect_info from schema-defined connection
requires 'DBIx::Class' => '0.08107';
requires 'Catalyst::Runtime' => '5.80005';
-requires 'CatalystX::Component::Traits' => '0.03';
+requires 'CatalystX::Component::Traits' => '0.09';
# XXX remove this once the dep in DBIC is updated, needed for schema
# introspection to work.
use Moose;
no warnings 'uninitialized';
-our $VERSION = '0.26';
+our $VERSION = '0.27';
+$VERSION = eval $VERSION;
use Carp;
use Tie::IxHash ();
use List::Util 'first';
use MooseX::Types::Moose qw/Str HashRef Bool ArrayRef/;
use Catalyst::Model::DBIC::Schema::Types 'CreateOption';
-use Moose::Autobox;
use List::MoreUtils 'firstidx';
use Scalar::Util 'looks_like_number';
sub BUILD {
my $self = shift;
my $helper = $self->helper;
- my @args = $self->args->flatten if $self->args;
+ my @args = @{ $self->args || [] };
$helper->{schema_class} = $self->schema_class;
$self->traits(\@traits);
$helper->{traits} = '['
- .(join ',' => map { qq{'$_'} } ($self->traits->flatten))
+ .(join ',' => map { qq{'$_'} } @traits)
.']';
splice @args, $traits_idx, 1, ();
extends 'Catalyst::Model';
with 'CatalystX::Component::Traits';
-our $VERSION = '0.26';
+our $VERSION = '0.27';
+$VERSION = eval $VERSION;
use namespace::autoclean;
use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use Data::Dumper;
use DBIx::Class ();
-use Moose::Autobox;
use Catalyst::Model::DBIC::Schema::Types
qw/ConnectInfo LoadedClass/;
use namespace::autoclean;
use Moose::Role;
-use Moose::Autobox;
use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use Catalyst::Model::DBIC::Schema::Types qw/ConnectInfos LoadedClass/;
after BUILD => sub {
my $self = shift;
- $self->storage->connect_replicants(map [ $_ ], $self->replicants->flatten);
+ $self->storage->connect_replicants(map [ $_ ], @{ $self->replicants });
};
=head1 SEE ALSO