Mercurial > pub > Impl

annotate _test/temp.pl @ 372:e12c14177848

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring web resources model, implementing new simplified model
author cin
date Tue, 24 Dec 2013 20:01:55 +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