Select Code to Download

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

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

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