The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use t::ParserTest;

__END__

===
--- code
($t.p ~ "a")
--- expected
(statements (string_concat (methodcall (variable "$t") (ident "p")) (string "a")))