Updated Catalyst::Request and Catalyst::Response to have sensible defaults for attributes

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Stats.pm

diff --git a/lib/Catalyst/Stats.pm b/lib/Catalyst/Stats.pm
index 5fadca6..daa5a0e 100644 (file)
--- a/lib/Catalyst/Stats.pm
+++ b/lib/Catalyst/Stats.pm
@@ -118,7 +118,10 @@ sub _get_uid {
     $visitor->searchForUID($uid);
     $self->tree->accept($visitor);
     return $visitor->getResult;
-}
+} 
+
+no Moose;
+__PACKAGE__->meta->make_immutable();
 
 1;
 
@@ -168,7 +171,7 @@ be like this:
     $c->stats->profile("completed second part of critical bit");
     # more code
     ...
-    $c->stats->profile(end => "mysub");
+    $c->stats->profile(end => "mysub"); 
   }
 
 Supposing mysub was called from the action "process" inside a Catalyst
@@ -195,7 +198,7 @@ part 0.111s.
 
 =head2 new
 
-Constructor.
+Constructor. 
 
     $stats = Catalyst::Stats->new;
 
@@ -214,7 +217,7 @@ Enable or disable stats collection.  By default, stats are enabled after object
 
 Marks a profiling point.  These can appear in pairs, to time the block of code
 between the begin/end pairs, or by themselves, in which case the time of
-execution to the previous profiling point will be reported.
+execution to the previous profiling point will be reported.  
 
 The argument may be either a single comment string or a list of name-value
 pairs.  Thus the following are equivalent: