Mercurial > pub > Impl
diff Lib/IMPL/lang.pm @ 164:eb3e9861a761
SQL traits in progress
author | wizard |
---|---|
date | Mon, 28 Mar 2011 01:36:24 +0400 |
parents | |
children | 76515373dac0 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Lib/IMPL/lang.pm Mon Mar 28 01:36:24 2011 +0400 @@ -0,0 +1,15 @@ +package IMPL::lang; +use strict; +use warnings; + +use IMPL::base qw(Exporter); +use IMPL::_core::version; + + +our @EXPORT = qw(&is); + +sub is($$) { + eval { $_[0]->isa($_[1]) } +} + +1; \ No newline at end of file