--- a/lib/IMPL/lang.pm	Mon Sep 21 00:53:10 2015 +0300
+++ b/lib/IMPL/lang.pm	Mon Sep 21 19:54:10 2015 +0300
@@ -17,6 +17,8 @@
           &clone
           &isclass
           &typeof
+          &ishash
+          &isarray
           )
     ],
 
@@ -65,7 +67,7 @@
 
 use IMPL::Const qw(:all);
 
-sub is($$) {
+sub is {
     carp "A typename can't be undefined" unless $_[1];
     blessed($_[0]) and $_[0]->isa( $_[1] );
 }
@@ -77,8 +79,15 @@
 }
 
 sub typeof(*) {
-	local $@;
-    eval { $_[0]->_typeof } || blessed($_[0]) || ref($_[0]);
+    blessed($_[0]);
+}
+
+sub isarray {
+	not blessed($_[0]) and ref $_[0] eq 'ARRAY';
+}
+
+sub ishash {
+	not blessed($_[0]) and ref $_[0] eq 'HASH';
 }
 
 sub public($) {