Mercurial > pub > Impl
diff Lib/IMPL/Exception.pm @ 232:5c82eec23bb6
Fixed degradations due refactoring
author | sergey |
---|---|
date | Tue, 09 Oct 2012 20:12:47 +0400 |
parents | 6d8092d8ce1b |
children | 4ddb27ff4a0b |
line wrap: on
line diff
--- a/Lib/IMPL/Exception.pm Tue Oct 09 03:09:41 2012 +0400 +++ b/Lib/IMPL/Exception.pm Tue Oct 09 20:12:47 2012 +0400 @@ -11,6 +11,7 @@ } use parent qw(IMPL::Object::Abstract Error Class::Accessor); +require IMPL::Class::Property::Accessor; BEGIN { __PACKAGE__->mk_accessors( qw(Message Args CallStack Source) ); @@ -84,6 +85,10 @@ ($this->Message || ref $this) . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack); } +sub _PropertyImplementor { + 'IMPL::Class::Property::Accessor' +} + package IMPL::InvalidOperationException; our @ISA = qw(IMPL::Exception); __PACKAGE__->PassThroughArgs;