if (defined $m)
                        {
                        my @result = (( ref $m eq 'CODE' ) ? &{$m}( ref $match ? @$match : $match) : $m);
                        if (@result == 1)
                                { $match = $result[0]; }
                        else
                                { $match = [ @result ]; }
                        $result->[$i + 1] = $match;     
                        }

                if (defined $stval)
                        {
                        my @result;
                        if (ref $match) { @result = get_strings($match); }
                        else { @result = $match; }
                        if (ref $stval eq 'CODE')
                                { &{$stval}($self, @result); }
                        else
                                { push @{$self->{$stval}}, @result; }
                        }

                    cpanm XBase::SQL::Expr

                    perl -MCPAN -e shell
                    install XBase::SQL::Expr