The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
CLSN / Filter-Unpound-1.1 / t / 02twoways.t 
#!/usr/bin/env perl -w
use Test::More "no_plan";
use strict;

is(qx"$^X t/oneorother.pl",
   <<'EEOOFF', "no debug");
Start
Debugging is OFF
Multi-line debugging... ... is OFF
EEOOFF
    ;


is(qx"$^X -MFilter::Unpound=debug t/oneorother.pl",
   <<'EEOOFF', "debug enabled");
Start
. Debugging is ON
But multi-line debugging... ... is ON
EEOOFF
    ;