sub add_method {
    my $self = shift;
    my $name = shift;
    die unless $name and $name =~ /^\w+$/;
    eval qq(
        sub $name {
            my \$self = shift;
            my \$item = $name;
            return \[ \@{\$self->{items}}, \$item \];
        }
    );
}