Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Use 'Perl5' as consistent name for EVAL and use :from
Fixes GH #28

Thanks to hoelzro++ for reporting!
  • Loading branch information
niner committed Jul 18, 2015
1 parent e314d53 commit 077b844
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions README.md
Expand Up @@ -113,7 +113,7 @@ Perl6's EVAL function supports multiple languages, just like the "use"
statement. It allows for execution of arbitrary Perl 5 code given as string:

```
EVAL "print 'Hello from Perl 5';", :lang<perl5>;
EVAL "print 'Hello from Perl 5';", :lang<Perl5>;
```

The low level interface to this functionality is Inline::Perl5's run($str)
Expand Down Expand Up @@ -255,7 +255,7 @@ can be caught like any other Perl 6 exceptions:

```
{
EVAL "die 'a Perl 5 exception!';", :lang<perl5>;
EVAL "die 'a Perl 5 exception!';", :lang<Perl5>;
CATCH {
when X::AdHoc {
say "Caught a Perl 5 exception: $_";
Expand All @@ -270,7 +270,7 @@ Perl 6's exceptions (die) are translated to Perl 5 exceptions and
can be caught like any other Perl 5 exceptions:

```
EVAL q:to:PERL5, :lang<perl5>;
EVAL q:to:PERL5, :lang<Perl5>;
use 5.10.0;
eval {
v6::run('die("test");');
Expand Down
2 changes: 1 addition & 1 deletion t/from.t
Expand Up @@ -3,7 +3,7 @@
use v6;
use Test;
use Inline::Perl5;
BEGIN EVAL 'use lib qw(t/lib);', :lang<perl5>;
BEGIN EVAL 'use lib qw(t/lib);', :lang<Perl5>;

use P5Import:from<Perl5> <tests 2>;

Expand Down
4 changes: 2 additions & 2 deletions t/inherit.t
Expand Up @@ -6,8 +6,8 @@ use Test;
BEGIN {
plan 10; # adjust the skip as well!

EVAL 'use lib qw(t/lib);', :lang<perl5>;
unless EVAL 'eval { require Moose; 1};', :lang<perl5> {
EVAL 'use lib qw(t/lib);', :lang<Perl5>;
unless EVAL 'eval { require Moose; 1};', :lang<Perl5> {
skip('Perl 5 Moose module not available', 10);
exit;
}
Expand Down

0 comments on commit 077b844

Please sign in to comment.