From 818958abaf7ad4f86101f88e74caf688b23be9a3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 10 Jul 2013 14:17:52 -0400
Subject: initial (non-working) implementation

---
 lib/Exporter/Lexical.pm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

(limited to 'lib')

diff --git a/lib/Exporter/Lexical.pm b/lib/Exporter/Lexical.pm
index e69de29..d7f0ee3 100644
--- a/lib/Exporter/Lexical.pm
+++ b/lib/Exporter/Lexical.pm
@@ -0,0 +1,40 @@
+package Exporter::Lexical;
+use strict;
+use warnings;
+# ABSTRACT: exporter for lexical subs
+
+use XSLoader;
+XSLoader::load(
+    __PACKAGE__,
+    # we need to be careful not to touch $VERSION at compile time, otherwise
+    # DynaLoader will assume it's set and check against it, which will cause
+    # fail when being run in the checkout without dzil having set the actual
+    # $VERSION
+    exists $Exporter::Lexical::{VERSION}
+        ? ${ $Exporter::Lexical::{VERSION} } : (),
+);
+
+sub import {
+    my $package = shift;
+    my $caller = caller;
+
+    my $import = sub {
+        my $caller_stash = do {
+            no strict 'refs';
+            \%{ $caller . '::' };
+        };
+        my @exports = @{ $caller_stash->{EXPORT} };
+        my %exports = map { $_ => \&{ $caller_stash->{$_} } } @exports;
+
+        for my $export (keys %exports) {
+            lexical_import($export, $exports{$export});
+        }
+    };
+
+    {
+        no strict 'refs';
+        *{ $caller . '::import' } = $import;
+    }
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf