Noob OO Question

[Anonymous Monk]

Below is my package and script.

package Hi;

use strict;
use Data::Dumper;
$DATA::Dumper::Deparse = 1;

sub new {
   my ($class, %args) = @_;
   
   my $self = { 
      method_c => sub {
         my ($var_c) = @_;
         return $var_c . 'this is me.';
      },
      %args,
   };
   return bless $self, $class;
}

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

   return $self->{test_a};
}

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

   return $self->{test_b};
}

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

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

   return $execute_c;
}
   
1;

-----------------------

#!/usr/bin/perl

use strict;
use Hi;

my ($get_a, $get_b) = ('get_a', 'get_b');
my $test = new Hi(
   test_a => 'hello',
   test_b => \sub{ return 1 },
   test_c => \sub{ get_me( $get_a, $get_b ) },
);

sub get_me {
    my ($get_a, $get_b) = @_;
    return $get_a . $get_b;
}

print $test->method_a() . "\n"; 
print $test->method_b() . "\n";
print $test->method_d() . "\n";

This is the output of the script.

hello
REF(0x9fb3bdc)
CODE(0x9fd3208)this is me.

How do I execute the different methods in the Hi.pm package?

[ikegami]

How do I execute the different methods in the Hi.pm package?

You are already executing every method in package "Hi".

Class method new	new Hi(...) (although Hi->new(...) is usually recommended)
Object method method_a	$test->method_a()
Object method method_b	$test->method_b()
Object method method_c	$test->method_d()

[JavaFan]

What is your question? Since you're executing various methods in the Hi.pm, I think you mean another question. Perhaps you're confusing yourself by making methods returning references of references to subs. But I've no idea what your intention is.

[Anonymous Monk]

Oh, I mean I am not getting the correct 'output' from the methods. For example,

print $test->method_b() . "\n";
print $test->method_d() . "\n";

I was expecting it to have something like this...

print $test->method_b() . "\n"; ---> 1?
print $test->method_d() . "\n"; ---> get_aget_bthis is me.

But instead I am getting this result.

REF(0x9fb3bdc)
CODE(0x9fd3208)this is me.

[bluescreen]

When you instantiated the Hi package you passed references to some subroutines, in method_b for example you return the reference back to the caller, you are not executing the method

Consider this

my $sub_ref = \sub {
    my $who = shift;
    print "hello $who\n";
};

#In order to execute need to deref by prefixing with $
$$sub_ref->('dude');

coderefs are tricky so try to keep your examples simple until you get the grasp on it

[Anonymous Monk]

Here's a sub-question regarding this. So, I tried dereferencing it by running this.

my $testing = $self->{test_b};
print $$testing->();

This works!! But how come I cannot do this?

print $$self->{test_b}->();

It gives us this output.

Not a SCALAR reference at Hi.pm

Also, how do I dereference '$test->method_d()'?

[Anonymous Monk]

I was looking at this...

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

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

   return $execute_c;
}

And I realized that it should be this...

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

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

   return $execute_c;
}

And it is giving me this output.

Can't use string ("REF(0x8420678)this is me.") as a subroutine ref whi
+le "strict refs" in use at Hi.pm

But I wanted this output.

get_aget_bthisisme.

[bichonfrise74]

I think you want something like this...

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;
}

[Anonymous Monk]

Can anyone help me with this? I seem to be missing something to get $test->method_d() to have the correct output and not give me CODE(XXXX).