App-BPOMUtils

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

           serving_size => 175,
           sodium => 0.223,
           sugar => 7.173
         );

        Result:

         [
           200,
           "OK",
           "\n<style>\n  table { border-collapse: collapse; border: 1px solid; }\n  tr.has_bottom_border { border-bottom: 1pt solid black; }\n  // td:first-child { background: red; }\n</style>\n<table><colgroup><col style=\"width:16pt;\"><col style=\...
           { "cmdline.skip_format" => 1 },
         ]

    *   The same example, in vertical text format (color/emphasis is shown
        with markup):

         bpom_show_nutrition_facts(
           carbohydrate => 13.113,
           color => "never",
           fat => 0.223,

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

    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>!;
            $text = "
<style>
  table { border-collapse: collapse; border: 1px solid; }
  tr.has_bottom_border { border-bottom: 1pt solid black; }
  // td:first-child { background: red; }
</style>\n" . $table;
        } else {
            require Text::Table::More;
            $text = Text::Table::More::generate_table(rows => \@rows, color=>1, header_row=>0);
        }
    } elsif ($output_format =~ /linear/) {
        if ($output_format =~ /html/) {
            $text = "
<style>
  p { border-style: solid; }

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

   serving_size => 175,
   sodium => 0.223,
   sugar => 7.173
 );

Result:

 [
   200,
   "OK",
   "\n<style>\n  table { border-collapse: collapse; border: 1px solid; }\n  tr.has_bottom_border { border-bottom: 1pt solid black; }\n  // td:first-child { background: red; }\n</style>\n<table><colgroup><col style=\"width:16pt;\"><col style=\"width:2...
   { "cmdline.skip_format" => 1 },
 ]

=item * The same example, in vertical text format (colorE<sol>emphasis is shown with markup):

 bpom_show_nutrition_facts(
   carbohydrate => 13.113,
   color => "never",
   fat => 0.223,
   output_format => "vertical_text_table",

script/bpom-show-nutrition-facts  view on Meta::CPAN

 % bpom-show-nutrition-facts --carbohydrate 13.113 --color never --fat 0.223 --output-format linear_text --package-size 20 --protein 0.99 --saturated-fat 0.01 --serving-size 175 --sodium 0.223 --sugar 7.173
 *INFORMASI NILAI GIZI*  *JUMLAH PER KEMASAN (20 g*) : *Energi total 10 kkal*, Energi dari lemak 0 kkal, Energi dari lemak jenuh 0 kkal, *Lemak total 0 g (0% AKG)*, *Lemak jenuh 0 g (0% AKG)*, *Protein 0 g (0% AKG)*, *Karbohidrat total 3 g (1% AKG)*,...

=head2 The same example in vetical HTML table format

 % bpom-show-nutrition-facts --carbohydrate 13.113 --fat 0.223 --output-format vertical_html_table --package-size 20 --protein 0.99 --saturated-fat 0.01 --serving-size 175 --sodium 0.223 --sugar 7.173
 
 <style>
   table { border-collapse: collapse; border: 1px solid; }
   tr.has_bottom_border { border-bottom: 1pt solid black; }
   // td:first-child { background: red; }
 </style>
 <table><colgroup><col style="width:16pt;"><col style="width:200pt;"><col style="width:48pt;"><col style="width:48pt;"><col style="width:36pt;"></colgroup>
 <tr><td colspan=5 align="middle"><b>INFORMASI NILAI GIZI</b></td></tr>
 <tbody>
 <tr><td colspan=5><b>JUMLAH PER KEMASAN (20 g</b>)</td></tr>
 <tr class=has_bottom_border><td colspan=5><b>Energi total 10 kkal</b></td></tr>
 <tr><td colspan=3></td><td colspan=2 align="middle"><b>% AKG</b>*</td></tr>
 <tr><td colspan=2><b>Lemak total</b></td><td align="right"><b>0 g</b></td><td align="right">0 %</td><td></td></tr>
 <tr><td colspan=2><b>Lemak jenuh</b></td><td align="right"><b>0 g</b></td><td align="right">0 %</td><td></td></tr>
 <tr><td colspan=2><b>Protein</b></td><td align="right"><b>0 g</b></td><td align="right">0 %</td><td></td></tr>

script/bpom-tampilkan-ing  view on Meta::CPAN

 % bpom-tampilkan-ing --carbohydrate 13.113 --color never --fat 0.223 --output-format linear_text --package-size 20 --protein 0.99 --saturated-fat 0.01 --serving-size 175 --sodium 0.223 --sugar 7.173
 *INFORMASI NILAI GIZI*  *JUMLAH PER KEMASAN (20 g*) : *Energi total 10 kkal*, Energi dari lemak 0 kkal, Energi dari lemak jenuh 0 kkal, *Lemak total 0 g (0% AKG)*, *Lemak jenuh 0 g (0% AKG)*, *Protein 0 g (0% AKG)*, *Karbohidrat total 3 g (1% AKG)*,...

=head2 The same example in vetical HTML table format

 % bpom-tampilkan-ing --carbohydrate 13.113 --fat 0.223 --output-format vertical_html_table --package-size 20 --protein 0.99 --saturated-fat 0.01 --serving-size 175 --sodium 0.223 --sugar 7.173
 
 <style>
   table { border-collapse: collapse; border: 1px solid; }
   tr.has_bottom_border { border-bottom: 1pt solid black; }
   // td:first-child { background: red; }
 </style>
 <table><colgroup><col style="width:16pt;"><col style="width:200pt;"><col style="width:48pt;"><col style="width:48pt;"><col style="width:36pt;"></colgroup>
 <tr><td colspan=5 align="middle"><b>INFORMASI NILAI GIZI</b></td></tr>
 <tbody>
 <tr><td colspan=5><b>JUMLAH PER KEMASAN (20 g</b>)</td></tr>
 <tr class=has_bottom_border><td colspan=5><b>Energi total 10 kkal</b></td></tr>
 <tr><td colspan=3></td><td colspan=2 align="middle"><b>% AKG</b>*</td></tr>
 <tr><td colspan=2><b>Lemak total</b></td><td align="right"><b>0 g</b></td><td align="right">0 %</td><td></td></tr>
 <tr><td colspan=2><b>Lemak jenuh</b></td><td align="right"><b>0 g</b></td><td align="right">0 %</td><td></td></tr>
 <tr><td colspan=2><b>Protein</b></td><td align="right"><b>0 g</b></td><td align="right">0 %</td><td></td></tr>