#!/usr/bin/perl
use Slicer;
#unslice  'SomeModule';
use strict;
use SomeModule;

#use constant slice => 0;
#sub slice() {} ;

sub mainsub {
    my $x = 12;#more code....
    &slice("mainsub\n");
}

slice && print "&& sliced\n";
print "if sliced\n" if slice;
&slice(debug => "main\n");

mainsub;
SomeModule::something;

slice;