package Cswitch;
use strict;
use warnings;
use Devel::Declare;

sub import {
    print "Import called with @_";
    my $class = shift;
    my $caller = caller;

    Devel::Declare::setup_for(
        $caller,
        {
            switch => { const => \&pSwitch },
            case   => { const => \&pcase },
        }
    );
    no strict;
    *{ $caller . '::switch' } = sub () { };
    *{ $caller . '::case'   } = sub () { };
}

sub pSwitch {
    print "pSwitch: @_";
}
sub pCase {
    print "pCase: @_";
}

1;