Similar changes as to Definition::Meta::Class in --::Asset

This commit is contained in:
Colin Kuskie 2010-05-07 17:58:00 -07:00
parent 6154044719
commit 855b59f61d

View file

@ -76,7 +76,7 @@ Returns an array of the names of all tables in every class used by this class.
=cut
sub get_tables {
my $self = shift;
my ($self) = @_;
if ($self->is_immutable) {
return @{ $self->{__immutable}{get_tables_methods} ||= [ $self->_get_tables ] };
}