oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

asset immutability

Browse source
This commit is contained in:
Graham Knop 2010-04-18 18:50:56 -05:00
parent a1d8dbd67a
commit 0efa62a73c
68 changed files with 84 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Definition/Meta/Asset.pm
View file

@ -76,9 +76,17 @@ Returns an array of the names of all tables in every class used by this class.
=cut
sub get_tables {
my $self = shift;
if ($self->is_immutable) {
return @{ $self->{__immutable}{get_tables_methods} ||= [ $self->_get_tables ] };
}
goto &_get_tables;
}
sub _get_tables {
my $self = shift;
my %seen = ();
my @tables =
my @tables =
grep { ! $seen{$_}++ }
map { $_->tableName }
$self->get_all_properties