Use of uninitialized value $exit in exit at (file) line (20)

temp.pl

sub process_and_exit {
    my $self = shift;
    my ($child_pid) = @_; 

    my $guard = Scope::Guard->new(sub {
        eval { $self->_die("Scope Leak inside collector") };
        exit(255);
    }); 

    my $exit = 0;

    unless (eval { $exit = $self->process($child_pid); 1 }) {
        my $err = $@; 
        eval { $self->_die($err) } or $self->_warn($@);
        $exit = 255;
    }   

    eval { $guard->dismiss() };

    exit($exit);
}