Convert::Temperature - Convert Temperatures

Convert-Temperature documentation Contained in the Convert-Temperature distribution.

Index

Code Index:

NAME

Top

Convert::Temperature - Convert Temperatures

VERSION

Top

Version 0.03

SYNOPSIS

Top

  use Convert::Temperature;

  my $c = new Convert::Temperature();

  my $res = $c->from_fahr_to_cel('59'); => result in Celsius
  ...

FUNCTIONS

Top

new

Creates a new Temperature::Convert object.

    my $c = new Convert::Temperature();

from_fahr_to_cel

Convert from Fahrenheit to Celsius

    my $res = $c->from_fahr_to_cel('59');

from_cel_to_fahr

Convert from Celsius to Fahrenheit

    my $res = $c->from_cel_to_fahr('31');

from_fahr_to_kelvin

Convert from Fahrenheit to Kelvin

    my $res = $c->from_fahr_to_kelvin('59');

from_kelvin_to_fahr

Convert from Kelvin to Fahrenheit

    my $res = $c->from_kelvin_to_fahr('215');

from_fahr_to_rankine

Convert from Fahrenheit to Rankine

    my $res = $c->from_fahr_to_rankine('59');

from_rankine_to_fahr

Convert from Rankine to Fahrenheit

    my $res = $c->from_rankine_to_fahr('518');

from_fahr_to_reaumur

Convert from Fahrenheit to Reaumur

    my $res = $c->from_fahr_to_reaumur('59');

from_reaumur_to_fahr

Convert from Reaumur to Fahrenheit

    my $res = $c->from_reaumur_to_fahr('12');

SUPPORT

Top

You can find documentation for this module with the perldoc command.

    perldoc Convert::Temperature

AUTHOR

Top

Filipe Dutra, <mopy@cpan.org<gt>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2008 by Filipe Dutra

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.

Convert-Temperature documentation Contained in the Convert-Temperature distribution. 
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__