The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package t::testml::bridge;

sub upper {
    my $string = (shift)->value;
    return uc($string);
}

1;