From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

GUGOD / PerlX-MethodCallWithBlock-0.05 / t / oneline-block.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use lib 't/lib';
use PerlX::MethodCallWithBlock;
use Test::More;
use Echo;
use MyEnum;
Echo->say { pass "bar" };
Echo->say{pass};
my $x = MyEnum->new(0..10);
$x->each { pass "iteration $_"; };
done_testing;