Re: [Moscow.pm] А как вы бросаете исключения?

Tue, 21 Aug 2012 03:34:34 -0700 

От опечаток прекрасно спасают константы.

use Try::Tiny::MyErrors qw(:ALL);

try {
# ...
} catch {
  if($_ eq LOGIN_FAILED) {
    # ...
  } elsif($_ eq SOME_OTHER_ERROR) {
    # ...
  } else {
    die $_;
  }
};

А в Try::Tiny::MyErrors

....
my %const;
BEGIN {
    %const = map { $_, $_ } qw(
      LOGIN_FAILED
      SOME_OTHER_ERROR
    );
}
use constant \%const;
....

Ну или
use constant { LOGIN_FAILED => "Login or password incorect",
      SOME_OTHER_ERROR => "bla-bla-bla",
};
Информация об элементеАтрибутыПозицияДругиеРодительские элементыДочерние
элементы

-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить