Re^2: wxPerl Simulated 7 Segment LCD Display

[BrowserUk]

Simpler, safer, and clearer:

Or just:

# Table lookup for character to segment translation
sub Decode { $ctbl{ $_[0] } // $ctbl{ '=' } }