perl – Carp/Croak,Cluck/Confess和verbose选项有什么区别？

我没有使用鲤鱼这一切，因为我一般滚动我自己。然而，在保持与核心模块的精神，我现在使用它。然而，它似乎只是比警告/死亡更好。

此外，什么是cluck / confess / verbose甚至做什么？我运行这个短脚本来获得输出看起来像(因为Carp文档不这样做)。它看起来完全相同的任何运行(除了随机字符串)。

#!/usr/bin/perl

  package Warning;

  sub warning {
    warn "warn";
  }

  package CWarn;
  use Carp qw(carp cluck);

  sub cwarn {
    int(rand(2)) ? carp "carp" : cluck "cluck";
  }

  package Fatal;
  use Carp qw(confess croak);

  sub fatal {
    int(rand(2)) ? confess "confess" : croak "croak";
  }

  package Loop;

  use v5.10;

  sub loop {
    say '=' x 80;
    Warning::warning();
    CWarn::cwarn();
    loop() unless ($c++ > 10);
    Fatal::fatal();
  }

  package main;

  Warning::warning();
  CWarn::cwarn();
  Loop::loop();

更新：更新了包名称的脚本，它的确有所作为。然而，Carp仍然在记录信息方面看起来非常基本，并且它不支持Web输出。我想我会看看其他的像CGI :: Carp，Log :: Output和Log :: Log4Perl。

Fatal  BACktrace
carp       N        N
cluck      N        Y
croak      Y        N
confess    Y        Y