package Set::Range;

$VERSION = '1.0j';  # j for japhy ;)


sub new {
  my $class = shift; 
  my $self = bless {
    CACHE => {},
    RANGE => [],
  }, $class;
  
  while (my ($k,$v) = splice(@_, 0, 2)) {
    my ($low, $high) = split /\s*(?:,|\.{2,})\s*/, $k;
    unless ($high) {
      $high = substr($low, 1);
      chop $low;
    }
    my $li = (substr($low, 0, 1, '') eq '[');
    my $hi = (substr($high, 0, 1, '') eq ']');

    my $l = $self->fmt($low);
    my $h = $self->fmt($high);
    $self->{CACHE}{$l} = $v if $li;
    $self->{CACHE}{$h} = $v if $hi;

    push @{ $self->{RANGE} }, {
      LO => $l,
      HI => $h,
      LO_INC => $li,
      HI_INC => $hi,
      VALUE => $v,
      CODE =>
        ($l == $h && sub { $l == $_[0] })
        ||
        ($li && $hi && sub { ($l ne '' && $l <= $_[0]) and ($h ne '' && $_[0] <= $h) } )
        ||
        ($li && sub { ($l ne '' && $l <= $_[0]) and ($h ne '' && $_[0] < $h) } )
        ||
        ($hi && sub { ($l ne '' && $l < $_[0]) and ($h ne '' && $_[0] <= $h) } )
        ||
        sub { ($l ne '' && $l < $_[0]) and ($h ne '' && $_[0] < $h) }
    };

  }

  return $self;
}


sub range {
  my ($self, $value) = @_;
  $value = $self->fmt($value);

  return $self->{CACHE}{$value} if exists $self->{CACHE}{$value};
  $_->{CODE}->($value) and return($self->{CACHE}{$value} = $_->{VALUE})
    for @{ $self->{RANGE} };

  return;
}



package Set::Range::Date;

@ISA = qw( Set::Range );


sub fmt {
  my $d = pop;
  return sprintf "%04d%02d%02d",
    ($d =~ /(\d{1,2})\D*(\d{1,2})\D*(\d+)/)[2,1,0];
}



package Set::Range::Date::Eu;

@ISA = qw( Set::Range );


sub fmt {
  my $d = pop;
  return sprintf "%04d%02d%02d",
    ($d =~ /(\d{1,2})\D*(\d{1,2})\D*(\d+)/)[2,0,1];
}



package Set::Range::Time;

@ISA = qw( Set::Range );


sub fmt {
  my $t = pop;

  # assume it's a timestamp
  return $t unless $t =~ /\D/;

  # does it look a like 12-hour clock?
  if ($t =~ /([apAP])/) {
    my $is_pm = (lc($1) ne 'a');
    my @parts = $t =~ /(\d+)/g;
    $parts[0] %= 12;
    $parts[0] += 12 if $is_pm;
    return sprintf '%02d' x 4, @parts;
  }

  # otherwise, assume 24-hour clock
  return sprintf '%02d' x 4, $t =~ /(\d+)/g;
}
    


package Set::Range::Number;

@ISA = qw( Set::Range );


sub fmt { pop }



1;

__END__