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