log
graph
tags
bookmarks
branches
changeset
browse
file
latest
diff
comparison
annotate
file log
raw
help
Mercurial
>
pub
>
Impl
annotate Lib/IMPL/Test/FailException.pm @ 266:
89179bb8c388
Find changesets by keywords (author, files, the commit message), revision number or hash, or
revset expression
.
*corrected TTView to handle plain (and undefined) values *added URL generating methods to Application::Action *fixed the compare validatior for schemas
author
cin
date
Mon, 14 Jan 2013 03:10:06 +0400 (2013-01-13)
parents
4267a2ac3d46
children
Ignore whitespace changes -
Everywhere:
Within whitespace:
At end of lines:
rev
line source
49
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
1
package IMPL::Test::FailException;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
2
use strict;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
3
use warnings;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
4
166
4267a2ac3d46
Added Class::Template,
wizard
parents:
49
diff
changeset
+
−
5
use parent qw(IMPL::Exception);
49
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
6
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
7
__PACKAGE__->PassThroughArgs;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
8
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
9
sub toString {
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
10
my $this = shift;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
11
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
12
$this->Message . join("\n",'',map IMPL::Exception::indent($_,1), @{$this->Args} );
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
13
}
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
14
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
15
sub save {
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
16
my ($this,$ctx) = @_;
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
17
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
18
$ctx->AddVar(Message => $this->Message);
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
19
$ctx->AddVar(Args => $this->Args) if @{$this->Args};
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
20
}
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
21
16ada169ca75
migrating to the Eclipse IDE
wizard@linux-odin.local
parents:
0
diff
changeset
+
−
22
1;