package Slicer;

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

use constant slice => $ENV{SLICE};

sub sliced {
    return unless slice;

    my @caller = caller;
    print $caller[0];
    print ":: sliced :" , @_;
}

1;