projects
/
dbsrgits/DBIx-Class.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
updated all to use PK::Auto
[dbsrgits/DBIx-Class.git]
/
lib
/
DBIx
/
Class
/
AccessorGroup.pm
diff --git
a/lib/DBIx/Class/AccessorGroup.pm
b/lib/DBIx/Class/AccessorGroup.pm
index
4478f41
..
56bcf1b
100644
(file)
--- a/
lib/DBIx/Class/AccessorGroup.pm
+++ b/
lib/DBIx/Class/AccessorGroup.pm
@@
-313,6
+313,11
@@
if called or an object or classdata called _$name if called on a class.
sub set_component_class {
my ($self, $set, $val) = @_;
eval "require $val";
+ if ($@) {
+ my $val_path = $val;
+ $val_path =~ s{::}{/}g;
+ carp $@ unless $@ =~ /^Can't locate $val_path\.pm/;
+ }
if (ref $self) {
return $self->{$set} = $val;
} else {