File Coverage

blib/lib/Convert/Temperature.pm

Criterion	Covered	Total	%
statement	29	45	64.4
branch			n/a
condition			n/a
subroutine	8	12	66.6
pod	9	10	90.0
total	46	67	68.6

package Convert::Temperature;

use strict;
use warnings;

our $VERSION = '0.03';

sub new {
    my $class = shift;
    my $self= bless {},$class;

    return $self;
}

sub from_fahr_to_cel {
    my $self = shift;
    my $fahr = shift;

    $self->{'res_celsius'} = ($fahr -32) /1.8;

    return $self->{'res_celsius'};
}

sub from_cel_to_fahr {
    my $self = shift;
    my $cel = shift;

    $self->{'res_fahrenheit'} =  $cel * 1.8 + 32;

    return $self->{'res_fahrenheit'};
}

sub from_fahr_to_kelvin{
    my $self = shift;
    my $fahr = shift;

    $self->{'res_kelvin'} = ($fahr + 459.67) / 1.8;

    return $self->{'res_kelvin'};
}

sub from_kelvin_to_fahr {
    my $self = shift;
    my $kelvin = shift;

    $self->{'res_kelvin'} = $kelvin * 1.8 - 459.67;

    return $self->{'res_kelvin'};
}

sub from_fahr_to_rankine {
    my $self = shift;
    my $fahr = shift;

    $self->{'res_rankine'} = $fahr + 459.67;

    return $self->{'res_rankine'};
}

sub from_rankine_to_fahr {
    my $self = shift;
    my $rankine = shift;

    $self->{'res_rak_fahr'} = $rankine - 459.67;

    return $self->{'res_rak_fahr'};
}

sub from_fahr_to_reaumur {
    my $self = shift;
    my $fahr = shift;

    $self->{'res_fahr_reamur'} = ($fahr - 32) / 2.25;

    return  $self->{'res_fahr_reamur'};
}

sub from_reaumur_to_fahr {
    my $self = shift;
    my $reaumur = shift;

    $self->{'res_reaumur_fahr'} = $reaumur * 2.25 +32;

    return $self->{'res_reaumur_fahr'};
}

sub extra {
    my $self = shift;
    my $extra = "To my Mom. Maria Luisa Mesquista (1954 - 2007)";

    $self->{'extra'} = $extra;
    return $self->{'extra'};
}

1;

__END__