[svn:p5ee] r3661 - p5ee/trunk/App-Widget-JSApp/lib/App/Widget

Author: spadkins
Date: Sat Mar 11 07:39:46 2006
New Revision: 3661

Modified:
   p5ee/trunk/App-Widget-JSApp/lib/App/Widget/JSApp.pm

Log:
add tracing

Modified: p5ee/trunk/App-Widget-JSApp/lib/App/Widget/JSApp.pm
==============================================================================
--- p5ee/trunk/App-Widget-JSApp/lib/App/Widget/JSApp.pm	(original)
+++ p5ee/trunk/App-Widget-JSApp/lib/App/Widget/JSApp.pm	Sat Mar 11 07:39:46 2006
@@ -24,6 +24,7 @@
 =cut
 
 sub html {
+    &App::sub_entry if ($App::trace);
     my $self = shift;
     my $name = $self->{name};
     my $context = $self->{context};
@@ -103,6 +104,7 @@
 </script>
 EOF
 
+    &App::sub_exit($html) if ($App::trace);
     return($html);
 }
 
@@ -115,6 +117,7 @@
 }
 
 sub init_jsapp {
+    &App::sub_entry if ($App::trace);
     my ($self) = @_;
     my $context = $self->{context};
     my $response = $context->response();
@@ -125,9 +128,11 @@
         $response->include("javascript", $js_conf);
         $response->include("javascript", $js);
     }
+    &App::sub_exit() if ($App::trace);
 }
 
 sub javascript_conf {
+    &App::sub_entry if ($App::trace);
     my ($self) = @_;
     my $context = $self->{context};
     my $options = $context->options();
@@ -144,6 +149,7 @@
 </script>
 EOF
     }
+    &App::sub_exit($js) if ($App::trace);
     return($js);
 }