-2

这是当前的方法：

sub new {
    my ($package, $message) = (shift, shift);
    my %params = @_;
    return bless { message => $message, %params }, $package;
}

此方法基本上返回一个错误字符串，但我想对其进行修改，以便它也能够采用我的新错误结构并从错误哈希中返回字符串。我无法理解如何使用祝福。%params 接受运行时参数，但我认为现在可以忽略它们。

这是错误结构：

 # this constant is an example of an error library (just included 1 error for example)
    use constant {

        CABLING_ERROR => {
        errorCode => 561,
        message => "Cabling incorrect to device in server A4r, contact DCT ",
        tt => { template => 'cable'},
        fatal => 1,
        link =>'http://www.error-fix.com/cabling
        },
};

我刚开始写一些代码来启动，这是一个糟糕的尝试，但这就是我开始修改 new() 方法的方式：

sub new {
    my ($package, $message) = (shift, shift);
    # defining new error hash
    my $hash($errorCode, $message, $tt, $fatal, $link) = (shift, shift, shift, shift);
    my %params = @_;

    if(exists $hash->{errorCode}) {
    return bless { errorCode => $errorCode, message => $message, tt => $tt, fatal => $fatal, link => $link}, %params;
}   
    else {
        return bless { message => $message, %params }, $package;
}
}

我对 bless 的理解是它使哈希引用成为对象。错误保存在常量列表中。这是如何执行的示例：

if(!device_model) {
    die  ARC::Builder::Error->new(CABLING_ERROR);

}

更新：我一直在尝试对您的解决方案 @simbabque 进行单元测试，但我不断得到一个空字符串作为返回值，而不是错误消息字符串。也许这是我的测试，它没有正确设置？下面是我创建的测试示例：

my $error = CABLING_ERROR;

my $exp_out_A = ($error->{message});

my $error_in = new($error);

diag($error_in);

is($error_in, $exp_out_A, 'Correct message output');
4

1 回答 1

2

你真正想要的是你的构造函数来区分它是用消息字符串调用的，还是用包含消息字符串的已知形式的哈希调用的。基本上你想强制消息属性。

sub new {
  my ($package, $thing) = (shift, shift);
  my %params = @_;

  if (ref $thing eq 'HASH') {
    return bless { message => $thing->{message}, %params }, $package;
  }

  return bless { message => $thing, %params }, $package;
}

而已。只需检查ref您获得的参数。如果它是一个哈希引用，它将是'HASH'. 如果它是一个简单的字符串，它将是undef.

如果您想从哈希引用中更自动地构建%params，看起来像这样。

return bless { message => $thing->{message}, foo => $thing->{foo}, %params }, $package;
于 2016-03-23T19:35:14.377 回答