Select Code to Download

subtest 'test name' => sub { my_subtest($xml, @other_args) };

#!/usr/bin/env perl

...
        fail('No tests indicated');
    }
}

$ pm_test_more_subtest.pl
1..9
...
ok 8 - xml_subtest($xml, {test_content => 1})
ok 9 - POST subtest
# Looks like you failed 4 tests of 9.