package MyApp::ControllerOne;
use base 'MyApp::Base';

$self->sis->add_event("event name");
$self->sis->log_event("message");
$self->sis->uuid();

package MyApp::Base;
use base 'CGI::Application';
 
sub sis {
    my $self = shift;
    unless ( $self->{__sis} ) {
        $self->{__sis} = Company::Dept->new($dbh, $uname);
    }
    return $self->{__sis};
}