use overload;

my %_const_handlers = (
    q => sub {
        if ($_[0] =~ m/^\{.*\}$/) {
            my $str = substr $_[0], 1, length ($_[0]) - 2;
            my @elems = split /\s+/, $str;
            if (defined $elems[1] and $elems[1] eq "..") {
                @elems = $elems[0] .. $elems[2];
            }
            return __PACKAGE__->new (@elems) || $_[1];
        } else {
            return $_[1];
        }
    },
);

sub import { overload::constant %_const_handlers; }