File Coverage

blib/lib/Finance/Salary/Rate.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch			n/a
condition			n/a
subroutine	11	12	91.6
pod	1	7	14.2
total	39	48	81.2

use utf8;
package Finance::Salary::Rate;
our $VERSION = '0.001';
use Moo;
use Types::Standard qw(Num);
use namespace::autoclean;

# ABSTRACT: Calculate hourly rates for small businesses

has monthly_income => (
    is       => 'ro',
    isa      => Num,
    required => 1,
);

has vacation_perc => (
    is        => 'ro',
    isa       => Num,
    default   => 0,
);

has tax_perc => (
    is        => 'ro',
    isa       => Num,
    default   => 0,
);

has healthcare_perc => (
    is        => 'ro',
    isa       => Num,
    default   => 0,
);

has declarable_days_perc => (
    is        => 'ro',
    isa       => Num,
    default   => 60,
);

has working_days => (
    is        => 'ro',
    isa       => Num,
    default   => 230,
);

has expenses => (
    is        => 'ro',
    isa       => Num,
    default   => 0,
);

sub gross_income {
    my $self = shift;
    return $self->income * (1 + $self->_get_perc($self->tax_perc));
}

sub _get_perc {
    my ($self, $perc) = @_;
    return $perc / 100;
}

sub get_healthcare_fee {
    my $self = shift;
    return $self->gross_income * $self->_get_perc($self->healthcare_perc)
}

sub workable_hours {
    my $self = shift;
    return
          $self->working_days * 8
        * $self->_get_perc($self->declarable_days_perc);
}

sub required_income {
    my $self = shift;
    return $self->gross_income + $self->expenses;
}

sub hourly_rate {
    my $self = shift;
    return $self->required_income / $self->workable_hours;
}

sub vacation_pay {
    my $self = shift;
    return $self->_get_perc($self->healthcare_perc)
}

sub income {
    my $self = shift;
    my $income = $self->monthly_income * 12;
    return $income * ( 1 + $self->_get_perc($self->vacation_perc));
}

1;

__END__