diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-04-09 15:06:12 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-04-09 15:06:12 +0000 |
commit | fdb22e9e1053fc61f891f24f882ed6eb5e97dee3 (patch) | |
tree | 2d99f4c3cccf515b6e45e7838169a1f029f82749 /lib/Reaction/InterfaceModel | |
parent | 2b67b4491be3b7bcccec29d7a26e105777deec8e (diff) | |
download | reaction-fdb22e9e1053fc61f891f24f882ed6eb5e97dee3.tar.gz reaction-fdb22e9e1053fc61f891f24f882ed6eb5e97dee3.zip |
fixed dm_name_from_class_name and dm_name_from_source_name
Diffstat (limited to 'lib/Reaction/InterfaceModel')
-rw-r--r-- | lib/Reaction/InterfaceModel/Reflector/DBIC.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm index 987a3e2..21887b5 100644 --- a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm +++ b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm @@ -65,7 +65,7 @@ class DBIC, which { my($self, $class) = @_; confess("wrong arguments") unless $class; $class =~ s/::/_/g; - $class = "_" . lc($class) . "_store"; + $class = "_" . $self->_class_to_attribute_name($class) . "_store"; return $class; }; @@ -73,7 +73,7 @@ class DBIC, which { my($self, $source) = @_; confess("wrong arguments") unless $source; $source =~ s/([a-z0-9])([A-Z])/${1}_${2}/g ; - $source = "_" . lc($source) . "_store"; + $source = "_" . $self->_class_to_attribute_name($source) . "_store"; return $source; }; |