package Slicer;

use base Exporter;
our @EXPORT = qw( slice );

sub _slice {
    my @caller = caller;
    print $caller[0];
    print ":: sliced :" , @_;
    return 1;
}

if ($ENV{SLICE}) {
   *slice = \&_slice;
} else {
   require constant;
   import constant slice => 0;
}

1;