use TestML -run, -bridge => 'main';
sub upper {
my $self = shift;
return uc($self->value);
}
__DATA__
%TestML 1.0
*foo.upper() == *bar;
=== Foo for thought
--- foo: o hai
--- bar: O HAI
=== Bar the door
--- foo
o
Hai
--- bar
O
HAI
use TestML -run, -bridge => 'main';
sub upper {
my $self = shift;
return uc($self->value);
}
__DATA__
%TestML 1.0
*foo.upper() == *bar;
=== Foo for thought
--- foo: o hai
--- bar: O HAI
=== Bar the door
--- foo
o
Hai
--- bar
O
HAI