Your code was difficult to get to run, but as far as I got in the error messages, a google search led me to base class and subclass problem

Also see Simple Module Tutorial. I got your code to basically compile by adding

package L_Switch;

use Exporter;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw/Exporter/;
%EXPORT_TAGS = (all => \@EXPORT_OK );
[download]