Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (20 sloc) 397 Bytes
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";
}
sub new {
bless {},"Foo";
}
PERL5
my $foo = eval(:lang<perl5>,'Foo->new');
$foo.baz(eval(:lang<perl5>,'"Perl hacker"'));
Something went wrong with that request. Please try again.