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;
原文：http://www.cnblogs.com/perl6/p/7447431.html