NAME
    Data::Formula - formulas evaluation and calculation

SYNOPSIS
        my $df = Data::Formula->new(
            formula   => 'var212 - var213 * var314 + var354',
        );
        my $val = $df->calculate(
            var212 => 5,
            var213 => 10,
            var314 => 7,
            var354 => 100
        );
        # 5-(10*7)+100

        my $df = Data::Formula->new(
            variables => [qw( var212 var213 n274 n294 var314 var334 var354 var374 var394 )],
            formula   => 'var212 - var213 + var314 * (var354 + var394) - 10',
        );
        my $used_variables = $df->used_variables;
        # [ var212 var213 var314 var354 var394 ]

        my $val = $df->calculate(
            var212 => 5,
            var213 => 10,
            var314 => 2,
            var354 => 3,
            var394 => 9,
        );
        # 5-10+2*(3+9)-10

DESCRIPTION
    evaluate and calulate formulas with variables of the type var212 -
    var213 + var314 * (var354 + var394) - 10

METHODS
  new()
    Object constructor.

         my $df = Data::Formula->new(
            formula   => 'var212 - var213 * var314 + var354',
         );

  used_variables()
    return array with variables used in formula

  calculate()
    evaluate formula with values for variables, returns caluculated value

AUTHOR
    Jozef Kutej, `<jkutej at cpan.org>'

CONTRIBUTORS
    The following people have contributed to the File::is by committing
    their code, sending patches, reporting bugs, asking questions,
    suggesting useful advises, nitpicking, chatting on IRC or commenting on
    my blog (in no particular order):

        Andrea Pavlovic

LICENSE AND COPYRIGHT
    This program is free software; you can redistribute it and/or modify it
    under the terms of either: the GNU General Public License as published
    by the Free Software Foundation; or the Artistic License.

    See http://dev.perl.org/licenses/ for more information.