diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-07-19 19:10:14 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-07-19 19:10:14 -0500 |
commit | 636f22f307ff0dc94a2c2ec23d49c872ecddbc02 (patch) | |
tree | dab6dc4bc564c61d6a1ace5727238574cfd5ce2b /t/lib/MyExporter.pm | |
parent | bdd9773b60d3cf2cceea43b4aa1dacd9ed5d492b (diff) | |
download | moosex-exporter-easy-636f22f307ff0dc94a2c2ec23d49c872ecddbc02.tar.gz moosex-exporter-easy-636f22f307ff0dc94a2c2ec23d49c872ecddbc02.zip |
initial implementation
Diffstat (limited to 't/lib/MyExporter.pm')
-rw-r--r-- | t/lib/MyExporter.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/lib/MyExporter.pm b/t/lib/MyExporter.pm new file mode 100644 index 0000000..a29fff0 --- /dev/null +++ b/t/lib/MyExporter.pm @@ -0,0 +1,21 @@ + + +package MyExporter; +use MooseX::Exporter::Easy; +use Test::More; + +with_meta with_prototype => sub (&) { + my ($meta, $code) = @_; + isa_ok($code, 'CODE', 'with_prototype received a coderef'); + $code->(); +}; + +as_is as_is_prototype => sub (&) { + my ($code) = @_; + isa_ok($code, 'CODE', 'as_is_prototype received a coderef'); + $code->(); +}; + +export; + +1; |