package Slicer;
use base Exporter;
use Data::Dumper;
our @EXPORT = qw(slice unslice);

sub slice() {
    my @caller = caller;
    print $caller[0];
    print ":: sliced :" , @_;
}
sub unslice {
    for my $m (@_) {
        eval "sub $m\::slice() {}";
    }
}
1;