sub method_d {
   my ($self, %args) = @_;

   my $method_c      = $self->{method_c};
   my $test_c        = $self->{test_c};
   my $exec_test_c   = $$test_c->();

   my $exec_method_c = $method_c->( $exec_test_c );

   return $exec_method_c;
}