NAME

Number::Denominal - break up numbers into arbitrary denominations

SYNOPSIS

use Number::Denominal;

my ( $sec, $min, $hr ) = (localtime)[0..2];
my $seconds = $hr*3600 + $min*60 + $sec;

say 'So far today you lived for ',
    denominal($seconds,
        [ qw/second seconds/ ] =>
            60 => [ qw/minute minutes/ ] =>
                60 => [ qw/hour hours/ ]
    );
## Prints: So far today you lived for 23 hours,
## 48 minutes, and 23 seconds

# Same thing but with a 'time' unit set shortcut:
say 'So far today you lived for ', denominal($seconds, \'time');

say 'If there were 100 seconds in a minute, and 100 minutes in an hour,',
    ' then you would have lived today for ',
    denominal(
        # This is a shortcut for units that pluralize by adding "s"
        $seconds, second => 100 => minute => 100 => 'hour',
    );
## Prints: If there were 100 seconds in a minute, and 100 minutes
## in an hour, then you would have lived today for 8 hours, 57 minutes,
## and 3 seconds

say 'And if we called seconds "foos," minutes "bars," and hours "bers"',
    ' then you would have lived today for ',
    denominal(
        $seconds, foo => 100 => bar => 100 => 'ber',
    );
## Prints: And if we called seconds "foos," minutes "bars," and hours
## "bers" then you would have lived today for 8 bers, 57 bars, and 3 foos

## You can get the denominalized data as a list:
my @data = denominal_list(
    $seconds, foo => 100 => bar => 100 => 'ber',
);

## Or same thing as a shorthand:
my @data = denominal_list(  $seconds, [ 100, 100 ], );

## Or get the data as a hashref:
my $data = denominal_hashref(
    $seconds, foo => 100 => bar => 100 => 'ber',
);

# We can also handle precision (with rounding):
print denominal( 3*3600 + 31*60 + 40, \'time', { precision => 2 } ),
# Prints '3 hours and 32 minutes'
);

DESCRIPTION

Define arbitrary set of units and split up a number into those units.

This module arose from a discussion in IRC, regarding splitting a number of seconds into minutes, hours, days... Paul 'LeoNerd' Evans brought up the idea for Number::Denominal that would split up a number into any arbitrarily defined arbitrary units and I am the code monkey that released it.

EXPORTS

`denominal`

## All these are equivalent:

my $string = denominal( $number, \'time' );

my $string = denominal(
    $number,
    second => 60 => minute => 60 => hour => 24 => day => 7 => 'week'
);

my $string = denominal(
    $number,
    [ qw/second seconds/ ] =>
        60 => [ qw/minute minutes/ ] =>
            60 => [ qw/hour hours/ ] =>
                24 => day => 7 => 'week',
);


# Specify precision:
my $string = denominal( $number, \'time', { precision => 2 } );

