File Coverage

blib/lib/Medical/Growth/NHANES_2000/BMI_for_Age/Child/Male.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	26	26	100.0

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

package Medical::Growth::NHANES_2000::BMI_for_Age::Child::Male;

our ($VERSION) = '1.00';

use Moo::Lax;    # Vanilla Moo considered harmful

extends 'Medical::Growth::NHANES_2000::Base';

__PACKAGE__->_declare_params_LMS;

# Inlined rather than in a base class - too small to merit reading
# another file
sub bmi {
    my ( $self, $wt_kg, $ht_cm ) = @_;
    return unless $ht_cm and $wt_kg;
    return 10000 * $wt_kg / $ht_cm**2;
}

1;

# bmiagerev, sex = 1

__DATA__