On Mon, 14 Mar 2005 11:57:42 -0500, Michael Peters <[EMAIL PROTECTED]> wrote: > If you specified the values as code refs, then you would have to do something > more than what I was telling you. If you didn't use code ref's, but just > the names of the methods as the values, then the following should work
Actually, it works with both code refs and plain strings, perl will 'Do the right thing' in both cases. See the following quick test: #!perl package Foo; use base qw(Class::Accessor); Foo->mk_accessors(qw(test)); my $foo = Foo->new; $foo->test(5); my $test_string = 'test'; my $test_ref = \&Foo::test; print ($foo->$test_string() eq 5 ? "OK string\n" : "NOT OK string\n"); print ($foo->$test_ref() eq 5 ? "OK ref\n" : "NOT OK ref\n"); 1; Cheers, Cees --------------------------------------------------------------------- Web Archive: http://www.mail-archive.com/[email protected]/ http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2 To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
