- Improved the Sidef.METHODS() method; now it returns an HASH with th…

…e method names as keys and LazyMethod objects as values.

- Fixed a minor parsing issue for strings like: obj.method[0].method;

lib/Sidef.pm

@@ -101,13 +101,15 @@ package Sidef {
         sub METHODS {
             my ($self) = @_;
 
-            my %aliases;
+            my %alias;
+            my %methods;
             my $ref = ref($self);
             foreach my $method (grep { $_ !~ /^[(_]/ and defined(&{$ref . '::' . $_}) } keys %{$ref . '::'}) {
-                push @{$aliases{\&{$ref . '::' . $method}}}, Sidef::Types::String::String->new($method);
+                $methods{$method} = ($alias{\&{$ref . '::' . $method}} //=
+                                     Sidef::Variable::LazyMethod->new(obj => $self, method => \&{$ref . '::' . $method}));
             }
 
-            Sidef::Types::Array::Array->new(map { Sidef::Types::Array::Array->new(@{$_}) } values %aliases);
+            Sidef::Types::Hash::Hash->new(%methods);
         }
     }
 

lib/Sidef/Parser.pm

@@ -2030,6 +2030,8 @@ package Sidef::Parser {
                         my ($ind) = $self->parse_expr(code => $opt{code});
                         push @{$struct{$self->{class}}[-1]{ind}}, $ind;
                     }
+
+                    redo;
                 }
 
                 if (/\G(?!\h*[=-]>)/ && /\G(?=$self->{operators_re})/o) {

lib/Sidef/Variable/LazyMethod.pm

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