Mercurial > pub > Impl

comparison Lib/IMPL/Exception.pm @ 63:76b878ad6596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added serialization support for the IMPL::Object::List More intelligent Exception message Fixed encoding support in the actions Improoved tests Minor fixes
author wizard
date Mon, 15 Mar 2010 02:38:09 +0300
parents 16ada169ca75
children 79bf75223afe
comparison
equal deleted inserted replaced
62:c64bd1bf727d 63:76b878ad6596
79 $this->toString(); 79 $this->toString();
80 } 80 }
81 81
82 sub toString { 82 sub toString {
83 my ($this,$notrace) = @_; 83 my ($this,$notrace) = @_;
84 $this->Message . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack); 84 ($this->Message || ref $this) . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack);
85 } 85 }
86 86
87 package IMPL::InvalidOperationException; 87 package IMPL::InvalidOperationException;
88 our @ISA = qw(IMPL::Exception); 88 our @ISA = qw(IMPL::Exception);
89 __PACKAGE__->PassThroughArgs; 89 __PACKAGE__->PassThroughArgs;