Mercurial > pub > Impl

annotate _test/temp.pl @ 378:2eed076cb944

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rewritten IMPL::Resources::Strings + tests
author cin
date Wed, 15 Jan 2014 17:20:54 +0400
parents d5c8b955bf8d
children ced5937ff21a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
1 #!/usr/bin/perl
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
2 use strict;
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
3
371
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
4 {
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
5 local $@;
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
6 eval {
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
7
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
8 die "oops";
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
9 };
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
10 }
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
11
371
d5c8b955bf8d refactoring
cin
parents: 353
diff changeset
12 print $@;
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
13