Select Code to Download

package booker;

require Exporter;
...
our @EXPORT = qw/Get_Booking_Course_Event/;

1;

    my $ref_booking;
    my $ref_event;
    my $ref_course;
...
    # the arg in this sub cd be one of a number of 
    # things depending on where in the script we are
    do_stuff_with($ref_booking, $ref_course, $ref_event);

    &Get_Booking_Course_Event($ref->{'BookingID'});
    # the arg in this sub cd be one of a number of 
    # things depending on where in the script we are
    do_stuff_with($booker::ref_booking, $booker::ref_course, $booker::
+ref_event);