use warnings;
use base 'DBIx::Class';
-
-use Carp::Clan qw/^DBIx::Class/;
+use DBIx::Class::Carp;
use DBIx::Class::Exception;
# not importing first() as it will clash with our own method
# analyze the order_by, and see if it is done over a function/nonexistentcolumn
# if this is the case we will need to wrap a subquery since the result of RSC
# *must* be a single column select
- my %collist = map
+ my %collist = map
{ $_ => 1, ($_ =~ /\./) ? () : ( "$alias.$_" => 1 ) }
($rs->result_source->columns, $column)
;
if (
scalar grep
{ ! $collist{$_->[0]} }
- ( $rs->result_source->schema->storage->_extract_order_criteria ($orig_attrs->{order_by} ) )
+ ( $rs->result_source->schema->storage->_extract_order_criteria ($orig_attrs->{order_by} ) )
) {
# nuke the prefetch before collapsing to sql
my $subq_rs = $rs->search;
Returns the next value of the column in the resultset (or C<undef> if
there is none).
-Much like L<DBIx::Class::ResultSet/next> but just returning the
+Much like L<DBIx::Class::ResultSet/next> but just returning the
one value.
=cut
See L<DBIx::Class::Schema/throw_exception> for details.
-=cut
+=cut
sub throw_exception {
my $self=shift;