=head2 Differences from Class::DBI
-This will warn when a column is accessed as a hash key.
+If C<DBIC_CDBICOMPAT_HASH_WARN> is true it will warn when a column is accessed as a hash key.
=cut
my $class = ref $obj;
my $id = $obj->id;
- carp "Column '$col' of '$class/$id' was fetched as a hash";
+ carp "Column '$col' of '$class/$id' was fetched as a hash"
+ if $ENV{DBIC_CDBICOMPAT_HASH_WARN};
return $obj->$col();
}
my $class = ref $obj;
my $id = $obj->id;
- carp "Column '$col' of '$class/$id' was stored as a hash";
+ carp "Column '$col' of '$class/$id' was stored as a hash"
+ if $ENV{DBIC_CDBICOMPAT_HASH_WARN};
$obj->$col(shift);
}