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

imported_ok('gen_event');
my $e = gen_event Ok => (pass => 1, name => 'foo');
my $c = event Ok => {pass => 1, name => 'foo', trace => {frame => [__PACKAGE__, __FILE__, __LINE__ - 1]}};
like($e, $c, "Generated event");
$e = gen_event '+Test2::Event::Ok' => (pass => 1, name => 'foo');
$c = event Ok => {pass => 1, name => 'foo', trace => {frame => [__PACKAGE__, __FILE__, __LINE__ - 1]}};
like($e, $c, "Generated event long-form");
done_testing;