diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-08-19 09:31:05 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-08-19 09:31:20 -0500 |
commit | e1b5c02916ed9b248f9afcc4260b231e6e03202a (patch) | |
tree | 8365b736be86219d36b0bb29c772312d882ada0d /t | |
parent | 5d58a24acf4361c2dd5ec1ed29d4cab4853d0adb (diff) | |
download | fun-e1b5c02916ed9b248f9afcc4260b231e6e03202a.tar.gz fun-e1b5c02916ed9b248f9afcc4260b231e6e03202a.zip |
allow "fun Foo::foo ..."
Diffstat (limited to 't')
-rw-r--r-- | t/package.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/package.t b/t/package.t new file mode 100644 index 0000000..2e672d1 --- /dev/null +++ b/t/package.t @@ -0,0 +1,16 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Fun; + +fun Foo::foo ($x, $y) { + $x + $y; +} + +ok(!main->can('foo')); +ok(Foo->can('foo')); +is(Foo::foo(1, 2), 3); + +done_testing; |