sub new {
    my $obj = bless{
        Order => [],
        Items => {}, 
        Config => {},
    }, shift @_; 
    
    my (undef, $itemValues) = @_ ;
    my @asList = %$itemValues;
    
    while (@asList) {
        my ($key, $val) = splice @asList, 0, 2;
[download]