package Catalyst::Helper::Model::DBIC::Schema;
+use namespace::autoclean;
use Moose;
no warnings 'uninitialized';
-our $VERSION = '0.24';
+our $VERSION = '0.25';
use Carp;
use Tie::IxHash ();
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
if ($dsn =~ /sqlite/i) {
($user, $password) = ('', '');
- shift @$connect_info while $connect_info->[0] eq '';
+ shift @$connect_info while @$connect_info and $connect_info->[0] eq '';
} else {
($user, $password) = splice @$connect_info, 0, 2;
}