RecipeParser.pm

package DU::RecipeParser;

use 5.16.1;
use warnings;

use Pegex;
use Sub::Exporter::Progressive -setup => {
  exports => [qw( decode_recipe encode_recipe )],
  groups => {
    default => [qw( decode_recipe encode_recipe )],
  },
};
use Lingua::EN::Inflect 'PL';

my $grammar = <<'PEGEX';
%grammar drinkup
%version 0.0.1

recipe:
    cocktail
    description
    ingredients ~
    footers

cocktail: /
    (: ~ <EOL> )?   # Leading whitespace?
    (<NS> <ANY>*?)  # Cocktail name. Capture it.
    ~ <EOL>         # Trailing whitespace
/

description: /
    (<ALL>*?)       # Description text
    <EOL>+
    (= <BLANK>* <STAR> ) # Not the ingredients
/

# Ingredient parts
ingredients: ingredient+

ingredient:
    / <SPACE>* <STAR> <SPACE>* /
    number
    / <SPACE>* /
    unit
    / <SPACE>* /
    name
    / <SPACE>* <EOL> /
    note?

# probably need to attempt to parse 1 1/2 or 1 + 1/2
# cribbed from json-pgx, minus the exponent version because if you use that
# in a recipe you should change your units!
number: /(
   (: 0 | [1-9] <DIGIT>* )?
   (: <DOT> <DIGIT>+ )?
   (: ~ <PLUS>? ~ <DIGIT>+ ~ <SLASH> ~ <DIGIT>+ )?
)/

ounce: /(?i:ounces? | oz)/

tablespoon: /(?i:tbsp|tablespoons?|(?-i:T\s))/

teaspoon: /(?i:tsp|teaspoons?|(?-i:t\s))/

dash: /(?i:dash(:es)?)/

unit:   (<ounce>|<tablespoon>|<teaspoon>|<dash>)/(?i: ~ of)?/

name:   / (<ANY>+?) ~ (= <EOL>) /

note:   / <SPACE>* <HASH> <SPACE>* (<ANY>+?) <SPACE>* <EOL> /

footers: metadata+

metadata: / (<footer_name>) <COLON> <SPACE>* (<ANY>+?) ~ <EOL> /

footer_name: / [<WORDS>-]+ /
PEGEX

sub decode_recipe {
   pegex($grammar, {receiver => 'DU::RecipeParser::Data'})->parse($_[0]);
}

sub encode_recipe {
   my $ingredients;

   for my $i (@{$_[0]->{ingredients}}) {
      $ingredients .= " * $i->{amount} " . PL($i->{unit}, $i->{amount})
         . " of $i->{name}\n";
      $ingredients .= " # $i->{note}\n" if $i->{note};
   }

   my $source = '';
   $source = "Source: $_[0]->{source}" if $_[0]->{source};
   my $variant = '';
   $variant = "Variant_of_Drink: $_[0]->{variant_of_drink}"
      if $_[0]->{variant_of_drink};

<<"RECIPE";
$_[0]->{name}

$_[0]->{description}

$ingredients
$source
$variant
RECIPE
}

package DU::RecipeParser::Data;
use base 'Pegex::Receiver';

my $data;

sub initial {
    $data = {};
}

sub got_unit { $_[1]->[0] }

sub got_cocktail {
    $data->{name} = $_[1];
}

sub got_ounce { 'ounce' }
sub got_tablespoon { 'tablespoon' }
sub got_teaspoon { 'teaspoon' }
sub got_dash { 'dash' }

sub got_description {
    $data->{description} = $_[1];
}

sub got_instructions {
    $data->{instructions} = $_[1];
}

sub got_ingredients {
    $data->{ingredients} = [
        map +{
           amount => 0 + $_->[0],
           unit => $_->[1],
           name => $_->[2],
           ($_->[3] ? (note => $_->[3]) : ()),
        }, @{$_[1]}
    ];
}

sub got_metadata {
    $data->{lc $_[1]->[0]} = $_[1]->[1]
}

sub final {
    return $data;
}

1;