Select Code to Download

package MyApp::ControllerOne;
use base 'MyApp::Base';
...
    }
    return $self->{__sis};
}

package Company::Dept;

...

sub dbh { return $self->{__dbh} }
sub uname {return $self->{__uname}  }

package Company::Dept::EventLogging;

...

sub aaa { }
sub bbb {}