version 1.2, 2011/03/20 02:34:42 |
version 1.3, 2011/03/20 06:20:11 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: test.pl,v 1.1.1.1 2011/03/19 22:27:16 andrew Exp $ |
# $AFresh1: test.pl,v 1.2 2011/03/20 01:34:42 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
count => 1.5, |
count => 1.5, |
rate => 100, |
rate => 100, |
}, |
}, |
], |
|
discounts => [ |
|
{ |
{ |
contents => 'Included Hours', |
contents => 'Rounding FAIL', |
amount => .33 * 75, |
detail => 'Should be $8.30', |
|
count => .083, |
|
rate => 100, |
}, |
}, |
{ |
|
contents => 'Included Hours', |
|
amount => 1.5 * 100, |
|
}, |
|
], |
], |
}, |
}, |
{ |
{ |
|
|
rate => 125, |
rate => 125, |
}, |
}, |
], |
], |
discounts => [ |
|
{ |
|
contents => 'Included Hours', |
|
amount => (.33 * 75) + ( 3.33 * 100 ), |
|
}, |
|
{ |
|
contents => 'Included Hours', |
|
amount => (.25 * 75 ) + (2.25 * 100), |
|
}, |
|
], |
|
}, |
}, |
{ |
{ |
id => 85, |
id => 85, |
|
|
], |
], |
}, |
}, |
], |
], |
|
discount => { |
|
contents => 'Discount', |
|
amount => '8.498', |
|
}, |
); |
); |
|
|
my $tt = Template->new; |
my $tt = Template->new; |