sub set_items { push @{ $_[0]->{_items} }, $_[1]; }