package Fruit::Apple;
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(cut);
use strict;
use Fruit;

sub cut;

sub cut {
 my $thing = $_[0];
 defined $thing or $thing = 'default_thing';
 # cut here.. and then also use slice...
 slice 'mango';
 slice;
}
1;