Mercurial > pub > Impl

comparison lib/IMPL/Test/FailException.pm @ 407:c6e90e02dd17 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
comparison
equal deleted inserted replaced
406:f23fcb19d3c1 407:c6e90e02dd17
1 package IMPL::Test::FailException;
2 use strict;
3 use warnings;
4
5 use parent qw(IMPL::Exception);
6
7 __PACKAGE__->PassThroughArgs;
8
9 sub toString {
10 my $this = shift;
11
12 $this->Message . join("\n",'',map IMPL::Exception::indent($_,1), @{$this->Args} );
13 }
14
15 sub save {
16 my ($this,$ctx) = @_;
17
18 $ctx->AddVar(Message => $this->Message);
19 $ctx->AddVar(Args => $this->Args) if @{$this->Args};
20 }
21
22 1;