in reply to Dynamic Method Generation Using Class::Accessor
package KLARF; use strict; use warnings; use Class::Accessor qw( ); our @ISA = 'Class::Accessor'; __PACKAGE__->mk_accessors(qw( foo )); sub more { __PACKAGE__->mk_accessors(qw( bar )); } 1;
$ perl -wle' use KLARF; KLARF::more(); my $o = KLARF->new(); $o->foo("abc"); print $o->foo(); $o->bar("def"); print $o->bar(); ' abc def
By the way, using __PACKAGE__ is usually deemed wiser than hardcoding the package name everywhere.
|
|---|