Mercurial > pub > Impl
view Lib/IMPL/Test/FailException.pm @ 153:3765adf1803f
minor fixes
author | wizard |
---|---|
date | Mon, 27 Sep 2010 19:15:34 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line source
package IMPL::Test::FailException; use strict; use warnings; use base 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;