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