added "api_name" wrapper method

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@82 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 1f5325a..35e72b6 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -21,6 +21,11 @@ $log = 'OpenSRF::Utils::Logger';
 our $in_request = 0;
 our @pending_requests;
 
+sub api_name {
+       my $self = shift;
+       return $self->{api_name};
+}
+
 sub server_class {
        my $class = shift;
        if($class) {