File Coverage

blib/lib/PerlX/Define.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	6	8	75.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	50	53	94.3

use v5.12;
use strict;
use warnings FATAL => 'all';
no warnings qw(void once uninitialized numeric);

package PerlX::Define;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.101';

use B ();
use Keyword::Simple ();
use namespace::clean ();

sub import
{
	shift;

	my ($caller, $file, $line) = caller;

	if (@_)
	{
		my ($name, $value) = @_;

		local $@;
		ref($value)
			? eval qq[
				package $caller;\n#line $line ${\ B::perlstring($file) }
				sub $name () { \$value };
				1;
			]
			: eval qq[
				package $caller;\n#line $line ${\ B::perlstring($file) }
				sub $name () { ${\ B::perlstring($value) } };
				1;
			];

		$@ ? die($@) : return;
	}

	Keyword::Simple::define('define' => sub
	{
		my $line = shift;
		my ($whitespace1, $name, $whitespace2, $equals) =
			( $$line =~ m{\A([\n\s]*)(\w+)([\n\s]*)(=\>?)}s )
			or Carp::croak("Syntax error near 'define'");
		my $len = length($whitespace1. $name. $whitespace2. $equals);
		substr($$line, 0, $len) = "; use PerlX::Define $name => ";
	});

	'namespace::clean'->import(
		-cleanee => $caller,
		'define',
	);
}

1;

__END__