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) ============================================================*/
