The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

GUGOD / PerlX-MethodCallWithBlock-0.05 / t / enum.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 FindBin;
use lib "$FindBin::Bin/lib";
use 5.010;
use PerlX::MethodCallWithBlock;
use MyEnum;
use Test::More;
my $x = MyEnum->new(0..10);
$x->each {
    pass "iteration $_";
};
done_testing;