App-BPOMUtils
view release on metacpan or search on metacpan
lib/App/BPOMUtils.pm view on Meta::CPAN
}
if ($output_format eq 'raw_table') {
} elsif ($output_format =~ /vertical/) {
push @rows, [{colspan=>5, $attr=>$code_fmttext->("/*Persen AKG berdasarkan kebutuhan energi 2150 kkal. Kebutuhan energi Anda mungkin lebih tinggi atau lebih rendah./")}];
} elsif ($output_format =~ /linear/) {
push @rows, $code_fmttext->( "/Persen AKG berdasarkan kebutuhan energi 2150 kkal. Kebutuhan energi Anda mungkin lebih tinggi atau lebih rendah./");
}
OUTPUT:
if ($output_format eq 'raw_table') {
return [200, "OK", \@rows, {'table.fields'=>[qw/name_eng name_ind val_per_100g val_per_srv val_per_srv_R val_per_pkg val_per_pkg_R pct_dv pct_dv_R/]}];
}
my $text;
if ($output_format =~ /vertical/) {
if ($output_format =~ /html/) {
require Text::Table::HTML;
my $table = Text::Table::HTML::table(rows => \@rows, header_row=>0);
$table =~ s!<table>!<table><colgroup><col style="width:16pt;"><col style="width:200pt;"><col style="width:48pt;"><col style="width:48pt;"><col style="width:36pt;"></colgroup>!;
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
745,
"Sawi (Mustard Greens)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
746,
"SAWI PUTIH (CHINESE CABBAGE)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[747, "Sawo (Sapodilla)", "Bahan Baku", "NO", "NO", "NO", "YES"],
[
748,
"Sayap Ayam (Chicken Wing)",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
757,
"Puree Apel (Apple Puree)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
758,
"PUREE BAWANG PUTIH (GARLIC PUREE)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
759,
"PUREE BLACKBERRY (BLACKBERRY PUREE)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
774,
"Puree Tomat (Tomato Puree)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
775,
"PUTIH TELUR (EGG WHITE)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
776,
"PUTIH TELUR BUBUK (EGG WHITE POWDER)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
777,
"PUTIH TELUR PADAT (EGG WHITE SOLID)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
778,
"QUERCETIN (BERUPA ISOLAT DARI BANYAK TANAMAN)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
1028,
"Lada Putih (White Pepper)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1029,
"LADA PUTIH BUBUK (WHITE PEPPER POWDER)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1030,
"LAKTOFERIN (LACTOFERRIN)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
1148,
"Minyak Bawang Merah (Shallot Oil)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1149,
"MINYAK BAWANG PUTIH (GARLIC OIL)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1150,
"MINYAK BERAS (RICE BRAN OIL)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
1175,
"MINYAK KAYU MANIS (CINNAMON OIL)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1176,
"MINYAK KAYU PUTIH (EUCALYPTUS OIL)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1177,
"Lemak Reroti (Shortening)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
1787,
"JINTAN-JINTEN MANIS (ANISE)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1788,
"JINTAN-JINTEN PUTIH-CUNICUM CYMINUM (CUMIN)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[1789, "JUNIPER BERRIES", "Bahan Baku", "NO", "NO", "NO", "YES"],
[
1790,
"Kacang Alas/ Biji Sengon",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
1828,
"Kacang Merah (Red Bean-Kidney Bean)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1829,
"KACANG NAVY - KACANG PUTIH (NAVY BEANS - WHITE PEA)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
1830,
"KACANG PANJANG (YARDLONG BEAN)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
],
[
1839,
"Kacang Polong-Ercis (Greenpeas)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[1840, "KACANG PUTIH ", "Bahan Baku", "NO", "NO", "NO", "NO"],
[
1841,
"Kacang Tanah (Peanut)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
2190,
"COKELAT COMPOUND BUTIR (CHOCOLATE COMPOUND GRANULE)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2191,
"COKELAT COMPOUND PUTIH (WHITE CHOCOLATE COMPOUND)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2192,
"Cokelat Compound Susu (Milk Chocolate Compound)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
2210,
"Combrang - Kecombrang (Etlingera elatior)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2211,
"COMPOUND PUTIH (WHITE COMPOUND)",
"Bahan Baku",
"NO",
"NO",
"NO",
"NO",
],
[
2212,
"CORNFLOWER (CENTAURA CYANUS)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
2401,
"BUMBU RASA PIZZA (PIZZA FLAVORED SEASONING)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2402,
"BUMBU RASA RUMPUT LAUT (SEAWEED FLAVORED SEASONING )",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[2403, "BUBUK LECI ", "Bahan Baku", "NO", "NO", "NO", "NO"],
[
2404,
"Bubuk Mutiara (Pearl Powder)",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
2480,
"BUMBU RASA BAWANG (ONION FLAVORED SEASONING)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2481,
"BUMBU RASA BAWANG PUTIH (GARLIC FLAVORED SEASONING)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2482,
"BUMBU RASA COKELAT (CHOCOLATE FLAVORED SEASONING)",
"Bahan Baku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
],
[
2555,
"Anggur Putih (White Wine)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[2556, "ANGGUR PUTIH BUBUK", "Bahan Baku", "NO", "NO", "NO", "NO"],
[
2557,
"Apel Bubuk (Apple Powder)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
2620,
"Bawang Putih Bubuk (Garlic Powder)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2621,
"BAWANG PUTIH GILING (GRINDED GARLIC)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
],
[
2622,
"Bawang Putih Goreng (Fried Garlic)",
"Bahan Baku",
( run in 0.275 second using v1.01-cache-2.11-cpan-4e96b696675 )