annotate _test/temp.pl @ 390:de1f875e8875

added reverse matching lookup to TypeKeyedCollection (find closest descendant)
author cin
date Wed, 12 Feb 2014 18:02:03 +0400
parents ced5937ff21a
children 212cc86e470b
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;
381
ced5937ff21a Custom getters/setters support method names in theirs definitions
cin
parents: 371
diff changeset
3 use Scalar::Util qw(looks_like_number);
ced5937ff21a Custom getters/setters support method names in theirs definitions
cin
parents: 371
diff changeset
4 print looks_like_number(0);
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
5