The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base tests => 2;

is next_block->escaped,
   "line1\nline2";
is next_block->escaped,
   "\tfoo\n\t\tbar\n";

__END__

===
--- escaped escape chomp
line1\nline2
===
--- escaped escape
\tfoo
\t\tbar