Mercurial > pub > Impl

comparison Lib/IMPL/Test/FailException.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 package IMPL::Test::FailException;
2 use strict;
3 use warnings;
4
5 use base 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;