Skip to content
This repository
tree: 9e5350d8b5
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 27 lines (24 sloc) 0.497 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
eval(q:to/PERL5/,:lang<perl5>);
    print "Hel"."lo ";
    PERL5
eval(q:to/PERL5/,:lang<perl5>);
    print "World\n";
    PERL5

eval(q:to/PERL5/,:lang<perl5>);
use strict;
use warnings;
package Foo;
sub baz {
    my ($self,$arg) = @_;
    print "Just another $arg\n";
    return 44;
}
sub new {
    bless {},"Foo";
}
PERL5
my $foo = eval(:lang<perl5>,'Foo->new');
say $foo.baz("Perl hacker");
say eval(:lang<perl5>,"125");
say eval(:lang<perl5>,"13.5");
say eval(:lang<perl5>,"'Hello there'");

Something went wrong with that request. Please try again.