13、Perl 6 错误处理全解析

Perl 6 错误处理全解析

1. 错误概念理解

错误往往是开发者与计算机，或者用户与计算机之间的误解。在编程里，错误是一种沟通方式，有多种处理途径。多数问题源于程序与用户的交互，Perl 6 提供了丰富的处理手段。

2. 命令行参数处理

首先定义一个名为 Deck 的模块：

unit class Deck;
has @.cards = 1..10 X~ <♠ ♦ ♣ ♥>;
method !_shuffle {
    @!cards = @!cards.pick: *;
}
submethod TWEAK {
    self!_shuffle;
}
method draw ( UInt $how-many = 1 --> Slip ) {
     if @!cards {
        self!_shuffle;
        my @draw = gather {
            for ^$how-many {
                take @!cards.pop
            }
        }
        return @draw.Slip;
    } else {
        return [].Slip;
    }
}

这里引入了 submethod TWEAK 概念，它在对象构建完成但返回给用户之前被调用，用于洗牌操作。以下是使用该模块的示例：