- Added the String.looks_like_number() method

- Added the following Sys methods: refaddr, reftype, weaken, isweak, unweaken
trizen · Jul 8, 2015 · 33bf066 · 33bf066
1 parent 0322aab
commit 33bf066
Show file tree

Hide file tree

Showing 4 changed files with 84 additions and 0 deletions.
diff --git a/lib/Sidef/Sys/Sys.pm b/lib/Sidef/Sys/Sys.pm
@@ -206,6 +206,36 @@ package Sidef::Sys::Sys {
         CORE::bless $obj, $class;
     }
 
+    sub refaddr {
+        my ($self, $obj) = @_;
+        state $x = require Scalar::Util;
+        Sidef::Types::Number::Number->new(Scalar::Util::refaddr($obj));
+    }
+
+    sub reftype {
+        my ($self, $obj) = @_;
+        state $x = require Scalar::Util;
+        Sidef::Types::String::String->new(Scalar::Util::reftype($obj));
+    }
+
+    sub weaken {
+        my ($self, $obj) = @_;
+        state $x = require Scalar::Util;
+        Sidef::Types::Bool::Bool->new(Scalar::Util::weaken($obj));
+    }
+
+    sub isweak {
+        my ($self, $obj) = @_;
+        state $x = require Scalar::Util;
+        Sidef::Types::Bool::Bool->new(Scalar::Util::isweak($obj));
+    }
+
+    sub unweaken {
+        my ($self, $obj) = @_;
+        state $x = require Scalar::Util;
+        Sidef::Types::Bool::Bool->new(Scalar::Util::unweaken($obj));
+    }
+
     sub copy {
         my ($self, $obj) = @_;
         state $x = require Storable;

diff --git a/lib/Sidef/Sys/Sys.pod b/lib/Sidef/Sys/Sys.pod
@@ -267,6 +267,14 @@ Return the
 
 =cut
 
+=head2 isweak
+
+Sys.isweak() -> I<Obj>
+
+Return the
+
+=cut
+
 =head2 nanosleep
 
 Sys.nanosleep() -> I<Obj>
@@ -354,6 +362,22 @@ Return the
 
 =cut
 
+=head2 refaddr
+
+Sys.refaddr() -> I<Obj>
+
+Return the
+
+=cut
+
+=head2 reftype
+
+Sys.reftype() -> I<Obj>
+
+Return the
+
+=cut
+
 =head2 run
 
 Sys.run() -> I<Obj>
@@ -496,6 +520,14 @@ Return the
 
 =cut
 
+=head2 unweaken
+
+Sys.unweaken() -> I<Obj>
+
+Return the
+
+=cut
+
 =head2 user
 
 Sys.user() -> I<Obj>
@@ -521,3 +553,11 @@ Sys.warn() -> I<Obj>
 Return the
 
 =cut
+
+=head2 weaken
+
+Sys.weaken() -> I<Obj>
+
+Return the
+
+=cut
diff --git a/lib/Sidef/Types/String/String.pm b/lib/Sidef/Types/String/String.pm
@@ -837,6 +837,12 @@ package Sidef::Types::String::String {
 
     *endsWith = \&ends_with;
 
+    sub looks_like_number {
+        my ($self) = @_;
+        state $x = require Scalar::Util;
+        Sidef::Types::Bool::Bool->new(Scalar::Util::looks_like_number($self->get_value));
+    }
+
     sub warn {
         my ($self) = @_;
         warn $self->get_value;

diff --git a/lib/Sidef/Types/String/String.pod b/lib/Sidef/Types/String/String.pod
@@ -569,6 +569,14 @@ Return the
 
 =cut
 
+=head2 looks_like_number
+
+String.looks_like_number() -> I<Obj>
+
+Return the
+
+=cut
+
 =head2 new
 
 String.new() -> I<Obj>