3 package Debian::Dgit::ExitStatus;
5 # To use this, at the top (before use strict, even):
7 # END { $? = $Debian::Dgit::ExitStatus::desired // -1; };
8 # use Debian::Dgit::ExitStatus;
10 # and then replace every call to `exit' with `finish'.
11 # Add a `finish 0' to the end of the program.
16 @EXPORT = qw(finish $desired);
22 $desired = $_[0] // 0;