Changeset 14069 for lang/perl/Sledge-View

Timestamp:

06/15/08 23:01:05 (5 years ago)

Author:

tokuhirom

Message:

r3502@gp (orig r152): tokuhiro | 2006-10-29 20:51:16 +0900

r4580@toco: tokuhiro | 2006-10-29 20:51:09 +0900
avoid to warnings.
oops. added no strict refs.

Files:

• lang/perl/Sledge-View/trunk/lib/Sledge/Plugin/View.pm (modified) (2 diffs)

lang/perl/Sledge-View/trunk/lib/Sledge/Plugin/View.pm

@@ -17 +17 @@
     $pkg->mk_accessors(qw/dont_print_content/);
 
+    no strict 'refs'; ## no critic
     *{"$pkg\::output_content"} = sub {
         my $self = shift;
@@ -52 +53 @@
 
     $pkg->mk_accessors(qw/response/);
-    *{"$pkg\::res"} = *{"$pkg\::response"}; # shortcut
+    {
+        no warnings 'once';
+        *{"$pkg\::res"} = *{"$pkg\::response"}; # shortcut
+    }
 
     $pkg->add_trigger(