Re^4: defining methods on the fly

The following modification does not assign to a glob. Do this avoid the cache reset issue?

#!/usr/local/bin/perl

use warnings;
use strict;
use Want;

sub lvalueMethod($) {
    my ($name)    = @_;
    my ($package) = caller;

    no strict 'refs';
    *{$package . "::" . $name} = sub :lvalue {
        my $self = shift;
        if (!want('LVALUE') && ref($self->{$name}) eq 'CODE') {
            goto &{$self->{$name}};
        }
        $self->{$name};
    };
}

{
    package Foo;

    sub new { bless {}, shift; }
    main::lvalueMethod("bar");
}

my ($x) = Foo->new();
print "$x\n";
$x->bar = 5;
print $x->bar, "\n";
$x->bar = sub { print( @_, "\n" ); };
$x->bar("Hello World");
[download]

Remember: There's always one more bug.

Comment on Re^4: defining methods on the fly Download Code

Replies are listed 'Best First'.
Re^5: defining methods on the fly by flogic (Acolyte) on Aug 03, 2006 at 20:24 UTC
From my understanding of his response that avoids the issue.	[reply]
Re^5: defining methods on the fly by revdiablo (Prior) on Aug 04, 2006 at 17:37 UTC
The following modification does not assign to a glob. Apologies if I'm misunderstanding something here, but isn't the following code assigning to a glob? `{$package . "::" . $name} = sub :lvalue {` [download] Update*: Thanks for the reply -- I was indeed "misunderstanding something here."	[reply] [d/l]
Re^6: defining methods on the fly by jdhedden (Deacon) on Aug 05, 2006 at 01:57 UTC
Apologies if I'm misunderstanding something here, but isn't the following code assigning to a glob? `{$package . "::" . $name} = sub :lvalue {` [download] True, but that wasn't what I was referring to. The above is only executed once. The concern was with the following line in the original code that was executed every time the method was called: `local call = sub { $self->{$name}->(@_); };` [download] By removing that line, my suggested code should not suffer from the method cache reset performance penalty that occurs each time the method in the original code is called. Remember: There's always one more bug.	[reply] [d/l] [select]


go ahead... be a heretic
	PerlMonks