Re: Trying to create an attribute trait that prompts for a value if none specified

On Thu, Dec 22, 2011 at 1:40 PM, Buddy Burden <[email protected]>wrote:

> I'm still experimenting here, but I had a couple of questions


Just to throw a third approach in...

Given that this is easily achievable with builders/defaults (if you're
willing to set them on every attribute), I'd probably just wrap the
Moose::Meta::Attribute::_process_options() method (via an attribute trait)
along the lines of:

before _process_options => sub {
    my ($class, $name, $options) = @_;

    # if any of these are set, then...  wtf?
    return if $options->{builder} || $options->{default} || defined
$options->{required};

    $options->{required} = 1;
    $options->{default} = sub { ... magic prompting code ... };

    return;
};

This is minimally invasive, and leverages pre-existing bits to achieve its
ends.  ...assuming that I've understood what you were aiming for.  Adding a
custom prompt option should be pretty straight-forward from this point, and
building a Moose::Exporter package to apply it should be so as well.

...do note that you'll need to pay attention to the attribute-from-role and
extends cases; such an exercise is left for the reader.  (Though the code
in MooseX::AttributeShortcuts should help.)

                                       -Chris

-- 
Chris Weyl
Ex astris scientia