File Coverage

blib/lib/Perl6/Slurp/Interpret.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	22	100.0

package Perl6::Slurp::Interpret;
our $VERSION = '0.15';
use 5.008008;

package main;   # main so that the function evalues in the caller's name space.
# use strict ;  # strict is disabled to allow global variables
use warnings;
use Perl6::Slurp;
use Inline::Files;

require Exporter;
# use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Perl6::Slurp::Interpret ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw( eval_slurp quote_slurp) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw( eval_slurp quote_slurp );




# Preloaded methods go here.
sub eval_slurp {

    # use Perl6::Say;

    return(
       eval(
           quote_slurp( @_ )
           )
    );

}


sub quote_slurp {

    my $slurp = &slurp( @_ );
    $slurp =~ s/\\/\\/g;

    return( '"' .  $slurp  . '"' );

}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__