package SafeHaven;
{
    my $glow_ball;

    sub get_glow_ball {
        return $glow_ball;
    }
    sub set_glow_ball {
        my $self = shift;
        $glow_ball = shift;
    }
}