The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use v5.10;
use MooseX::Declare;
class VAST::Chaining {
    use Mildew::AST::Helpers;
    method emit_m0ld {
        # chainging
        if (@{$self->{chain}} != 3) {
            XXX;
        }
        fcall '&infix:'.$self->{chain}[1]{SYM},[$self->{chain}[0]->emit_m0ld,$self->{chain}[2]->emit_m0ld];
    }
}