( 0 .. $#{$args->{inflate_map}} )
};
+ my $src;
+
if (! $args->{collapse} ) {
- return assemble_simple_parser({
+ $src = assemble_simple_parser({
val_index => $val_index,
+ hri_style => $args->{hri_style},
+ prune_null_branches => $args->{prune_null_branches},
});
}
else {
}
});
- return assemble_collapsing_parser({
+ $src = assemble_collapsing_parser({
val_index => $val_index,
collapse_map => $collapse_map,
+ hri_style => $args->{hri_style},
+ prune_null_branches => $args->{prune_null_branches},
});
}
+
+ return (! $args->{eval})
+ ? $src
+ : eval "sub { $src }" || die $@
+ ;
}