NAME

Number::Range - Perl extension defining ranges of numbers and testing later if a number is in it

SYNOPSIS

use Number::Range;

my $range = Number::Range->new("-10..10,12,100..120");
if ($range->inrange("13")) {
  print "In range\n";
} else {
  print "Not in range\n";
}
$range->addrange("200..300");
$range->delrange("250..255");

DESCRIPTION

Number::Range will take a description of range(s), and then allow you to test later on if a number falls within the range(s).

RANGE FORMAT

The format used for range is pretty straight forward. To separate sections of ranges it uses a , or whitespace. To create the range, it uses .. to do this, much like Perl's own binary .. range operator in list context.

METHODS

$range = Number::Range->new("10..20","25..30");

Creates the range object. It will accept any number of ranges as its input.

$range->addrange("22");

This will also take any number of ranges as input and add them to the existing range.

$range->delrange("10");

This will also take any number of ranges as input and delete them from the existing range.

$range->inrange("26");

This will take one number and check if it exists in the range and return 1 for true and 0 for false.

EXPORT

None by default.

AUTHOR

Larry Shatzer, Jr., <larrysh@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2004 by Larry Shatzer, Jr.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.