Select Code to Download

package Event;
use base qw(Class::DBI);
...
Event->set_db('Main', 'dbi:mysql:xxx', 'xxx', 'xxx' );

1;

#!/usr/bin/perl -w

...
                 modify_guest => 'modify_guest()'  });
$dbh->disconnect();
exit;

Benchmark: timing 1000 iterations of modify_event, modify_guest...
modify_event:  7 wallclock secs ( 5.25 usr +  0.26 sys =  5.51 CPU)
modify_guest:  5 wallclock secs ( 2.89 usr +  0.15 sys =  3.04 CPU)