Browse files

Merge pull request #65 from ktat/plugin_init_option

add plugin file for test.
  • Loading branch information...
2 parents 00a9e21 + 429cfdc commit 13fbed9d227f6efce0fcd3dc6296fdf1ead74f0a @nekokak committed Apr 3, 2012
Showing with 27 additions and 0 deletions.
  1. +27 −0 t/lib/Teng/Plugin/ArgsTest.pm
View
27 t/lib/Teng/Plugin/ArgsTest.pm
@@ -0,0 +1,27 @@
+package
+ Teng::Plugin::ArgsTest;
+
+use strict;
+use warnings;
+
+our @EXPORT = qw/args_class args_opt/;
+my %args;
+
+sub init {
+ my ($pkg, $class, $opt) = @_;
+ $args{class} = $class;
+ $args{opt} = $opt;
+}
+
+sub args_class {
+ my ($self) = @_;
+ return $args{class};
+}
+
+sub args_opt {
+ my ($self) = @_;
+ return $args{opt};
+}
+
+1;
+

0 comments on commit 13fbed9

Please sign in to comment.