From 13589977f20f4a61645fb70c5eb79ad59e8091e1 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Sun, 18 Apr 2010 18:54:21 -0500
Subject: [PATCH] don't recompute packed template on object instantiation

---
 lib/WebGUI/Asset/Template.pm | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/Asset/Template.pm b/lib/WebGUI/Asset/Template.pm
index 82175ee7b..e24920e9f 100644
--- a/lib/WebGUI/Asset/Template.pm
+++ b/lib/WebGUI/Asset/Template.pm
@@ -35,13 +35,7 @@ property template => (
 sub _template_autopack {
     my ($self, $new, $old) = @_;
     return if $new eq $old;
-    my $packed  = $new;
-    HTML::Packer::minify( \$packed, {
-        remove_comments     => 1,
-        do_javascript       => "shrink",
-        do_stylesheet       => "minify",
-    } );
-    $self->templatePacked($packed);
+    $self->_clear_templatePacked;
 }
 property isEditable => (
              noFormPost      => 1,
@@ -78,9 +72,21 @@ property namespace => (
          );
 property templatePacked => (
              fieldType       => 'hidden',
-             default         => undef,
              noFormPost      => 1,
+             lazy            => 1,
+             clearer         => '_clear_templatePacked',
+             builder         => '_build_templatePacked',
          );
+sub _build_templatePacked {
+    my $self = shift;
+    my $template = $self->template;
+    HTML::Packer::minify( \$template, {
+        remove_comments     => 1,
+        do_javascript       => 'shrink',
+        do_stylesheet       => 'minify',
+    } );
+}
+
 property usePacked => (
              fieldType       => 'yesNo',
              default         => 0,