use Carp 'croak';

my $funct= sub {
    my $var= shift;
    croak '$var was passed an uninitialized value'
        if not defined $var;
    ...
};