Supply

Posted 2020-10-04 FireC@t @ Perl6

 

Supplier创建一个Supply

Supply有tap或emit方法。

可以这样理解：

Supplier创建一个工厂

Supply 用tap创建流水线

emit向流水线上传送加工品进行加厂

my $supplier = Supplier.new;
#创建一个工厂

my $supply_1 = $supplier.Supply;
#创建一条流水线

$supply_1.tap(->$food {say ‘Recv the food: ‘~$food});
#流水线上的处理程序

#再创一条流水线
my $supply_2 = $supplier.Supply;
#再创一个流水线上的处理程序
$supply_2.tap(-> $two {say ‘Recv TWO:‘~$two});

#工厂向流水线发商品进行处理
$supplier.emit(‘BANNER‘);
‘DONE‘.say;