File Coverage

blib/lib/Project/Easy/Helper/Console.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch	0	4	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	20	20.0

package Project::Easy::Helper;

use Class::Easy;

sub console {

	my @params = @ARGV;
	@params = @_
		if scalar @_;

	my ($package, $libs) = &_script_wrapper(); # Project name and "libs" path

	unless (try_to_use ('Devel::REPL')) {
		die "Devel::REPL required for interactive console";
	}

	my $repl = Devel::REPL->new;
	$repl->load_plugin('LexEnv');
	$repl->load_plugin('History');
	# $repl->load_plugin('MultiLine::PPI');

	$repl->lexical_environment->do(<<'CODEZ');
use Class::Easy;
use IO::Easy;
CODEZ

	$repl->run;

}

1;