The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

class TestCase::Precompile : precompile {
version "2.005";
use TestCase::Resource::Mylib1;
use TestCase::Resource::Mylib2;
static method sum : int ($num1 : int, $num2 : int) {
return $num1 + $num2;
}
static method anon_method_sum : int () {
my $num1 = &anon_method0();
my $num2 = &anon_method1();
return $num1 + $num2;
}
static method anon_method0 : int () {
my $cb = method : int () { return 2; };
return $cb->();
}
static method anon_method1 : int () {
my $cb = method : int () { return 5; };
return $cb->();
}
}