Mercurial > pub > Impl
view Lib/IMPL/Test/FailException.pm @ 276:8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
author | sergey |
---|---|
date | Thu, 31 Jan 2013 17:37: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;