Number::Compare (3pm)

 Number::Compare->new(">1Ki")->test(1025); # is 1025 > 1024

 my $c = Number::Compare->new(">1M");
 $c->(1_200_000);                          # slightly terser invocation

Number::Compare compiles a simple comparison to an anonymous subroutine, which you can call with a value to be tested again.

Now this would be very pointless, if Number::Compare didn't understand magnitudes.

The target value may use magnitudes of kilobytes (\*(C`k\*(C', \*(C`ki\*(C'), megabytes (\*(C`m\*(C', \*(C`mi\*(C'), or gigabytes (\*(C`g\*(C', \*(C`gi\*(C'). Those suffixed with an \*(C`i\*(C' use the appropriate 2**n version in accordance with the \s-1IEC\s0 standard: http://physics.nist.gov/cuu/Units/binary.html

Returns a new object that compares the specified test. A longhanded version of $compare->( $value ). Predates blessed subroutine reference implementation. Returns a perl code fragment equivalent to the test.

Richard Clamp <[email protected]>

Copyright (C) 2002,2011 Richard Clamp. All Rights Reserved.

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

http://physics.nist.gov/cuu/Units/binary.html