Permalink
Fetching contributors…
Cannot retrieve contributors at this time
27 lines (24 sloc) 497 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";
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'");