On Fri, 3 Jul 2009, Mark Morgan wrote:
has asdf => (
is => 'ro',
trigger => sub {
my ( $self, $value ) = @_;
printf( "In trigger, assosciated class = %s\n",
$self->associated_class
);
},
);
This trigger gets called when the attribute is first created. However,
associated_class won't be set until _after_ the attribute has been created
and added to a metaclass object, when $attr->attach_to_class($metaclass)
is called.
I have no idea what you're trying to do, but I'm sure there's some other
way to do it.
-dave
/*============================================================
http://VegGuide.org http://blog.urth.org
Your guide to all that's veg House Absolute(ly Pointless)
============================================================*/