#!/usr/bin/env perl

use 5.036;
use strict;
use warnings;
use lib './lib';

use CookLang;
my $text = q{
>> source: https://www.dinneratthezoo.com/wprm_print/6796
>> total time: 6 minutes
>> servings: 2

Place the @apple juice{1,5%cups}, @banana{one sliced}, @frozen mixed berries{1,5%cups} and @vanilla greek yogurt{3/4%cup} in a #blender{}; blend until smooth. If the smoothie seems too thick, add a little more liquid (1/4 cup). 

Taste and add @honey{} if desired. Pour into two glasses and garnish with fresh berries and mint sprigs if desired.
};
my $recipe = Recipe->new( $text );
my $rast = $recipe->ast;
use Data::Dumper 'Dumper';
$Data::Dumper::Indent = 2;
$Data::Dumper::Sortkeys = 1;
warn Dumper([ $rast ]), ' ';
