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