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

run {};

sub foo {
    is filter_arguments, '123,456';
    return;
}

sub bar {
    is filter_arguments, '---holy-crow+++';
    is $_, "one\n  two\n";
    return;
}

__DATA__
===
--- xxx foo=123,456

=== 
--- xxx bar=---holy-crow+++
one
  two