Changeset 15116 for lang/perl/App-MadEye

Timestamp:

07/03/08 19:51:23 (5 months ago)

Author:

tokuhirom

Message:

check arguments.

Files:

• lang/perl/App-MadEye/trunk/t/100_bugs/002_results.t (modified) (2 diffs)

lang/perl/App-MadEye/trunk/t/100_bugs/002_results.t

@@ -7 +7 @@
 {
     package Notify;
-    sub bar { $count++ }
+    use Params::Validate ':all';
+    sub bar {
+        my ($self, $c, $args) = validate_pos(@_ => OBJECT, OBJECT, OBJECT);
+        $count++;
+    }
     sub config { +{ } }
 }
@@ -19 +23 @@
 
 for (1..4) {
-    $c->register_hook('notify' => { plugin => 'Notify', method => 'bar'});
+    $c->register_hook('notify' => { plugin => bless({}, 'Notify'), method => 'bar'});
 }
 for (1..6) {