diff -up Switch-2.17/Switch.pm.fixme Switch-2.17/Switch.pm

--- Switch-2.17/Switch.pm.fixme	2014-06-10 13:03:40.395988520 -0400

+++ Switch-2.17/Switch.pm	2014-06-10 13:04:50.909488953 -0400

@@ -25,9 +25,11 @@ my ($Perl5, $Perl6) = (0,0);

 sub import

 {

+	my ($class) = @_;

+	my $self = bless {}, $class;

 	$fallthrough = grep /\bfallthrough\b/, @_;

 	$offset = (caller)[2]+1;

-	filter_add({}) unless @_>1 && $_[1] eq 'noimport';

+	filter_add($self) unless @_>1 && $_[1] eq 'noimport';

 	my $pkg = caller;

 	no strict 'refs';

 	for ( qw( on_defined on_exists ) )