Re: Was the attribute set in the constructor?

[Evan Carroll]

around 'attribute' => sub {
        my ($next, $this, $key) = @_;
        unless ( $this->meta->get_attribute('attribute')->has_init_arg ) {
                if ( $key ) {
                        $self->has_attribute ? die 'exception' : 
$this->$next($key);
                }
                else {
                        $this->$next
                }
        }
};

weee, this is fun.

--
Evan Carroll
System Lord of the Internets
http://www.evancarroll.com