NAME

Finance::Random::Price - Perl class for creating random image.

SYNOPSIS

use Finance::Random::Price;

my $obj = Finance::Random::Price->new(%parameters);
my $price = $obj->random;

METHODS

new

my $obj = Finance::Random::Price->new(%parameters);

Constructor.

• currencies

  Reference to array with possible currencies.

  Default value is ['CZK'].

• decimal_num

  Number of decimal characters in number. Possible values are undef, 1 or 2.

  Default value is undef.

• min

  Minimal value for random price.

  Default value is 0.

• max

  Maximal value for random price.

  Default value is 100.

Returns instance of object.

random

my $price = $obj->random;

Get random price.

Returns Data::Currency object.

ERRORS

new():
        Parameter 'decimal_num' must be a number.
        Parameter 'decimal_num' must be greater than 0.
        Parameter 'decimal_num' must be lesser than 3.
        Parameter 'min' is required.
        Parameter 'min' must be a number.
        Parameter 'max' is required.
        Parameter 'max' must be a number.
        Parameter 'max' must be greater than parameter 'min'.
        From Class::Utils:
                Unknown parameter '%s'.

EXAMPLE

use strict;
use warnings;

use Finance::Random::Price;

# Object.
my $obj = Finance::Random::Price->new(
        'currencies' => ['USD', 'EUR'],
        'min' => 99,
        'max' => 101,
);

# Print random price.
print $obj->random."\n";

# Output like:
# EUR100,00

# Output like:
# $99.00

# Output like:
# $101.00

DEPENDENCIES

Class::Utils, Data::Currency, Error::Pure.

REPOSITORY

https://github.com/michal-josef-spacek/Finance-Random-Price.

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2023 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.01