File Coverage

blib/lib/App/REPL.pm

Criterion	Covered	Total	%
statement	18	29	62.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	12	50.0
pod	6	6	100.0
total	30	54	55.5

package App::REPL;
use warnings;
use strict;
use Data::Dumper;
use PadWalker 'peek_my';
use Term::ANSIColor ':constants';
$Term::ANSIColor::AUTORESET = 1;
require Exporter;
use vars qw(@ISA @EXPORT $VERSION);

$VERSION = '0.012';
@ISA = qw(Exporter);
@EXPORT = qw(x p env ret rdebug help);

# ----------------------------------------------------------------------
sub x { print Dumper @_ }
sub p { print @_, "\n" }
sub env { peek_my(1) }
sub ret { $App::REPL::ret }
sub rdebug {
  if (@_) { $App::REPL::DEBUG = shift } else { $App::REPL::DEBUG++ }
  print YELLOW "Debug level set to $App::REPL::DEBUG\n"
}
sub help {
  if (@_ and shift eq 'commands') {
    system perldoc => 'App::REPL'
  }
  else {
    print YELLOW <
Auto-imported commands (from App::REPL): x p env ret rdebug help

See also: C
EOH
  }
}


1;

__END__