Can't locate object method "ToUpper" via package "main" (perhaps you forgot to load "main"?) at \
/usr/lib/perl5/5.6.1/utf8_heavy.pl line 30

##</code><code>##

    $list ||= eval { $caller->$type(); }
        || do "$file.pl"
        || do "$encoding/$file.pl"
        || do "$encoding/Is/${type}.pl"
        || croak("Can't find $encoding character property definition via $caller->$type or $file.pl");

##</code><code>##

	if ($file eq 'To/Upper') {
		$list = do '/usr/lib/perl5/5.6.1/unicode/To/Upper.pl';
	} elsif ($file eq 'To/Lower') {
		$list = do '/usr/lib/perl5/5.6.1/unicode/To/Lower.pl';
	} else {
		$list ||= eval { $caller->$type(); }
			|| do "$file.pl"
			|| do "$encoding/$file.pl"
			|| do "$encoding/Is/${type}.pl"
			|| croak("Can't find $encoding character property definition via $caller->$type or $file.pl");
	}