http://qs321.pair.com?node_id=61806


in reply to Nested Classes

Well, yes but I'm not quite sure why you'd want to do this.

Is this what you want? 

#!perl -w

use strict;

my $a = 'foo';
my $b = \$a;
bless $b, 'bar';

sub bar::f1 {
    my $self = shift;
    print "f1 prints [$$self]\n";
}

*bar::f2 = sub {
    my $self = shift;
    print "f2 prints [$$self]\n";
};

$b->f1();
$b->f2();

[download]
Update: Changed PRE tags to CODE tags as per chipmunk's request. Sorry, won't do it again :)

Replies are listed 'Best First'.
Re: Re: Nested Classes
by InfiniteSilence (Curate) on Mar 02, 2001 at 20:57 UTC
    Here's a slightly more verbose version of the same thing: 
    #!/usr/bin/perl -w
use strict;
package foo; 
sub new{
my $m = {}; 
bless $m; 
return $m;} 

package bar;
sub new{
 my $b = {};
 bless $b;
 return $b;}

sub corny {
    return 'sparky';
}

package main; 
my $s = foo->new(); 
my $r = bar->new();
$s->{'spark'} = \&bar::corny;
print $s->{'spark'}();
1;

    [download]
    This essentially calls a method out of a different package. I added the class stuff as window dressing. If you are looking to call and actual method from an instantiated object, just call a function and use a reference to the object as a parameter (called delegation in certain circles) to call the function. Lastly, use inheritance. If these things don't help, I am not sure what you are attempting to accomplish.

    Celebrate Intellectual Diversity

[reply]
[d/l]
      The OP asked how to
      1. create an object,
      2. bless,
      3. and then bind subroutines to it (written within another objects method) as methods.

      That's what I tried to show. Sure it's better to define classes statically. But as I understood the OP, he wanted to do this on the fly

[reply]

In Section Seekers of Perl Wisdom