diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 17:11:20 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 17:11:20 -0400 |
commit | 5c9420df616f091d317fda0c0fce38359f736da6 (patch) | |
tree | 438df66d6f96b66a79c35d6618416cecb7023748 /t | |
parent | 51601b722cbd7c582f5ed2e163ed12b3d5cfb527 (diff) | |
download | exporter-lexical-5c9420df616f091d317fda0c0fce38359f736da6.tar.gz exporter-lexical-5c9420df616f091d317fda0c0fce38359f736da6.zip |
allow just building the exporter without installing it
Diffstat (limited to 't')
-rw-r--r-- | t/build_exporter.t | 17 | ||||
-rw-r--r-- | t/lib/Bar.pm | 20 |
2 files changed, 37 insertions, 0 deletions
diff --git a/t/build_exporter.t b/t/build_exporter.t new file mode 100644 index 0000000..621e2aa --- /dev/null +++ b/t/build_exporter.t @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use lib 't/lib'; + +sub bar { 'bar' } + +is(bar(), "bar"); +{ + use Bar; + is(bar(), "BAR"); + is($Bar::imported, 1); +} +is(bar(), "bar"); + +done_testing; diff --git a/t/lib/Bar.pm b/t/lib/Bar.pm new file mode 100644 index 0000000..69aadf9 --- /dev/null +++ b/t/lib/Bar.pm @@ -0,0 +1,20 @@ +package Bar; +use strict; +use warnings; + +use Exporter::Lexical (); + +our $imported; + +my $import = Exporter::Lexical::build_exporter({ + -exports => [ qw(bar) ], +}); + +sub import { + $imported = 1; + goto $import; +} + +sub bar { "BAR" } + +1; |