diff options
Diffstat (limited to 'LedgerSMB/Taxes')
| -rwxr-xr-x | LedgerSMB/Taxes/Simple.pm | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/LedgerSMB/Taxes/Simple.pm b/LedgerSMB/Taxes/Simple.pm index 57777be4..bbcf539b 100755 --- a/LedgerSMB/Taxes/Simple.pm +++ b/LedgerSMB/Taxes/Simple.pm @@ -4,15 +4,15 @@ # Taxes::Simple # Default simple tax application # -# LedgerSMB +# LedgerSMB # Small Medium Business Accounting software # http://www.ledgersmb.org/ -# +# # # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used -# with permission. It is released under the GNU General Public License -# Version 2 or, at your option, any later version. See COPYRIGHT file for +# with permission. It is released under the GNU General Public License +# Version 2 or, at your option, any later version. See COPYRIGHT file for # details. # # @@ -30,35 +30,35 @@ use Class::Struct; use Math::BigFloat; struct Taxes::Simple => { - taxnumber => '$', - description => '$', - rate => 'Math::BigFloat', - chart => '$', - account => '$', - value => 'Math::BigFloat', - pass => '$' + taxnumber => '$', + description => '$', + rate => 'Math::BigFloat', + chart => '$', + account => '$', + value => 'Math::BigFloat', + pass => '$' }; sub calculate_tax { - my ($self, $form, $subtotal, $extract, $passrate) = @_; - my $rate = $self->rate; - my $tax = $subtotal * $rate / (Math::BigFloat->bone() + $passrate); - $tax = $subtotal * $rate if not $extract; - return $tax; + my ( $self, $form, $subtotal, $extract, $passrate ) = @_; + my $rate = $self->rate; + my $tax = $subtotal * $rate / ( Math::BigFloat->bone() + $passrate ); + $tax = $subtotal * $rate if not $extract; + return $tax; } sub apply_tax { - my ($self, $form, $subtotal) = @_; - my $tax = $self->calculate_tax($form, $subtotal, 0); - $self->value($tax); - return $tax; + my ( $self, $form, $subtotal ) = @_; + my $tax = $self->calculate_tax( $form, $subtotal, 0 ); + $self->value($tax); + return $tax; } sub extract_tax { - my ($self, $form, $subtotal, $passrate) = @_; - my $tax = $self->calculate_tax($form, $subtotal, 1, $passrate); - $self->value($tax); - return $tax; + my ( $self, $form, $subtotal, $passrate ) = @_; + my $tax = $self->calculate_tax( $form, $subtotal, 1, $passrate ); + $self->value($tax); + return $tax; } 1; |