File Coverage

blib/lib/Sub/Exporter/Lexical.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	1	2	50.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	1	1	100.0
total	36	40	90.0

use strict;
use warnings;
package Sub::Exporter::Lexical;
{
  $Sub::Exporter::Lexical::VERSION = '0.092292';
}
# ABSTRACT: to export lexically-available subs with Sub::Exporter

use v5.12.0;

use Lexical::Sub ();

use Sub::Exporter -setup => {
  exports => [ qw(lexical_installer) ],
};


sub lexical_installer {
  sub {
    my ($arg, $to_export) = @_;

    my $into = $arg->{into};

    my @names =
      map { $to_export->[ $_ ] }
      grep { not($_ % 2) and ! ref $to_export->[$_] } (0 .. $#$to_export);

    my @pairs = @$to_export;
    while (my ($name, $code) = splice @pairs, 0, 2) {
      if (ref $name) {
        # We could implement this easily, but haven't. -- rjbs, 2013-11-24
        Carp::cluck("can't import to variable with lexical installer (yet)");
        next;
      }
      Lexical::Sub->import($name, $code);
    }
  };
}

1;

__END__