package X;
use strict;
use Exporter 'import';
use vars '@EXPORT_OK';
@EXPORT_OK = qw(func1 func2 );
sub func1 { ... };
sub func2 { ... };

sub should_stop { ... };

until (should_stop()){...}

##</code><code>##

local *X::should_stop = sub { return 1 };
require X;
X->import('func1');