App-ENumberUtils

 view release on metacpan or  search on metacpan

devscript/update-data  view on Meta::CPAN

#!/usr/bin/env perl
print "Use update-fragments-in-perl-module script from the gudangdata repo\n";

lib/App/ENumberUtils.pm  view on Meta::CPAN

our $VERSION = '20230301.0.2'; # VERSION

our @EXPORT_OK = qw(
                       list_enumbers
                       list_enumber_ranges
               );

our %SPEC;

# BEGIN FRAGMENT id=meta-e_number varname=meta_e_number
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/e_number/meta.yaml
# src-revision: 1014b595f7c80ead3654b93bd44335dba6d23831 (Wed Mar 1 14:15:02 2023 +0700)
# generate-date: Wed Mar  1 16:44:19 2023 UTC
# generated-by: update-fragments-in-perl-module
our $meta_e_number = {
  fields => {
    code        => {
                     filterable_regex => "Yes",
                     pos => 0,
                     schema => ["str*", { match => "^E[1-9][0-9]{2,3}" }],
                     sortable => "Yes",
                     summary => "Code",
                     unique => "Yes",
                   },

lib/App/ENumberUtils.pm  view on Meta::CPAN

                     summary => "Colour",
                     unique => "No",
                   },
  },
  pk => "code",
  summary => "E number",
};
# END FRAGMENT id=meta-e_number

# BEGIN FRAGMENT id=data-e_number varname=data_e_number
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/e_number/data.csv
# src-revision: 1014b595f7c80ead3654b93bd44335dba6d23831 (Wed Mar 1 14:15:02 2023 +0700)
# generate-date: Wed Mar  1 16:44:19 2023 UTC
# generated-by: update-fragments-in-perl-module
our $data_e_number = [
  ["code", "names", "purpose", "color", "color_index", "status"],
  [
    "E100",
    "Curcumin (from turmeric)",
    "color",
    "Yellow-orange",
    "",
    "Approved in the EU.[8] Approved in the US.[9]",
  ],

lib/App/ENumberUtils.pm  view on Meta::CPAN

    "",
    "",
    "",
    "Approved in 2010[25]",
  ],
  ["E1525", "Hydroxyethyl cellulose", "thickening agent", "", "", ""],
];
# END FRAGMENT id=data-e_number

# BEGIN FRAGMENT id=meta-e_number_range varname=meta_e_number_range
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/e_number_range/meta.yaml
# src-revision: 1014b595f7c80ead3654b93bd44335dba6d23831 (Wed Mar 1 14:15:02 2023 +0700)
# generate-date: Wed Mar  1 16:44:19 2023 UTC
# generated-by: update-fragments-in-perl-module
our $meta_e_number_range = {
  fields => {
    description => {
      filterable_regex => "Yes",
      pos => 2,
      schema => "str*",
      sortable => "Yes",
      summary => "Description",
      unique => "No",
    },

lib/App/ENumberUtils.pm  view on Meta::CPAN

      summary => "Subrange",
      unique => "Yes",
    },
  },
  pk => "subrange",
  summary => "E number range",
};
# END FRAGMENT id=meta-e_number_range

# BEGIN FRAGMENT id=data-e_number_range varname=data_e_number_range
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /home/u1/repos/gudangdata/bin/../table/e_number_range/data.csv
# src-revision: 1014b595f7c80ead3654b93bd44335dba6d23831 (Wed Mar 1 14:15:02 2023 +0700)
# generate-date: Wed Mar  1 16:44:19 2023 UTC
# generated-by: update-fragments-in-perl-module
our $data_e_number_range = [
  ["range", "subrange", "description"],
  ["100-199", "100-199", "Colours"],
  ["100-199", "100-109", "yellows"],
  ["100-199", "110-119", "oranges"],
  ["100-199", "120-129", "reds"],
  ["100-199", "130-139", "blues and violets"],
  ["100-199", "140-149", "greens"],
  ["100-199", "150-159", "browns and blacks"],
  ["100-199", "160-199", "gold and others"],