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 =cut
sub get_tables { sub get_tables {
my $self = shift; my ($self) = @_;
if ($self->is_immutable) { if ($self->is_immutable) {
return @{ $self->{__immutable}{get_tables_methods} ||= [ $self->_get_tables ] }; return @{ $self->{__immutable}{get_tables_methods} ||= [ $self->_get_tables ] };
} }