Select Code to Download

my $config = config(
    bool   => true,
...
...
my $widget = $config->{path/to/some/nested/doohickey};  # This is actu
+ally a nested tree traversal underneath...
my $thingy = $widget->evaluate($with_this_context);

sub FETCH {
    my $self = shift;
...
    }
    ...
}

$config->{FETCH} = SomeWidget->new(...);
my $response = $config->FETCH->(
    term => [ 'range', 'of', 'values' ], ...
);

sub FIRSTKEY {
    my $self = shift;
...
    push(@{$_[0]}, $name); # Either way works...
    return $name;
}

# XXX: When dereferencing config keys, don't say ->FIRSTKEY, ->DESTROY
+, ...