Select Code to Download

bless $class, [ @_ ];

$e->index( index => $index,
           type  => $type,
...
               result  => $object->result,
           },
);

sub hashify {
    my $self = shift;
    return { %$self }
}

my @attributes = qw( head opinion result );
sub hashify {
    my $self = shift;
    return { map { $attributes[$_] => $self->[$_] } 0 .. $#$self }
}