Breaks up the number into given denominations and returns it as a human-readable string (e.g. "5 hours, 22 minutes, and 4 seconds". If the value for any unit ends up being zero, that unit will be omitted (an empty string will be returned if the given number is zero).

The first argument is the number that needs to be broken up into units. Negative numbers will be abs()'ed.

The other arguments are given as a list and define unit denominations. The list of denominations should start with a unit name and end with a unit name, and each unit name must be separated by a number that represents how many left-side units fit into the right-side unit. Unit name can be an arrayref, a simple string, or a scalarref. The meaning is as follows:

The last argument is optional and, if present, is given as a hashref. It specifies various options. See OPTIONS HASHREF section below for possible values.

an arrayref

my $string = denominal(
    $number,
    [ qw/second seconds/ ] =>
        60 => [ qw/minute minutes/ ] =>
            60 => [ qw/foo bar/ ]
);

The arrayref must have two elements. The first element is a string that is the singular name of the unit. The second element is a string that is the plural name of the unit Arrayref unit names can be mixed with simple-string unit names.

a simple string

# These are the same:

my $string = denominal( $number, second => 60 => 'minute' );

my $string = denominal(
    $number,
    [ qw/second seconds/ ] => 60 => [ qw/minute minutes/ ]
);

When a unit name is a simple string, it's taken as a shortcut for an arrayref unit name with this simple string as the first element in that arrayref and the string with letter "s" added at the end as the second element. (Basically a shortcut for typing units that pluralize by adding "s" to the end).

a scalarref

## All these are the same:

my $string = denominal( $number, \'time' );

my $string = denominal(
    $number,
    second => 60 => minute => 60 => hour => 24 => day => 7 => 'week'
);

Instead of giving a list of unit names and their denominations, you can pass a scalarref as the second argument to denominal(). The value of the scalar that scalarref references is the name of a unit set shortcut. Currently available unit sets and their definitions are as follows:

`time`

time    => [
    second => 60 => minute => 60 => hour => 24 => day => 7 => 'week'
],

`weight`

weight  => [
    gram => 1000 => kilogram => 1000 => 'tonne',
],

`weight_imperial`

weight_imperial => [
   ounce => 16 => pound => 14 => stone => 160 => 'ton',
],

`length`

length  => [
   meter => 1000 => kilometer => 9_460_730_472.5808 => 'light year',
],

`length_mm`

length_mm  => [
   millimeter => 10 => centimeter => 100 => meter => 1000
        => kilometer => 9_460_730_472.5808 => 'light year',
],

`length_imperial`

length_imperial => [
    [qw/inch  inches/] => 12 =>
        [qw/foot  feet/] => 3 => yard => 1760
            => [qw/mile  miles/],
],

`volume`

volume => [
   milliliter => 1000 => 'Liter',
],

`volume_imperial`

volume_imperial => [
   'fluid ounce' => 20 => pint => 2 => quart => 4 => 'gallon',
],

`info`

info => [
    bit => 8 => byte => 1000 => kilobyte => 1000 => megabyte => 1000
        => gigabyte => 1000 => terabyte => 1000 => petabyte => 1000
            => exabyte => 1000 => zettabyte => 1000 => 'yottabyte',
],

`info_1024`

info_1024  => [
    bit => 8 => byte => 1024 => kibibyte => 1024 => mebibyte => 1024
        => gibibyte => 1024 => tebibyte => 1024 => pebibyte => 1024
            => exbibyte => 1024 => zebibyte => 1024 => 'yobibyte',
],

OPTIONS HASHREF

my $string = denominal( $number, \'time', { precision => 2 } );

my $string = denominal(
    $number,
    second => 60 => minute => 60 => hour => 24 => day => 7 => 'week'
    { precision => 2 },
);

my $string = denominal(
    $number,
    [ qw/second seconds/ ] =>
        60 => [ qw/minute minutes/ ] =>
            60 => [ qw/hour hours/ ] =>
                24 => day => 7 => 'week',
    { precision => 2 },
);

If the last argument to denominal() (or denominal_hashref() or denominal_list()) is a hashref, its contents will be interpreted as various options, dictating specifics of how the number should be denominated. Currently supported values are as follows:

`precision`

my $string = denominal( $number, \'time', { precision => 2 } );

Takes a positive integer as a value. Specifies precision of output. This means the output will have at most precision number of different units. Rounding is in place for units smaller than precision.

For example,

denominal( 3*3600 + 31*60 + 1, \'time', );

will output 3 hours, 31 minutes, and 1 second. If we set precisionto 2 units:

denominal( 3*3600 + 31*60 + 40, \'time', { precision => 2 } );

The output will be 3 hours and 32 minutes (note how the minutes got rounded, because 40 seconds is more than half a minute). Further, if we set precision to 1 unit:

denominal( 3*3600 + 31*60 + 1, \'time', { precision => 1} );

We'll get 4 hours as output.

It is possible to get fewer than precision units in the output, even if without precion you'd get more than 1. For example,

denominal( 23*3600 + 59*60 + 59, \'time', );

Would output 23 hours, 59 minutes, and 59 seconds. Now, if we set precision to 2 units:

denominal( 23*3600 + 59*60 + 59, \'time', { precision => 2 } );

The output will be 1 day. What happens is a 2-unit precision rounds off to 23 hours and 60 seconds, which rounds off to 24 hours, and we have a larger unit that is equal to 24 hours: 1 day.

`denominal_list`

BUG BUG BUG!!!! Currently, denominal_list would plainly return the unitless numbers, regardless of what unit they belong to, so it's pretty useless, especially when using { precision => FOO } option. Fix will come in soon :)

## These two are equivalent

my @bits = denominal_list(
    $number,
    second => 60 => minute => 60 => hour => 24 => day => 7 => 'week'
);

my @bits = denominal_list(
    $number,
    [ qw/60  60  24  7/ ],
);

Functions the same as denominal(), except it returns a list of unit values, instead of a string. (e.g. when denominal() would return "8 hours, 23 minutes, and 5 seconds", denominal_list() would return a list of three numbers: 8, 23, 5).

Another shortcut is possible with denominal_list(). Instead of giving each unit a name, you can call denominal_list() with just two arguments and pass an arrayref as the second argument, containing a list of numbers defining unit denominations.

`denominal_hashref`

## These two are equivalent

my $data = denominal_hashref(
    $number,
    second => 60 => minute => 60 => hour => 24 => day => 7 => 'week'
);

say "The number has $data->{second} seconds and $data->{week} weeks!";

Functions the same as denominal(), except it returns a hashref where the keys are the singular names of the units and values are the numerical values of each unit. If a unit's value is zero, its key will be absent from the hashref.

AUTHORS

Idea: Paul Evans, <pevans at cpan.org>
Code: Zoffix Znet, <zoffix at cpan.org>

BUGS

Please report any bugs or feature requests to bug-number-denominal at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Number-Denominal. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Number::Denominal

You can also look for information at:

RT: CPAN's request tracker (report bugs here)

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Number-Denominal
AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Number-Denominal
CPAN Ratings

http://cpanratings.perl.org/d/Number-Denominal
Search CPAN

http://search.cpan.org/dist/Number-Denominal/

LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the terms of the the Artistic License (2.0). You may obtain a copy of the full license at:

http://www.perlfoundation.org/artistic_license_2_0

Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license.

If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license.

This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder.

This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement, then this Artistic License to you shall terminate on the date that such litigation is filed.

Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

To install Number::Denominal, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Number::Denominal

CPAN shell

perl -MCPAN -e shell
install Number::Denominal

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

SYNOPSIS

DESCRIPTION

EXPORTS

denominal

an arrayref

a simple string

a scalarref

time

weight

weight_imperial

length

length_mm

length_imperial

volume

volume_imperial

info

info_1024