sub method_d { my ($self, %args) = @_; my $method_c = $self->{method_c}; my $execute_c = $method_c->($self->(test_c)); return $execute_c; }