Mercurial > pub > Impl
view Lib/IMPL/Test/FailException.pm @ 263:0f59b2de72af
*fixed IMPL::DOM::Schema circular module references
*modified IMPL::Object::Singleton, added auto-activation
*code cleanups, docs
author | sergey |
---|---|
date | Wed, 09 Jan 2013 05:17:44 +0400 |
parents | 4267a2ac3d46 |
children |
line wrap: on
line source
package IMPL::Test::FailException; use strict; use warnings; use parent qw(IMPL::Exception); __PACKAGE__->PassThroughArgs; sub toString { my $this = shift; $this->Message . join("\n",'',map IMPL::Exception::indent($_,1), @{$this->Args} ); } sub save { my ($this,$ctx) = @_; $ctx->AddVar(Message => $this->Message); $ctx->AddVar(Args => $this->Args) if @{$this->Args}; } 1;