The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib -e 't' ? 't' : 'test';
use TestML;
use TestMLBridge;

TestML->new(
    testml => join('', <DATA>),
    bridge => 'TestMLBridge',
)->run;

__DATA__

%TestML 0.1.0

Title = "Ingy's Test";
Plan = 4;

*foo == *bar;
*bar == *foo;

=== Foo for thought
--- foo: O HAI
--- bar: O HAI

=== Bar the door
--- bar
O
HAI
--- foo
O
HAI