--- a/lib/IMPL/lang.pm	Mon Dec 28 15:11:35 2015 +0300
+++ b/lib/IMPL/lang.pm	Sun Jan 29 10:30:20 2017 +0300
@@ -3,7 +3,6 @@
 use warnings;
 
 use parent qw(Exporter);
-use IMPL::_core::version;
 use IMPL::clone qw(clone);
 use Scalar::Util qw(blessed);
 use POSIX;
@@ -19,6 +18,8 @@
           &typeof
           &ishash
           &isarray
+          &isscalar
+          &isglob
           )
     ],
 
@@ -90,6 +91,14 @@
 	not blessed($_[0]) and ref $_[0] eq 'HASH';
 }
 
+sub isscalar {
+	not blessed($_[0]) and ref $_[0] eq 'SCALAR';
+}
+
+sub isglob {
+	not blessed($_[0]) and ref $_[0] eq 'GLOB';
+}
+
 sub public($) {
     my $info = shift;
     $info->{access} = ACCESS_PUBLIC;