Re: Use reference for functions in functions

use strict;
use warnings;
use 5.012;

package Dog;

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
}

sub bark {
    say 'woof';
}

sub do_math {
    say '2 + 2 = 4';
}




package main;

sub func1 {
    my $obj = shift;
    $obj->do_math();
}

sub func2 {
    my $obj = shift;
    $obj->bark();
    func1($obj);
}

my $dog = Dog->new();
func2($dog);

--output:--
woof
2 + 2 = 4
[download]

Comment on Re: Use reference for functions in functions Download Code

Replies are listed 'Best First'.
Re^2: Use reference for functions in functions by T_I (Novice) on Feb 26, 2013 at 06:59 UTC
Thanks, It's been years since I've did something with objects in Perl. (first and last time was in 2009) I forgot objects are already references. I'll test this at work and post the findings. Edit: Just tested the removal of \ in the prototyping and it works flawlessly. Thanks for the reminder that objects are already references..	[reply]
Re^3: Use reference for functions in functions by 7stud (Deacon) on Feb 27, 2013 at 06:48 UTC
Do you know about Moose? Moose is the new OO paradigm in perl. See here and chromatic's Modern Perl book here.	[reply]