- Added the method method for user-defined classes which returns a …

…LazyMethod object, or nil - Renamed user-defined class method `has_method` into `respond_to`
trizen · Jul 7, 2015 · dbf29e5 · dbf29e5
1 parent 6122dd9
commit dbf29e5
Show file tree

Hide file tree

Showing 6 changed files with 32 additions and 19 deletions.
diff --git a/lib/Sidef.pm b/lib/Sidef.pm
@@ -135,8 +135,6 @@ package Sidef {
         Sidef::Types::Bool::Bool->new($self->can($method));
     }
 
-    *respondTo = \&respond_to;
-
     sub is_a {
         my ($self, $obj) = @_;
         Sidef::Types::Bool::Bool->new(ref($self) eq ref($obj));

diff --git a/lib/Sidef/Variable/Class.pm b/lib/Sidef/Variable/Class.pm
@@ -46,12 +46,19 @@ package Sidef::Variable::Class {
         Sidef::Types::Hash::Hash->new(%methods);
     }
 
+    sub method {
+        my ($self, $name) = @_;
+        exists($self->{method}{$name})
+          ? Sidef::Variable::LazyMethod->new(obj => $self, method => $self->{method}{$name})
+          : ();
+    }
+
     sub def_method {
         my ($self, $name, $block) = @_;
         $self->{method}{$name} = $block;
     }
 
-    sub has_method {
+    sub respond_to {
         my ($self, $name) = @_;
         Sidef::Types::Bool::Bool->new(exists $self->{method}{$name});
     }

diff --git a/lib/Sidef/Variable/Class.pod b/lib/Sidef/Variable/Class.pod
@@ -32,22 +32,22 @@ Return the
 
 =cut
 
-=head2 has_method
+=head2 is_a
 
-Class.has_method() -> I<Obj>
+Class.is_a() -> I<Obj>
 
 Return the
 
+Aliases: I<is_an>
+
 =cut
 
-=head2 is_a
+=head2 method
 
-Class.is_a() -> I<Obj>
+Class.method() -> I<Obj>
 
 Return the
 
-Aliases: I<is_an>
-
 =cut
 
 =head2 METHODS
@@ -57,3 +57,11 @@ Class.METHODS() -> I<Obj>
 Return the
 
 =cut
+
+=head2 respond_to
+
+Class.respond_to() -> I<Obj>
+
+Return the
+
+=cut
diff --git a/lib/Sidef/Variable/ClassInit.pm b/lib/Sidef/Variable/ClassInit.pm
@@ -45,7 +45,7 @@ package Sidef::Variable::ClassInit {
         $self->__add_method__($name, $value);
     }
 
-    sub has_method {
+    sub respond_to {
         my ($self, $name) = @_;
         Sidef::Types::Bool::Bool->new(exists $self->{__METHODS__}{$name});
     }

diff --git a/lib/Sidef/Variable/ClassInit.pod b/lib/Sidef/Variable/ClassInit.pod
@@ -60,14 +60,6 @@ Return the
 
 =cut
 
-=head2 has_method
-
-ClassInit.has_method() -> I<Obj>
-
-Return the
-
-=cut
-
 =head2 is_a
 
 ClassInit.is_a() -> I<Obj>
@@ -87,3 +79,11 @@ Return the
 Aliases: I<call>, I<init>
 
 =cut
+
+=head2 respond_to
+
+ClassInit.respond_to() -> I<Obj>
+
+Return the
+
+=cut
diff --git a/scripts/define_methods_at_runtime.sf b/scripts/define_methods_at_runtime.sf
@@ -44,7 +44,7 @@ var obj2 = Hello();
 
 obj2.foo == "foo"           || die "error";
 
-if (obj2.has_method('baz')) {
+if (obj2.respond_to('baz')) {
     die "error";
 };