use Mouse;
use strictures 2;
use namespace::autoclean;
+use List::AllUtils qw(pairmap);
extends 'Debbugs::OOBase';
has 'constructor_args' => (is => 'rw',
isa => 'ArrayRef',
- default => sub {[]},
+ lazy => 1,
+ builder => '_build_constructor_args',
);
+sub _build_constructor_args {
+ return [];
+}
+
sub add_by_key {
my $self = shift;
# we'll assume that add does the right thing. around this in subclasses
sub get {
my $self = shift;
- return $self->_get_member($self->_get_member_hash(@_));
+ return map {$self->_get_member($_)}
+ $self->_get_member_hash(@_);
}