Mercurial > pub > Impl

annotate Lib/IMPL/lang.pm @ 164:eb3e9861a761

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SQL traits in progress
author wizard
date Mon, 28 Mar 2011 01:36:24 +0400
parents
children 76515373dac0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
1 package IMPL::lang;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
2 use strict;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
3 use warnings;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
4
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
5 use IMPL::base qw(Exporter);
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
6 use IMPL::_core::version;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
7
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
8
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
9 our @EXPORT = qw(&is);
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
10
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
11 sub is($$) {
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
12 eval { $_[0]->isa($_[1]) }
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
13 }
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
14
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
15 1;