The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%TestML 1.0

Plan = 3;

*what.combine(*who) == *greeting;
*what.combine('and', *else) == *greeting;
*what.combine('and', *else.my_upper) == *upper_greeting;

=== Dear John
--- what: Dear
--- who: John
--- greeting: Dear John

=== Greetings and Salutations
--- what: Greetings
--- else: Salutations
--- greeting: Greetings and Salutations
--- upper_greeting: Greetings and SALUTATIONS