Mercurial > pub > Impl

comparison Lib/IMPL/Exception.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents 47dac58691ee
children 6b1dda998839
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
5 'fallback' => 1; 5 'fallback' => 1;
6 use Carp qw(longmess shortmess); 6 use Carp qw(longmess shortmess);
7 use Scalar::Util qw(refaddr); 7 use Scalar::Util qw(refaddr);
8 8
9 BEGIN { 9 BEGIN {
10 require Error; 10 require Error;
11 } 11 }
12 12
13 use parent qw(IMPL::Object::Accessor Error); 13 use parent qw(IMPL::Object::Accessor Error);
14 14
15 BEGIN { 15 BEGIN {
99 package IMPL::KeyNotFoundException; 99 package IMPL::KeyNotFoundException;
100 our @ISA = qw(IMPL::Exception); 100 our @ISA = qw(IMPL::Exception);
101 __PACKAGE__->PassThroughArgs; 101 __PACKAGE__->PassThroughArgs;
102 102
103 our %CTOR = ( 103 our %CTOR = (
104 'IMPL::Exception' => sub { "A specified element isn't found", $_[0] } 104 'IMPL::Exception' => sub { "A specified element isn't found", $_[0] }
105 ); 105 );
106 106
107 package IMPL::NotImplementedException; 107 package IMPL::NotImplementedException;
108 our @ISA = qw(IMPL::Exception); 108 our @ISA = qw(IMPL::Exception);
109 __PACKAGE__->PassThroughArgs; 109 __PACKAGE__->PassThroughArgs;