package Upper;

use strict;
use Default;
use vars qw(@ISA);
@ISA = qw(Default);

sub handle {
	my ($class, $text) = @_;
	return uc($text);
}

1;

################################

package Lower;

use strict;
use Default;
use vars qw(@ISA);
@ISA = qw(Default);

sub handle {
	my ($class, $text) = @_;
	return lc($text);
}

1;