От опечаток прекрасно спасают константы.<br><br>use Try::Tiny::MyErrors qw(:ALL);<br>
<br>try {<br>
# ...<br>
} catch {<br>
  if($_ eq LOGIN_FAILED) {<br>
    # ...<br>
  } elsif($_ eq SOME_OTHER_ERROR) {<br>
    # ...<br>
  } else {<br>
    die $_;<br>
  }<br>
};<br><br>А в Try::Tiny::MyErrors<br><br>....<br>my %const;<br>BEGIN {<br>    %const = map { $_, $_ } qw(<br>      LOGIN_FAILED<br>      SOME_OTHER_ERROR<br>    );<br>}<br>use constant \%const;<br>....<br><br>Ну или<br>use constant { LOGIN_FAILED => "Login or password incorect",<br>
      SOME_OTHER_ERROR => "bla-bla-bla",<br>};<br><div id="webdeveloper-element-information"><h2>Информация об элементе</h2><dl><dt>Атрибуты</dt><dd id="webdeveloper-element-information-attributes"></dd></dl>
<dl><dt>Позиция</dt><dd id="webdeveloper-element-information-position"></dd></dl><dl><dt>Другие</dt><dd id="webdeveloper-element-information-other"></dd></dl><dl><dt>Родительские элементы</dt><dd id="webdeveloper-element-information-ancestors">
</dd></dl><dl><dt>Дочерние элементы</dt><dd id="webdeveloper-element-information-children"></dd></dl></div>