File Coverage

blib/lib/WHO/GrowthReference/Table.pm

Criterion	Covered	Total	%
statement	14	188	7.4
branch	0	78	0.0
condition	0	6	0.0
subroutine	5	8	62.5
pod	1	1	100.0
total	20	281	7.1

package WHO::GrowthReference::Table;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-17'; # DATE
our $DIST = 'WHO-GrowthReference-Table'; # DIST
our $VERSION = '0.013'; # VERSION

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       get_who_growth_reference
               );
our %SPEC;

##### BEGIN DATA #####

### HEIGHT BOY ###

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_boy_0_5y_pct varname=meta_height_boy_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_0_5y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:35 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_boy_0_5y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:02 2018 UTC",
  fields => {
    Day  => { pos => 0, schema => "str*", sortable => 1, summary => "Day", unique => 1 },
    L    => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M    => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    P01  => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1   => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10  => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15  => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25  => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3   => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5   => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50  => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75  => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85  => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90  => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95  => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97  => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99  => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999 => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S    => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Day",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_boy_0_5y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_boy_0_5y_pct varname=data_height_boy_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_0_5y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:35 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_boy_0_5y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_boy_0_5y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_boy_0_5y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_boy_0_5y_z varname=meta_height_boy_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_0_5y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:35 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_boy_0_5y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:18:04 2021 UTC",
  fields => {
    Day => { pos => 0, schema => "str*", sortable => 1, summary => "Day", unique => 1 },
    SD0 => { pos => 5, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 6, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 7, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 3, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 8, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 2, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 9, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 1, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
  },
  header => 1,
  pk => "Day",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_boy_0_5y_z
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_boy_0_5y_z varname=data_height_boy_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_0_5y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:35 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_boy_0_5y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_boy_0_5y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_boy_0_5y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_boy_5_19y_pct varname=meta_height_boy_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_5_19y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_boy_5_19y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:11 2018 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 5, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 6, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 9, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 10, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 11, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 7, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 8, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 12, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 13, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 14, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 15, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 16, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 17, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 18, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 19, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    StDev => { pos => 4, schema => "str*", sortable => 1, summary => "StDev", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_boy_5_19y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_boy_5_19y_pct varname=data_height_boy_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_5_19y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_boy_5_19y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_boy_5_19y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_boy_5_19y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_boy_5_19y_z varname=meta_height_boy_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_5_19y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_boy_5_19y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:18:54 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 10, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 11, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 9, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 12, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 8, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 13, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 7, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 14, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
    SD5neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD5neg", unique => 0 },
    StDev => { pos => 4, schema => "str*", sortable => 1, summary => "StDev", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_boy_5_19y_z
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_boy_5_19y_z varname=data_height_boy_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_boy_5_19y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_boy_5_19y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_boy_5_19y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_boy_5_19y_z


### HEIGHT GIRL ###

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_girl_0_5y_pct varname=meta_height_girl_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_0_5y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_girl_0_5y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:13 2018 UTC",
  fields => {
    Day  => { pos => 0, schema => "str*", sortable => 1, summary => "Day", unique => 1 },
    L    => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M    => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    P01  => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1   => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10  => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15  => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25  => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3   => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5   => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50  => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75  => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85  => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90  => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95  => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97  => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99  => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999 => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S    => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Day",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_girl_0_5y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_girl_0_5y_pct varname=data_height_girl_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_0_5y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_girl_0_5y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_girl_0_5y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_girl_0_5y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_girl_0_5y_z varname=meta_height_girl_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_0_5y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_girl_0_5y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:19:49 2021 UTC",
  fields => {
    Day  => { pos => 0, schema => "str*", sortable => 1, summary => "Day", unique => 1 },
    L    => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M    => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    P01  => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1   => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10  => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15  => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25  => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3   => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5   => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50  => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75  => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85  => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90  => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95  => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97  => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99  => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999 => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S    => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Day",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_girl_0_5y_z
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_girl_0_5y_z varname=data_height_girl_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_0_5y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_girl_0_5y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_girl_0_5y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_girl_0_5y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_girl_5_19y_pct varname=meta_height_girl_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_5_19y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_girl_5_19y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:15 2018 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 5, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 6, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 9, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 10, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 11, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 7, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 8, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 12, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 13, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 14, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 15, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 16, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 17, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 18, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 19, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    StDev => { pos => 4, schema => "str*", sortable => 1, summary => "StDev", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_girl_5_19y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_girl_5_19y_pct varname=data_height_girl_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_5_19y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_girl_5_19y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_girl_5_19y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_girl_5_19y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_height_age_girl_5_19y_z varname=meta_height_girl_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_5_19y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_height_girl_5_19y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:20:23 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 10, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 11, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 9, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 12, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 8, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 13, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 7, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 14, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
    SD5neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD5neg", unique => 0 },
    StDev => { pos => 4, schema => "str*", sortable => 1, summary => "StDev", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_height_age_girl_5_19y_z
# BEGIN FRAGMENT id=data-growth_ref_who_height_age_girl_5_19y_z varname=data_height_girl_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_height_age_girl_5_19y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_height_girl_5_19y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_height_age_girl_5_19y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_height_age_girl_5_19y_z


### WEIGHT BOY ###

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_boy_0_5y_pct varname=meta_weight_boy_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_0_5y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_boy_0_5y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:17 2018 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_boy_0_5y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_boy_0_5y_pct varname=data_weight_boy_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_0_5y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:36 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_boy_0_5y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_boy_0_5y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_boy_0_5y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_boy_0_5y_z varname=meta_weight_boy_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_0_5y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_boy_0_5y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:24:16 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 7, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 8, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 9, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 10, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_boy_0_5y_z
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_boy_0_5y_z varname=data_weight_boy_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_0_5y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_boy_0_5y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_boy_0_5y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_boy_0_5y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_boy_5_10y_pct varname=meta_weight_boy_5_10y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_5_10y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_boy_5_10y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:19 2018 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_boy_5_10y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_boy_5_10y_pct varname=data_weight_boy_5_10y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_5_10y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_boy_5_10y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_boy_5_10y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_boy_5_10y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_boy_5_10y_z varname=meta_weight_boy_5_10y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_5_10y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_boy_5_10y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:24:57 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 8, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 9, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 7, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 10, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 11, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 12, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_boy_5_10y_z
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_boy_5_10y_z varname=data_weight_boy_5_10y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_boy_5_10y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_boy_5_10y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_boy_5_10y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_boy_5_10y_z


### WEIGHT GIRL ###

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_girl_0_5y_pct varname=meta_weight_girl_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_0_5y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_girl_0_5y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:21 2018 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_girl_0_5y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_girl_0_5y_pct varname=data_weight_girl_0_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_0_5y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_girl_0_5y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_girl_0_5y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_girl_0_5y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_girl_0_5y_z varname=meta_weight_girl_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_0_5y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_girl_0_5y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 08:27:49 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 7, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 8, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 9, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 10, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_girl_0_5y_z
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_girl_0_5y_z varname=data_weight_girl_0_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_0_5y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_girl_0_5y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_girl_0_5y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_girl_0_5y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_girl_5_10y_pct varname=meta_weight_girl_5_10y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_5_10y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_girl_5_10y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Aug 21 09:04:23 2018 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_girl_5_10y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_girl_5_10y_pct varname=data_weight_girl_5_10y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_5_10y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_girl_5_10y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_girl_5_10y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_girl_5_10y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_weight_age_girl_5_10y_z varname=meta_weight_girl_5_10y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_5_10y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_weight_girl_5_10y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 08:28:18 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 8, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 9, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 7, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 10, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 11, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 12, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_weight_age_girl_5_10y_z
# BEGIN FRAGMENT id=data-growth_ref_who_weight_age_girl_5_10y_z varname=data_weight_girl_5_10y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_weight_age_girl_5_10y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_weight_girl_5_10y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_weight_age_girl_5_10y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_weight_age_girl_5_10y_z


### BMI BOY ###

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_boy_0_2y_pct varname=meta_bmi_boy_0_2y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_0_2y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_boy_0_2y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 08:32:12 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P1    => { pos => 4, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P15   => { pos => 7, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 8, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 5, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 6, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 9, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 10, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 11, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P95   => { pos => 12, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 13, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 14, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_boy_0_2y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_boy_0_2y_pct varname=data_bmi_boy_0_2y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_0_2y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_boy_0_2y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_boy_0_2y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_boy_0_2y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_boy_0_2y_z varname=meta_bmi_boy_0_2y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_0_2y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_boy_0_2y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 08:32:12 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P1    => { pos => 4, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P15   => { pos => 7, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 8, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 5, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 6, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 9, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 10, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 11, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P95   => { pos => 12, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 13, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 14, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_boy_0_2y_z
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_boy_0_2y_z varname=data_bmi_boy_0_2y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_0_2y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:37 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_boy_0_2y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_boy_0_2y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_boy_0_2y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_boy_2_5y_pct varname=meta_bmi_boy_2_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_2_5y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_boy_2_5y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 08:32:18 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P1    => { pos => 4, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P15   => { pos => 7, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 8, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 5, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 6, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 9, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 10, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 11, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P95   => { pos => 12, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 13, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 14, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_boy_2_5y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_boy_2_5y_pct varname=data_bmi_boy_2_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_2_5y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_boy_2_5y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_boy_2_5y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_boy_2_5y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_boy_2_5y_z varname=meta_bmi_boy_2_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_2_5y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_boy_2_5y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 03:16:56 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 7, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 8, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 9, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 10, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_boy_2_5y_z
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_boy_2_5y_z varname=data_bmi_boy_2_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_2_5y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_boy_2_5y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_boy_2_5y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_boy_2_5y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_boy_5_19y_pct varname=meta_bmi_boy_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_5_19y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_boy_5_19y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 11:31:41 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_boy_5_19y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_boy_5_19y_pct varname=data_bmi_boy_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_5_19y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_boy_5_19y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_boy_5_19y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_boy_5_19y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_boy_5_19y_z varname=meta_bmi_boy_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_5_19y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_boy_5_19y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Sat Jan 16 13:47:14 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 8, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 9, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 7, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 10, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 11, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 12, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_boy_5_19y_z
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_boy_5_19y_z varname=data_bmi_boy_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_boy_5_19y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_boy_5_19y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_boy_5_19y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_boy_5_19y_z


### BMI GIRL ###

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_girl_0_2y_pct varname=meta_bmi_girl_0_2y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_0_2y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_girl_0_2y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 11:59:15 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P1    => { pos => 4, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P15   => { pos => 7, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 8, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 5, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 6, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 9, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 10, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 11, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P95   => { pos => 12, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 13, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 14, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_girl_0_2y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_girl_0_2y_pct varname=data_bmi_girl_0_2y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_0_2y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_girl_0_2y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_girl_0_2y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_girl_0_2y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_girl_0_2y_z varname=meta_bmi_girl_0_2y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_0_2y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_girl_0_2y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 04:56:20 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 7, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 8, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 9, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 10, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    Week => { pos => 0, schema => "str*", sortable => 1, summary => "Week", unique => 1 },
  },
  header => 1,
  pk => "Week",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_girl_0_2y_z
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_girl_0_2y_z varname=data_bmi_girl_0_2y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_0_2y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_girl_0_2y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_girl_0_2y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_girl_0_2y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_girl_2_5y_pct varname=meta_bmi_girl_2_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_2_5y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_girl_2_5y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 08:32:21 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P1    => { pos => 4, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P15   => { pos => 7, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 8, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 5, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 6, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 9, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 10, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 11, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P95   => { pos => 12, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 13, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 14, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_girl_2_5y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_girl_2_5y_pct varname=data_bmi_girl_2_5y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_2_5y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_girl_2_5y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_girl_2_5y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_girl_2_5y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_girl_2_5y_z varname=meta_bmi_girl_2_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_2_5y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:38 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_girl_2_5y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 04:57:10 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 7, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 8, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 9, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 10, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_girl_2_5y_z
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_girl_2_5y_z varname=data_bmi_girl_2_5y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_2_5y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:39 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_girl_2_5y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_girl_2_5y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_girl_2_5y_z

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_girl_5_19y_pct varname=meta_bmi_girl_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_5_19y_pct/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:39 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_girl_5_19y_pct = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Tue Jan  5 11:06:44 2021 UTC",
  fields => {
    L     => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M     => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    P01   => { pos => 4, schema => "str*", sortable => 1, summary => "P01", unique => 0 },
    P1    => { pos => 5, schema => "str*", sortable => 1, summary => "P1", unique => 0 },
    P10   => { pos => 8, schema => "str*", sortable => 1, summary => "P10", unique => 0 },
    P15   => { pos => 9, schema => "str*", sortable => 1, summary => "P15", unique => 0 },
    P25   => { pos => 10, schema => "str*", sortable => 1, summary => "P25", unique => 0 },
    P3    => { pos => 6, schema => "str*", sortable => 1, summary => "P3", unique => 0 },
    P5    => { pos => 7, schema => "str*", sortable => 1, summary => "P5", unique => 0 },
    P50   => { pos => 11, schema => "str*", sortable => 1, summary => "P50", unique => 0 },
    P75   => { pos => 12, schema => "str*", sortable => 1, summary => "P75", unique => 0 },
    P85   => { pos => 13, schema => "str*", sortable => 1, summary => "P85", unique => 0 },
    P90   => { pos => 14, schema => "str*", sortable => 1, summary => "P90", unique => 0 },
    P95   => { pos => 15, schema => "str*", sortable => 1, summary => "P95", unique => 0 },
    P97   => { pos => 16, schema => "str*", sortable => 1, summary => "P97", unique => 0 },
    P99   => { pos => 17, schema => "str*", sortable => 1, summary => "P99", unique => 0 },
    P999  => { pos => 18, schema => "str*", sortable => 1, summary => "P999", unique => 0 },
    S     => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_girl_5_19y_pct
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_girl_5_19y_pct varname=data_bmi_girl_5_19y_pct
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_5_19y_pct/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:39 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_girl_5_19y_pct = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_girl_5_19y_pct"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_girl_5_19y_pct

# BEGIN FRAGMENT id=meta-growth_ref_who_bmi_age_girl_5_19y_z varname=meta_bmi_girl_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_5_19y_z/meta.yaml
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:39 2021 UTC
# generated-by: update-fragments-in-perl-module
our $meta_bmi_girl_5_19y_z = {
  _note => "Automatically generated by gen-meta-yaml-from-data-tsv on Fri Jan 15 05:17:08 2021 UTC",
  fields => {
    L => { pos => 1, schema => "str*", sortable => 1, summary => "L", unique => 0 },
    M => { pos => 2, schema => "str*", sortable => 1, summary => "M", unique => 0 },
    Month => { pos => 0, schema => "str*", sortable => 1, summary => "Month", unique => 1 },
    S => { pos => 3, schema => "str*", sortable => 1, summary => "S", unique => 0 },
    SD0 => { pos => 8, schema => "str*", sortable => 1, summary => "SD0", unique => 0 },
    SD1 => { pos => 9, schema => "str*", sortable => 1, summary => "SD1", unique => 0 },
    SD1neg => { pos => 7, schema => "str*", sortable => 1, summary => "SD1neg", unique => 0 },
    SD2 => { pos => 10, schema => "str*", sortable => 1, summary => "SD2", unique => 0 },
    SD2neg => { pos => 6, schema => "str*", sortable => 1, summary => "SD2neg", unique => 0 },
    SD3 => { pos => 11, schema => "str*", sortable => 1, summary => "SD3", unique => 0 },
    SD3neg => { pos => 5, schema => "str*", sortable => 1, summary => "SD3neg", unique => 0 },
    SD4 => { pos => 12, schema => "str*", sortable => 1, summary => "SD4", unique => 0 },
    SD4neg => { pos => 4, schema => "str*", sortable => 1, summary => "SD4neg", unique => 0 },
  },
  header => 1,
  pk => "Month",
  summary => "(Summary here)",
};
# END FRAGMENT id=meta-growth_ref_who_bmi_age_girl_5_19y_z
# BEGIN FRAGMENT id=data-growth_ref_who_bmi_age_girl_5_19y_z varname=data_bmi_girl_5_19y_z
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/growth_ref_who_bmi_age_girl_5_19y_z/data.tsv
# src-revision: bc4ab07e4280ceb3f7b9b2ca762c464683125c1b (Fri Jan 15 15:29:11 2021 +0700)
# generate-date: Sat Jan 16 13:47:39 2021 UTC
# generated-by: update-fragments-in-perl-module
our $data_bmi_girl_5_19y_z = do { require Data::Section::Seekable::Reader; require Text::CSV; our $dss; $dss //= Data::Section::Seekable::Reader->new; my $ct = $dss->read_part("growth_ref_who_bmi_age_girl_5_19y_z"); my $aoa = Text::CSV::csv(in => \$ct); $aoa };
# END FRAGMENT id=data-growth_ref_who_bmi_age_girl_5_19y_z

##### END DATA #####

my %percentiles = (
    P01 => 0.1,
    P1  => 1,
    P3  => 3,
    P5  => 5,
    P10 => 10,
    P15 => 15,
    P25 => 25,
    P50 => 50,
    P75 => 75,
    P85 => 85,
    P90 => 90,
    P95 => 95,
    P97 => 97,
    P99 => 99,
    P999 => 99.9,
);
my %zscores = (
    SD4neg => -4,
    SD3neg => -3,
    SD2neg => -2,
    SD1neg => -1,
    SD0    => 0,
    SD1    => 1,
    SD2    => 2,
    SD3    => 3,
    SD4    => 4,
);

sub _interpolate {
    my ($x, $x1, $y1, $x2, $y2) = @_;
    sprintf "%.1f", $y1 + ($y2-$y1)/($x2-$x1)*($x-$x1);
}

sub _get_value_at_pct {
    my ($row, $meta, $pct) = @_;
    if    ($pct <   0.1) { undef }
    elsif ($pct <=  1  ) { _interpolate( $pct, 0.1 => $row->[ $meta->{fields}{P01}{pos} ],  1   => $row->[ $meta->{fields}{P1}{pos} ]) }
    elsif ($pct <=  3  ) { _interpolate( $pct,  1  => $row->[ $meta->{fields}{P1}{pos}  ],  3   => $row->[ $meta->{fields}{P3}{pos} ]) }
    elsif ($pct <=  5  ) { _interpolate( $pct,  3  => $row->[ $meta->{fields}{P3}{pos}  ],  5   => $row->[ $meta->{fields}{P5}{pos} ]) }
    elsif ($pct <= 10  ) { _interpolate( $pct,  5  => $row->[ $meta->{fields}{P5}{pos}  ], 10   => $row->[ $meta->{fields}{P10}{pos} ]) }
    elsif ($pct <= 15  ) { _interpolate( $pct, 10  => $row->[ $meta->{fields}{P10}{pos} ], 15   => $row->[ $meta->{fields}{P15}{pos} ]) }
    elsif ($pct <= 25  ) { _interpolate( $pct, 15  => $row->[ $meta->{fields}{P15}{pos} ], 25   => $row->[ $meta->{fields}{P25}{pos} ]) }
    elsif ($pct <= 50  ) { _interpolate( $pct, 25  => $row->[ $meta->{fields}{P25}{pos} ], 50   => $row->[ $meta->{fields}{P50}{pos} ]) }
    elsif ($pct <= 75  ) { _interpolate( $pct, 50  => $row->[ $meta->{fields}{P50}{pos} ], 75   => $row->[ $meta->{fields}{P75}{pos} ]) }
    elsif ($pct <= 85  ) { _interpolate( $pct, 75  => $row->[ $meta->{fields}{P75}{pos} ], 85   => $row->[ $meta->{fields}{P85}{pos} ]) }
    elsif ($pct <= 90  ) { _interpolate( $pct, 85  => $row->[ $meta->{fields}{P85}{pos} ], 90   => $row->[ $meta->{fields}{P90}{pos} ]) }
    elsif ($pct <= 95  ) { _interpolate( $pct, 90  => $row->[ $meta->{fields}{P90}{pos} ], 95   => $row->[ $meta->{fields}{P95}{pos} ]) }
    elsif ($pct <= 97  ) { _interpolate( $pct, 95  => $row->[ $meta->{fields}{P95}{pos} ], 97   => $row->[ $meta->{fields}{P97}{pos} ]) }
    elsif ($pct <= 99  ) { _interpolate( $pct, 97  => $row->[ $meta->{fields}{P97}{pos} ], 99   => $row->[ $meta->{fields}{P99}{pos} ]) }
    elsif ($pct <= 99.9) { _interpolate( $pct, 99  => $row->[ $meta->{fields}{P99}{pos} ], 99.9 => $row->[ $meta->{fields}{P999}{pos} ]) }
    else { undef }
}

$SPEC{get_who_growth_reference} = {
    v => 1.1,
    summary => 'Lookup height/weight in the WHO growth chart (a.k.a. growth reference, growth standards)',
    description => <<'_',

Caveats:

Currently the z-zcore line values (e.g. height_Z1, height_Z-1, etc) are
calculated using linear interpolation.

_
    args => {
        gender => {
            schema => ['str*', in=>['M', 'F']],
            req => 1,
            pos => 0,
            cmdline_aliases => {
                boy    => {is_flag=>1, summary=>'Shortcut for --gender=M', code=>sub { $_[0]{gender} = 'M' }},
                girl   => {is_flag=>1, summary=>'Shortcut for --gender=F', code=>sub { $_[0]{gender} = 'F' }},
                male   => {is_flag=>1, summary=>'Shortcut for --gender=M', code=>sub { $_[0]{gender} = 'M' }},
                female => {is_flag=>1, summary=>'Shortcut for --gender=F', code=>sub { $_[0]{gender} = 'F' }},
                m      => {is_flag=>1, summary=>'Shortcut for --gender=M', code=>sub { $_[0]{gender} = 'M' }},
                f      => {is_flag=>1, summary=>'Shortcut for --gender=F', code=>sub { $_[0]{gender} = 'F' }},
            },
        },
        now => {
            summary => 'Assume now is this date, instead of current date',
            schema => 'date*',
        },
        dob => {
            schema => ['date*'],
            pos => 1,
        },
        age => {
            schema => ['duration*'],
        },
        height => {
            summary => 'Specify height to calculate percentile',
            schema => ['float*', xmin=>0],
            cmdline_aliases => {H=>{}},
        },
        weight => {
            summary => 'Specify weight to calculate percentile',
            schema => ['float*', xmin=>0],
            cmdline_aliases => {W=>{}},
        },
    },
    args_rels => {
        req_one => ['dob', 'age'],
        dep_any => ['now', ['dob']],
    },
    examples => [
        {
            summary => 'Get weight/height information for a boy that is born on May 4, 2017',
            args => {gender => 'M', dob => '2017-05-04'},
        },
        {
            summary => 'Get weight/height information for a 6.5yo girl',
            args => {gender => 'F', age => '6.5y'},
        },
        {
            summary => 'See percentiles/z-scores for a 6yo boy weighing 17kg and having a height of 102cm',
            args => {gender => 'M', age => '6y', weight=>17, height=>102},
        },
    ],
};
sub get_who_growth_reference {
    no strict 'refs'; ## no critic: TestingAndDebugging::ProhibitNoStrict
    require Data::TableData::Lookup;

    my %args = @_;
    my $gender = $args{gender};

    my ($days, $months, $months_f);
    if ($args{dob}) {
        my $dob = $args{dob};
        my $now = $args{now} // time();
        $days     = int(($now - $dob)/86400);
        $months   = int(($now - $dob)/86400/30.4375);
        $months_f = sprintf "%.1f", $months;
    } elsif ($args{age}) {
        my $age = $args{age};
        $days     = int($age / 86400);
        $months   = int($age / 86400/30.4375);
        $months_f = sprintf "%.1f", $months;
    } else {
        return [400, "Please specify age or dob"];
    }

    return [412, "Negative age entered"] if $days < 0;
    return [412, "Over 19 years of age"] if $months > 19*12;

    my $res = [200, "OK", {}];

    $res->[2]{gender} = $gender;
    $res->[2]{age} = "$months_f month(s)";

  GET_HEIGHT_FOR_AGE: {
        my $name = "height_".($gender eq 'M' ? 'boy' : 'girl');
        my $name_potential = $name;
        my $idx;
        if ($days > 1856) {
            $name .= '_5_19y';
            $idx = $months - 61;
        } else {
            $name .= "_0_5y";
            $idx = $days;
        }
        $name_potential .= '_5_19y';

        my $data_potential = ${"data_${name_potential}_pct"};
        my $row_potential  = $data_potential->[-1];

      GET_PCT: {
            my $meta = ${"meta_${name}_pct"};
            my $data = ${"data_${name}_pct"};

            my $row = $data->[$idx];

            $res->[2]{height_mean} = $row->[ $meta->{fields}{P50}{pos} ];

            for (keys %percentiles) {
                $res->[2]{"height_$_"} = $row->[ $meta->{fields}{$_}{pos} ]
                    if $meta->{fields}{$_};
            }
            last unless defined $args{height};
            my $pct = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $row->[ $meta->{fields}{$_}{pos} ],
                    $percentiles{$_},
                ] } grep { $meta->{fields}{$_} }
                    sort {$percentiles{$a} <=> $percentiles{$b}}
                    keys %percentiles],
                lookup_value => $args{height},
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
            $res->[2]{height_percentile} = $pct;
            $res->[2]{height_potential_SD0} = $row_potential->[ $meta->{fields}{P50}{pos} ];
            $res->[2]{height_potential} = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $percentiles{$_},
                    $row_potential->[ $meta->{fields}{$_}{pos} ],
                ] } grep { $meta->{fields}{$_} }
                    sort {$percentiles{$a} <=> $percentiles{$b}}
                    keys %percentiles],
                lookup_value => $pct,
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
        }
      GET_Z: {
            my $meta = ${"meta_${name}_z"};
            my $data = ${"data_${name}_z"};

            my $row = $data->[$idx];

            for (keys %zscores) {
                $res->[2]{"height_$_"} = $row->[ $meta->{fields}{$_}{pos} ]
                    if $meta->{fields}{$_};
            }
            last unless defined $args{height};
            my $z = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $row->[ $meta->{fields}{$_}{pos} ],
                    $zscores{$_},
                ] } grep { $meta->{fields}{$_} }
                    sort {$zscores{$a} <=> $zscores{$b}}
                    keys %zscores],
                lookup_value => $args{height},
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
            $res->[2]{height_zscore} = $z;
        }
  }

  GET_WEIGHT_FOR_AGE: {
        my $name = "weight_".($gender eq 'M' ? 'boy' : 'girl');
        my $name_potential = $name;
        my $idx;
        if ($months > 60) {
            $name .= '_5_10y';
            $idx = $months - 61;
        } else {
            $name .= "_0_5y";
            $idx = $months;
        }
        $name_potential .= '_5_10y';

        my $data_potential = ${"data_${name_potential}_pct"};
        my $row_potential  = $data_potential->[-1];

      GET_PCT: {
            my $meta = ${"meta_${name}_pct"};
            my $data = ${"data_${name}_pct"};

            my $row = $data->[$idx];

            $res->[3]{'func.raw_weight'} = $row;
            $res->[2]{weight_mean} = $row->[ $meta->{fields}{P50}{pos} ];

            for (keys %percentiles) {
                $res->[2]{"weight_$_"} = $row->[ $meta->{fields}{$_}{pos} ]
                    if $meta->{fields}{$_};
            }
            last unless defined $args{weight};
            my $pct = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $row->[ $meta->{fields}{$_}{pos} ],
                    $percentiles{$_},
                ] } grep { $meta->{fields}{$_} }
                    sort {$percentiles{$a} <=> $percentiles{$b}}
                    keys %percentiles],
                lookup_value => $args{weight},
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
            $res->[2]{weight_percentile} = $pct;
        }
      GET_Z: {
            my $meta = ${"meta_${name}_z"};
            my $data = ${"data_${name}_z"};

            my $row = $data->[$idx];

            for (keys %zscores) {
                $res->[2]{"weight_$_"} = $row->[ $meta->{fields}{$_}{pos} ]
                    if $meta->{fields}{$_};
            }
            last unless defined $args{weight};
            my $z = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $row->[ $meta->{fields}{$_}{pos} ],
                    $zscores{$_},
                ] } grep { $meta->{fields}{$_} }
                    sort {$zscores{$a} <=> $zscores{$b}}
                    keys %zscores],
                lookup_value => $args{weight},
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
            $res->[2]{weight_zscore} = $z;
        }
    }

  GET_BMI_FOR_AGE: {
        my $name = "bmi_".($gender eq 'M' ? 'boy' : 'girl');
        my $idx;
        if ($months > 60) {
            $name .= '_5_19y';
            $idx = $months - 61;
        } elsif ($months > 24) {
            $name .= '_2_5y';
            $idx = $months - 24;
        } else {
            $name .= "_0_2y";
            $idx = $months;
        }

        my $bmi;
        if (defined $args{height} && defined $args{weight}) {
            $bmi = $args{weight} / ($args{height}/100)**2;
            $res->[2]{bmi} = $bmi;
        }

      GET_PCT: {
            my $meta = ${"meta_${name}_pct"};
            my $data = ${"data_${name}_pct"};

            my $row = $data->[$idx];

            $res->[2]{bmi_mean} = $row->[ $meta->{fields}{P50}{pos} ];

            for (keys %percentiles) {
                $res->[2]{"bmi_$_"} = $row->[ $meta->{fields}{$_}{pos} ]
                    if $meta->{fields}{$_};
            }
            last unless defined $bmi;
            my $pct = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $row->[ $meta->{fields}{$_}{pos} ],
                    $percentiles{$_},
                ] } grep { $meta->{fields}{$_} }
                    sort {$percentiles{$a} <=> $percentiles{$b}}
                    keys %percentiles],
                lookup_value => $bmi,
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
            $res->[2]{bmi_percentile} = $pct;
        }
      GET_Z: {
            my $meta = ${"meta_${name}_z"};
            my $data = ${"data_${name}_z"};

            my $row = $data->[$idx];

            for (keys %zscores) {
                $res->[2]{"bmi_$_"} = $row->[ $meta->{fields}{$_}{pos} ]
                    if $meta->{fields}{$_};
            }
            last unless defined $bmi;

            my $z = Data::TableData::Lookup::table_vlookup(
                table => [map { [
                    $row->[ $meta->{fields}{$_}{pos} ],
                    $zscores{$_},
                ] } grep { $meta->{fields}{$_} }
                    sort {$zscores{$a} <=> $zscores{$b}}
                    keys %zscores],
                lookup_value => $bmi,
                lookup_field => 0,
                result_field => 1,
                approx       => 1,
                interpolate  => 1,
            );
            $res->[2]{bmi_zscore} = $z;
        }
    }

    $res;
}

1;
# ABSTRACT: Lookup height/weight in the WHO growth chart (a.k.a. growth reference, growth standards)

=pod

=encoding UTF-8

=head1 NAME

WHO::GrowthReference::Table - Lookup height/weight in the WHO growth chart (a.k.a. growth reference, growth standards)

=head1 VERSION

This document describes version 0.013 of WHO::GrowthReference::Table (from Perl distribution WHO-GrowthReference-Table), released on 2024-07-17.

=head1 SYNOPSIS

 use WHO::GrowthReference::Table qw(get_who_growth_reference);

 # get mean height & weight of a 3-year old girl

 my $res = get_who_growth_reference(gender => "F", dob => time() - 3*365.25*86400);
 # => [200, "OK", {
 #      age => "36.0 month(s)",
 #      height_mean => 95.034, # cm
 #      weight_mean => 13.9,   # kg
 #      height_P01  => ..., # height at 0.1% percentile
 #      height_P1   => ..., # height at 1% percentile
 #      height_Z-3  => ..., # height at -3 SD
 #      height_Z-2  => ..., # height at -2 SD
 #      ...
 #     }]

 # you have a 3.5-year old boy weighing at 14.8kg and with a height of 102cm,
 # calculate the percentiles

 my $res = get_who_growth_reference(gender => "M", dob => time() - 3.5*365.25*86400, weight=>14.8, height=>102);
 # => [200, "OK", {
 #      age => "42.0 month(s)",
 #      height_mean => 99.844, # cm
 #      height_percentile => 70.2, # your boy's height is above world average, about 70.2% of boys of the same age are shorter than your boy
 #      height_zscore => ...,
 #      weight_mean => 15.3,   # kg
 #      weight_percentile => 39.6, # your boy's weight is below world average, about 39.6% of boys of the same age weigh less than your boy
 #      weight_zscore => ...,
 #      height_P01 => ...,
 #      ...
 #      height_potential => ...,
 #      height_potential_Z0 => ...,
 #      weight_potential_10y => ...,
 #      weight_potential_10y_Z0 => ...,
 #     }]

=head1 DESCRIPTION

=head1 FUNCTIONS


=head2 get_who_growth_reference

Usage:

 get_who_growth_reference(%args) -> [$status_code, $reason, $payload, \%result_meta]

Lookup heightEweight in the WHO growth chart (a.k.a. growth reference, growth standards).

Examples:

=over

=item * Get weightEheight information for a boy that is born on May 4, 2017:

 get_who_growth_reference(gender => "M", dob => "2017-05-04");

Result:

 [
   200,
   "OK",
   {
     age           => "86.0 month(s)",
     bmi_mean      => 15.521,
     bmi_P01       => 12.198,
     bmi_P1        => 12.861,
     bmi_P10       => 13.917,
     bmi_P15       => 14.194,
     bmi_P25       => 14.627,
     bmi_P3        => 13.288,
     bmi_P5        => 13.528,
     bmi_P50       => 15.521,
     bmi_P75       => 16.55,
     bmi_P85       => 17.17,
     bmi_P90       => 17.622,
     bmi_P95       => 18.343,
     bmi_P97       => 18.848,
     bmi_P99       => 19.896,
     bmi_P999      => 22.044,
     bmi_SD0       => 15.521,
     bmi_SD1       => 17.106,
     bmi_SD1neg    => 14.236,
     bmi_SD2       => 19.116,
     bmi_SD2neg    => 13.171,
     bmi_SD3       => 21.763,
     bmi_SD3neg    => 12.272,
     bmi_SD4       => 24.409,
     bmi_SD4neg    => 11.373,
     gender        => "M",
     height_mean   => 122.675,
     height_P01    => 106.154,
     height_P1     => 110.238,
     height_P10    => 115.824,
     height_P15    => 117.134,
     height_P25    => 119.069,
     height_P3     => 112.62,
     height_P5     => 113.881,
     height_P50    => 122.675,
     height_P75    => 126.281,
     height_P85    => 128.216,
     height_P90    => 129.526,
     height_P95    => 131.469,
     height_P97    => 132.73,
     height_P99    => 135.112,
     height_P999   => 139.196,
     height_SD0    => 122.675,
     height_SD1    => 128.021,
     height_SD1neg => 117.329,
     height_SD2    => 133.367,
     height_SD2neg => 111.983,
     height_SD3    => 138.714,
     height_SD3neg => 106.636,
     height_SD4    => 144.06,
     height_SD4neg => 101.29,
     weight_mean   => 23.303,
     weight_P01    => 15.771,
     weight_P1     => 17.259,
     weight_P10    => 19.65,
     weight_P15    => 20.281,
     weight_P25    => 21.268,
     weight_P3     => 18.224,
     weight_P5     => 18.767,
     weight_P50    => 23.303,
     weight_P75    => 25.635,
     weight_P85    => 27.03,
     weight_P90    => 28.038,
     weight_P95    => 29.636,
     weight_P97    => 30.746,
     weight_P99    => 33.014,
     weight_P999   => 37.512,
     weight_SD0    => 23.303,
     weight_SD1    => 26.885,
     weight_SD1neg => 20.377,
     weight_SD2    => 31.33,
     weight_SD2neg => 17.958,
     weight_SD3    => 36.936,
     weight_SD3neg => 15.937,
     weight_SD4    => 42.542,
     weight_SD4neg => 13.915,
   },
   {
     "func.raw_weight" => [
       86,
       -0.4594,
       23.3029,
       0.13838,
       15.771,
       17.259,
       18.224,
       18.767,
       19.65,
       20.281,
       21.268,
       23.303,
       25.635,
       27.03,
       28.038,
       29.636,
       30.746,
       33.014,
       37.512,
     ],
   },
 ]

=item * Get weightEheight information for a 6.5yo girl:

 get_who_growth_reference(gender => "F", age => "6.5y");

Result:

 [
   200,
   "OK",
   {
     age           => "78.0 month(s)",
     bmi_mean      => 15.32,
     bmi_P01       => 11.645,
     bmi_P1        => 12.365,
     bmi_P10       => 13.525,
     bmi_P15       => 13.832,
     bmi_P25       => 14.315,
     bmi_P3        => 12.832,
     bmi_P5        => 13.096,
     bmi_P50       => 15.32,
     bmi_P75       => 16.492,
     bmi_P85       => 17.206,
     bmi_P90       => 17.728,
     bmi_P95       => 18.57,
     bmi_P97       => 19.165,
     bmi_P99       => 20.41,
     bmi_P999      => 23.013,
     bmi_SD0       => 15.32,
     bmi_SD1       => 17.131,
     bmi_SD1neg    => 13.879,
     bmi_SD2       => 19.482,
     bmi_SD2neg    => 12.704,
     bmi_SD3       => 22.668,
     bmi_SD3neg    => 11.725,
     bmi_SD4       => 25.855,
     bmi_SD4neg    => 10.746,
     gender        => "F",
     height_mean   => 117.977,
     height_P01    => 101.611,
     height_P1     => 105.657,
     height_P10    => 111.19,
     height_P15    => 112.488,
     height_P25    => 114.405,
     height_P3     => 108.016,
     height_P5     => 109.266,
     height_P50    => 117.977,
     height_P75    => 121.549,
     height_P85    => 123.466,
     height_P90    => 124.764,
     height_P95    => 126.688,
     height_P97    => 127.938,
     height_P99    => 130.297,
     height_P999   => 134.343,
     height_SD0    => 117.977,
     height_SD1    => 123.273,
     height_SD1neg => 112.681,
     height_SD2    => 128.569,
     height_SD2neg => 107.385,
     height_SD3    => 133.865,
     height_SD3neg => 102.089,
     height_SD4    => 139.161,
     height_SD4neg => 96.793,
     weight_mean   => 21.227,
     weight_P01    => 13.932,
     weight_P1     => 15.333,
     weight_P10    => 17.626,
     weight_P15    => 18.239,
     weight_P25    => 19.206,
     weight_P3     => 16.252,
     weight_P5     => 16.773,
     weight_P50    => 21.227,
     weight_P75    => 23.591,
     weight_P85    => 25.028,
     weight_P90    => 26.077,
     weight_P95    => 27.761,
     weight_P97    => 28.945,
     weight_P99    => 31.399,
     weight_P999   => 36.41,
     weight_SD0    => 21.227,
     weight_SD1    => 24.877,
     weight_SD1neg => 18.333,
     weight_SD2    => 29.572,
     weight_SD2neg => 15.998,
     weight_SD3    => 35.757,
     weight_SD3neg => 14.087,
     weight_SD4    => 41.942,
     weight_SD4neg => 12.175,
   },
   {
     "func.raw_weight" => [
       78,
       -0.5185,
       21.2274,
       0.1523,
       13.932,
       15.333,
       16.252,
       16.773,
       17.626,
       18.239,
       19.206,
       21.227,
       23.591,
       25.028,
       26.077,
       27.761,
       28.945,
       31.399,
       36.41,
     ],
   },
 ]

=item * See percentilesEz-scores for a 6yo boy weighing 17kg and having a height of 102cm:

 get_who_growth_reference(gender => "M", age => "6y", height => 102, weight => 17);

Result:

 [
   200,
   "OK",
   {
     age                  => "72.0 month(s)",
     bmi                  => 16.3398692810458,
     bmi_mean             => 15.306,
     bmi_P01              => 12.066,
     bmi_P1               => 12.733,
     bmi_P10              => 13.773,
     bmi_P15              => 14.042,
     bmi_P25              => 14.459,
     bmi_P3               => 13.157,
     bmi_P5               => 13.393,
     bmi_P50              => 15.306,
     bmi_P75              => 16.258,
     bmi_P85              => 16.819,
     bmi_P90              => 17.221,
     bmi_P95              => 17.854,
     bmi_P97              => 18.291,
     bmi_P99              => 19.176,
     bmi_P999             => 20.91,
     bmi_percentile       => 76.4593454731863,
     bmi_SD0              => 15.306,
     bmi_SD1              => 16.761,
     bmi_SD1neg           => 14.083,
     bmi_SD2              => 18.52,
     bmi_SD2neg           => 13.04,
     bmi_SD3              => 20.689,
     bmi_SD3neg           => 12.141,
     bmi_SD4              => 22.858,
     bmi_SD4neg           => 11.242,
     bmi_zscore           => 0.71056307975653,
     gender               => "M",
     height_mean          => 115.951,
     height_P01           => 100.726,
     height_P1            => 104.49,
     height_P10           => 109.637,
     height_P15           => 110.845,
     height_P25           => 112.628,
     height_P3            => 106.685,
     height_P5            => 107.847,
     height_P50           => 115.951,
     height_P75           => 119.274,
     height_P85           => 121.057,
     height_P90           => 122.265,
     height_P95           => 124.055,
     height_P97           => 125.217,
     height_P99           => 127.412,
     height_P999          => 131.176,
     height_percentile    => 0.404622741764081,
     height_potential     => 155.876968650372,
     height_potential_SD0 => 176.543,
     height_SD0           => 115.951,
     height_SD1           => 120.878,
     height_SD1neg        => 111.024,
     height_SD2           => 125.804,
     height_SD2neg        => 106.097,
     height_SD3           => 130.731,
     height_SD3neg        => 101.171,
     height_SD4           => 135.658,
     height_SD4neg        => 96.244,
     height_zscore        => -2.83170929760455,
     weight_mean          => 20.514,
     weight_P01           => 13.913,
     weight_P1            => 15.248,
     weight_P10           => 17.361,
     weight_P15           => 17.912,
     weight_P25           => 18.768,
     weight_P3            => 16.105,
     weight_P5            => 16.585,
     weight_P50           => 20.514,
     weight_P75           => 22.48,
     weight_P85           => 23.637,
     weight_P90           => 24.467,
     weight_P95           => 25.767,
     weight_P97           => 26.661,
     weight_P99           => 28.464,
     weight_P999          => 31.948,
     weight_percentile    => 7.67396907216494,
     weight_SD0           => 20.514,
     weight_SD1           => 23.517,
     weight_SD1neg        => 17.996,
     weight_SD2           => 27.129,
     weight_SD2neg        => 15.87,
     weight_SD3           => 31.508,
     weight_SD3neg        => 14.063,
     weight_SD4           => 35.888,
     weight_SD4neg        => 12.256,
     weight_zscore        => -1.46848541862653,
   },
   {
     "func.raw_weight" => [
       72,
       -0.318,
       20.5137,
       0.13372,
       13.913,
       15.248,
       16.105,
       16.585,
       17.361,
       17.912,
       18.768,
       20.514,
       22.48,
       23.637,
       24.467,
       25.767,
       26.661,
       28.464,
       31.948,
     ],
   },
 ]

=back

Caveats:

Currently the z-zcore line values (e.g. height_Z1, height_Z-1, etc) are
calculated using linear interpolation.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

=over 4

=item * B => I

(No description)

=item * B => I

(No description)

=item * B* => I

(No description)

=item * B => I

Specify height to calculate percentile.

=item * B => I

Assume now is this date, instead of current date.

=item * B => I

Specify weight to calculate percentile.


=back

Returns an enveloped result (an array).

First element ($status_code) is an integer containing HTTP-like status code
(200 means OK, 4xx caller error, 5xx function error). Second element
($reason) is a string containing error message, or something like "OK" if status is
200. Third element ($payload) is the actual result, but usually not present when enveloped result is an error response ($status_code is not 2xx). Fourth
element (%result_meta) is called result metadata and is optional, a hash
that contains extra information, much like how HTTP response headers provide additional metadata.

Return value:  (any)

=head1 HOMEPAGE

Please visit the project's homepage at L.

=head1 SOURCE

Source repository is at L.

=head1 SEE ALSO

L uses this module to make growth charts.

For CLI frontends for this module and more, see L.

Source data is from L. Note that
CDC also publishes growth standards; I might write
L too someday.

=head1 AUTHOR

perlancar

=head1 CONTRIBUTING


To contribute, you can send patches by email/via RT, or send pull requests on
GitHub.

Most of the time, you don't need to build the distribution yourself. You can
simply modify the code, then test via:

 % prove -l

If you want to build the distribution (e.g. to try to install it locally on your
system), you can install L,
L,
L, and sometimes one or two other
Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond
that are considered a bug and can be reported to me.

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2024, 2022, 2021, 2018 by perlancar .

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website L

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=cut

__DATA__