use Test;
BEGIN { plan tests => 1 }
# Need to define the subs BEFORE the 'use Inline' statement, since the
# Python code will run them.
my $build_stage;
my $load_stage;
sub login {
    $build_stage ? $load_stage++ : $build_stage++;
}
use Inline Config => DIRECTORY => './blib_test';
use Inline Python;
die "Error -- code was run both in build and load stages!"
  if $build_stage && $load_stage;
ok(1);
__END__
__Python__
# Put some code in the 'main' section -- it will be run during
# Inline's "build" phase, but NOT run again in the "load" phase.
perl.login();