Here's the pod...

SYNOPSIS

        use Set::Range;

[download]
        my %set= ('1' => {      lower => 0,
                                upper => 10,
                                upper_inclusive => 1,
                        },
                  '2' => {      lower => 11,
                                upper => 100,
                                lower_inclusive => 1,
                         },
                );

[download]
        my $range=Set::Range->new(\%set);
        print $range->getState('19', NUM_RANGE);
        # prints "2"

[download]
        my %set= ('Jan' => {    lower => '1/1/2001',
                                upper => '1/31/2001',
                                upper_inclusive => 1,
                                lower_inclusive => 1,
                        }, # Days in January
                  'Feb' => {    lower => '2/1/2001',
                                upper => '2/28/2001',
                                upper_inclusive => 1,
                                lower_inclusive => 1,
                         }, # Days in February
                );

[download]
        my $range=Set::Range->new(\%set);

[download]
        print $range->getSet('1/11/2001', DATE_RANGE);
        # prints "Jan"

[download]

DESCRIPTION

Set::Range allows you to define ranges of numeric or date values and will return the set that a given test value lies in. This module removes the need for multiple if .. elsif .. (etc) tests and lets you modify the sets on the fly without having to recode the logic in your scripts.

E.g.: define date ranges and test for which set '1/1/2002' is in.

METHODS

new
This creates the Set::Range Object

Example: my $range = Set::Range->new(\%sets);

    Pass new() a reference to a Hash containing the set
    information.

[download]

%sets
  The hash defining the sets contains one hash per set
  with at least 'upper' and 'lower' defined.
  'upper_inclusive' and 'lower_inclusive' are optional
  and are the equivalent of >= and <= for the upper and 
  lower set boundries.

[download]
  The set hash can look like this:

[download]

  { 
    'key1' => { 
                lower => 0,
                upper => 10
                },
    'key2' => {
                lower => 10,
                upper => 15,
                lower_inclusive => 1,
              },
    'key3' => {
                lower => 15
                upper => 25,
                lower_inclusive => 1,
                upper_inclusive => 1,
              },
   }

[download]

  etc... The lower and upper values can either be
  numeric values or date values in the form
  mm/dd/yyyy or dd/mm/yyyy (see C<getSet> for
  Euro-formatted dates)

[download]
getSet
getSet() returns the value of the set that the test item is a member of. Optionally accepts one of the following contants (defaults to numeric): NUM_RANGE, DATE_RANGE, EU_DATE_RANGE, TIME_RANGE(same as NUM_RANGE)

Examples:

    my $set = $range->getSet(10);
    my $set = $range->getSet('1/14/2002', DATE_RANGE);

[download]

getSet returns 0 if the test value was not found to be a member of any set.

Note: Set::Range uses Date::Calc functions to convert the date to a datestamp. I settled on Date::Calc because Time::Local doesn't support years > 2038.

EXPORT

NUM_RANGE, DATE_RANGE, EU_DATE_RANGE, TIME_RANGE constants

In reply to Re: Set::Range - conditional testing on sets by $code or die
in thread Set::Range - conditional testing on sets by $code or die

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.