- Added the METHODS method for user-defined objects which returns a…

…n Hash of String=>LazyMethod pairs.

lib/Sidef/Variable/Class.pm

@@ -31,6 +31,21 @@ package Sidef::Variable::Class {
         $self->{class};
     }
 
+    sub METHODS {
+        my ($self) = @_;
+
+        state $x = require Scalar::Util;
+
+        my %alias;
+        my %methods;
+        while (my ($key, $value) = each %{$self->{method}}) {
+            $methods{$key} =
+              ($alias{Scalar::Util::refaddr($value)} //= Sidef::Variable::LazyMethod->new(obj => $self, method => $value));
+        }
+
+        Sidef::Types::Hash::Hash->new(%methods);
+    }
+
     sub def_method {
         my ($self, $name, $block) = @_;
         $self->{method}{$name} = $block;

lib/Sidef/Variable/Class.pod

@@ -49,3 +49,11 @@ Return the
 Aliases: I<is_an>
 
 =cut
+
+=head2 METHODS
+
+Class.METHODS() -> I<Obj>
+
+Return the
+
+=cut

lib/Sidef/Variable/LazyMethod.pm

@@ -14,7 +14,18 @@ package Sidef::Variable::LazyMethod {
         my ($self, @args) = @_;
 
         my ($method) = ($AUTOLOAD =~ /^.*[^:]::(.*)$/);
-        my $call = ref($self->{method}) eq 'CODE' ? $self->{method} : $self->{method}->get_value;
+        my $call = $self->{method};
+
+        if (ref($call) eq 'Sidef::Types::Block::Code') {
+            if ($method eq 'call') {
+                return $call->call($self->{obj}, @{$self->{args}}, @args);
+            }
+            return $call->call($self->{obj}, @{$self->{args}})->$method(@args);
+        }
+
+        if (ref($call) ne 'CODE') {
+            $call = $call->get_value;
+        }
 
         if ($method eq 'call') {
             return $self->{obj}->$call(@{$self->{args}}, @args);