::Parser::Groffmom-new({title = $title});
I tried trolling through the Class::MOP docs to find out if an attribute was
set in the constructor, but couldn't find anything. Seems the other approach
is using triggers or a BUILD method. What's the cleanest way to do this?
Cheers,
Ovid
--
Buy
(this is actually true for several attributes):
my $parser = Pod::Parser::Groffmom-new({title = $title});
I tried trolling through the Class::MOP docs to find out if an attribute was
set in the constructor, but couldn't find anything. Seems the
other approach is using triggers or a BUILD
On Tue, Nov 3, 2009 at 10:01 AM, Ovid publiustemp-catal...@yahoo.com wrote:
When parsing documents, if my code finds more than one title in a document,
it's an error because we don't know which title is needed. The user should
be able to override this in the constructor and provide their own
Excerpts from Evan Carroll's message of Tue Nov 03 11:38:47 -0500 2009:
On Tue, Nov 3, 2009 at 10:01 AM, Ovid publiustemp-catal...@yahoo.com wrote:
When parsing documents, if my code finds more than one title in a document,
it's an error because we don't know which title is needed. The user
This might be preferable to my suggestion if your object's methods are being
called mid-parse, rather than building up a data structure first and setting
attributes based on it after parsing is done. Even then, I think I'd rather
have a separate method than modify the accessor.
Yea that was
Excerpts from Evan Carroll's message of Tue Nov 03 11:55:04 -0500 2009:
has 'attribute' = ( isa = 'Str', is = 'rw', predicate = 'has_attribute' );
around 'attribute' = sub {
my ($next, $this, $key) = @_;
if ( $key ) {
$self-has_attribute ? die 'exception' : $this-$next($key);
}
On Tue, Nov 03, 2009 at 11:09:19AM -0600, Evan Carroll wrote:
around 'attribute' = sub {
my ($next, $this, $key) = @_;
unless ( $this-meta-get_attribute('attribute')-has_init_arg ) {
if ( $key ) {
$self-has_attribute ? die 'exception' :
