view release on metacpan or  search on metacpan

t/01_test.t  view on Meta::CPAN

use Test::More qw[no_plan];
use strict;
use warnings;

BEGIN { use_ok 'Acme::Drunk' }

my $bac = drunk(
                gender         => MALE, # or FEMALE
                hours          => 2,    # since start of binge
                body_weight    => 150,  # in lbs
                alcohol_weight => 3,    # oz of alcohol
               );

cmp_ok( sprintf("%.2f",$bac), '==', sprintf("%.2f",0.125491176470588) );