Changeset 13506

Timestamp:

06/08/08 21:50:17 (5 years ago)

Author:

tokuhirom

Message:

validate strictly

Files:

• lang/perl/Ulgori/trunk/lib/Ulgori/Web/Template/Pages.pm (modified) (1 diff)

lang/perl/Ulgori/trunk/lib/Ulgori/Web/Template/Pages.pm

@@ -8 +8 @@
 
 template 'pager' => sub {
-    my ( $self, $pager, $req ) = @_;
+    my ( $self, $pager, $req ) = validate_pos(@_, OBJECT, { isa => 'Data::Page'}, { isa => 'HTTP::Engine::Request' });
 
     p {