add Asset template plugin

lib/WebGUI/Template/Plugin/Asset.pm

@@ -0,0 +1,89 @@
+package WebGUI::Template::Plugin::Asset;
+
+use base 'Template::Plugin';
+
+sub new {
+    my $config = ref($_[-1]) eq 'HASH' ? pop(@_) : { };
+    my ($class, $context, $asset) = @_;
+
+    my $stash = $context->stash;
+    my $session = $stash->{_session};
+
+    my $self = bless {
+        _session => $session,
+        _context => $context,
+    }, $class;
+
+    if ( ref $asset) {
+    }
+    elsif ( defined $asset ) {
+        $asset = $self->_getAsset($asset);
+    }
+    elsif ( $stash->{_asset} ) {
+        $asset = $stash->{_asset};
+    }
+    elsif ( $stash->{assetId} ) {
+        $asset = $self->_getAsset($stash->{assetId});
+    }
+    else {
+        $asset = $session->asset;
+    }
+    $self->{_asset} = $asset;
+
+    my %properties = map { $_ => 1 } $asset->meta->get_all_properties_list;
+    $self->{_callable} = \%properties;
+
+    return $self;
+}
+
+sub _getAsset {
+    my ( $self, $id ) = @_;
+    my ( $asset );
+    try {
+        $asset = WebGUI::Asset->newByUrl( $self->session, $id );
+    }
+    catch {
+        try {
+            $asset = WebGUI::Asset->newById( $self->session, $id );
+        }
+        catch {
+            die "Could not find asset $id to include in template: " . $_;
+        };
+    };
+    return $asset;
+}
+
+sub DESTROY {
+    # prevent AUTOLOADing
+}
+
+sub AUTOLOAD {
+    my $sub = our $AUTOLOAD;
+    $sub =~ s/.*:://;
+    my $self = shift;
+    if ($self->{_callable}{$sub}) {
+        my $result = $self->{_asset}->();
+        if ( eval { $result->isa('WebGUI::Asset'); 1 } ) {
+            return $self->_wrap($result);
+        }
+        return $result;
+    }
+    die 'Not allowed to call ' . $sub;
+}
+
+sub _wrap {
+    my $self = shift;
+    my $wrap = shift;
+    my $class = ref $self;
+    return $class->new($self->{_context}, $wrap);
+}
+
+sub parent {
+    my $self = shift;
+    my $parent = $self->{_asset}->parentNode;
+    return $self->_wrap($parent);
+}
+
+1;
+
+