Select Code to Download

sub trim {
    for (@_) {
...
        s/\s+$//;
    }
}

subtest 'trim' => sub {
    is("leading", trim("   leading"), "trim: leading");
    ... more test cases ...
};

sub trim {
    for (@_) {
...
        s/\s+$//;
    }
}

subtest 'trim' => sub {
    my @test = ("  leading", "trailing  ", "  both  ");
...
    is("'leading', 'trailing', 'both'", $out, "trim: list");
    done_testing();
};