Mercurial > pub > Impl
view Lib/IMPL/Test/FailException.pm @ 216:e9fd7ff3f54c
sync
author | sergey |
---|---|
date | Thu, 09 Aug 2012 17:24:07 +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;