22 lines
388 B
Perl
22 lines
388 B
Perl
package WebGUI::Template::Proxy::Asset;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base 'WebGUI::Template::Proxy';
|
|
|
|
sub _get_allowed {
|
|
my $self = shift;
|
|
my $asset = shift;
|
|
my @properties = $asset->meta->get_all_property_list;
|
|
return @properties;
|
|
}
|
|
|
|
sub parent {
|
|
my $self = shift;
|
|
my $parent = $self->{_asset}->parentNode;
|
|
$self->_wrap($parent);
|
|
return $parent;
|
|
}
|
|
|
|
1;
|
|
|