diff options
author | ivan <ivan> | 2011-02-16 11:04:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-02-16 11:04:33 +0000 |
commit | 12d7aa6074b038d29f6a8ceae6090d25645a53fc (patch) | |
tree | fa99f44d9cbdea7243933faed128db2938811607 | |
parent | 47ac94800061b47fd8e789738de58fd8c1210d1c (diff) |
add debugging
-rw-r--r-- | FS/FS/ClientAPI.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/ClientAPI.pm b/FS/FS/ClientAPI.pm index 1677fcc5d..488b079f2 100644 --- a/FS/FS/ClientAPI.pm +++ b/FS/FS/ClientAPI.pm @@ -2,11 +2,12 @@ package FS::ClientAPI; use strict; use base 'Exporter'; -use vars qw( @EXPORT_OK %handler $domain $DEBUG ); +use vars qw( @EXPORT_OK %handler $domain $DEBUG $me ); @EXPORT_OK = qw( load_clientapi_modules ); $DEBUG = 0; +$me = '[FS::ClientAPI]'; %handler = (); @@ -34,6 +35,7 @@ sub dispatch { my ( $self, $name ) = ( shift, shift ); $name =~ s(/)(::)g; my $sub = "FS::ClientAPI::$name"; + warn "$me dispatch: calling $sub\n" if $DEBUG; no strict 'refs'; &{$sub}(@_); } |