Re: Re: Passing a reference to a subroutine in a constructor

To all who noted the backslash, I have the correct slash direction in my real code. The code I posted was typed in lovingly by hand into the web page since I can't cut and paste between the computer I develop on (Sparcstation) and the one I Monk on (Windows). It doesn't seem to matter whether I use the form:

my $collection = Collection->new({ 'sorter' => Sort::mysorter });

sub new
{
  my ($self, $options) = @_;
  .  .  .
  $self->{sorter} = \&$options->{sorter};
}
[download]

or...

my $collection = Collection->new({ 'sorter' => \&Sort::mysorter });

sub new
{
  my ($self, $options) = @_;
  .  .  .
  $self->{sorter} = $options->{sorter};
}
[download]

When I get to :

$self->sorter($stuffToSort);
[download]

or $self->sorter->($stuffToSort); I get the same results.

DrSax

Comment on Re: Re: Passing a reference to a subroutine in a constructor Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Passing a reference to a subroutine in a constructor by bobn (Chaplain) on Aug 23, 2003 at 02:38 UTC
here it is in separate files works fine: [bobn@trc2:/home/bobn/misc]# cat subref.pl #!/usr/bin/perl -w use lib q/./; use Collection; use Sort; my $collection = Collection->new({ 'sorter' => \&Sort::mysorter }); $collection->doit('here is something'); [bobn@trc2:/home/bobn/misc]# cat Collection.pm package Collection; my $self = {}; sub new { my ($class, $options) = @_; $self->{sorter} = $options->{sorter}; bless $self, $class; } sub doit { my ($self, $stuffToSort ) = @_; print "in doit: $stuffToSort\n"; $self->{sorter}->($stuffToSort); print "in doit: $stuffToSort\n"; } 1; [bobn@trc2:/home/bobn/misc]# cat Sort.pm package Sort; sub mysorter { print "in mysorter, @_\n"; } 1; [bobn@trc2:/home/bobn/misc]# ./subref.pl in doit: here is something in mysorter, here is something in doit: here is something [download] All code given here is UNTESTED unless otherwise stated. --Bob Niederman, http://bob-n.com	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Passing a reference to a subroutine in a constructor
by bobn (Chaplain) on Aug 23, 2003 at 02:38 UTC

here it is in separate files works fine:

[bobn@trc2:/home/bobn/misc]# cat subref.pl
#!/usr/bin/perl -w

use lib q/./;

use Collection;
use Sort;

my $collection = Collection->new({ 'sorter' => \&Sort::mysorter });

$collection->doit('here is something');

[bobn@trc2:/home/bobn/misc]# cat Collection.pm 
        package Collection;

        my $self = {}; 
        sub new
        {
                my ($class, $options) = @_;
                $self->{sorter} = $options->{sorter};
                bless $self, $class; 
        }

        sub doit
        {
                my ($self, $stuffToSort ) = @_;
                print "in doit: $stuffToSort\n";
                $self->{sorter}->($stuffToSort);
                print "in doit: $stuffToSort\n";
        }
        1;
[bobn@trc2:/home/bobn/misc]# cat Sort.pm 
package Sort;

sub mysorter
{
        print "in mysorter, @_\n";
} 
1;
[bobn@trc2:/home/bobn/misc]# ./subref.pl
in doit: here is something
in mysorter, here is something
in doit: here is something
[download]

All code given here is UNTESTED unless otherwise stated.

[reply]
[d/l]