CQL::ProxModifierSet - represents a base string and modifier strings

package CQL::ProxModifierSet;

use strict;
use warnings;
use base qw( CQL::ModifierSet );
use CQL::Utils qw( indent xq );
use Carp qw( croak );
use CQL::ModifierSet;

sub toCQL {
    my $self = shift;
    my $cql = $self->{base};

    my $distance = $self->modifier("distance");
    my $relation = $self->modifier("relation");
    my $unit = $self->modifier("unit");
    my $ordering = $self->modifier("ordering");

    $cql .= "/distance$relation$distance"
	if defined $distance and defined $relation;
    $cql .= "/unit=$unit" if defined $unit;
    $cql .= "/$ordering" if defined $ordering;

    return $cql;
}

1;