The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
123456789101112131415161718 #!/usr/bin/env perluse strict;use lib 't/lib';use Test::More;use PerlX::MethodCallWithBlock;use Echo;my $echoer = bless {}, "Echo";# $echoer->say {# pass "echo (no args)";# };$echoer->say(42) { pass "echo 42";};done_testing;
#!/usr/bin/env perl
use
strict;
lib
't/lib'
;
Test::More;
PerlX::MethodCallWithBlock;
Echo;
my
$echoer
=
bless
{},
"Echo"
# $echoer->say {
# pass "echo (no args)";
# };
->
say
(42) {
pass
"echo 42"
};
done_testing;