The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678910111213141516 package PNI::Node::Twice;use PNI::Mo;extends 'PNI::Node';sub BUILD { my $self = shift; $self->in->data(0); $self->out->data(0);}sub task { my $self = shift; $self->out->data( $self->in->data * 2 );}1
package
PNI::Node::Twice;
use
PNI::Mo;
extends
'PNI::Node'
;
sub
BUILD {
my
$self
=
shift
->in->data(0);
->out->data(0);
}
task {
->out->data(
->in->data * 2 );
1