diff options
author | ivan <ivan> | 2011-02-16 11:04:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-02-16 11:04:34 +0000 |
commit | d410e7d2af597373deec489beb19181a3ba301b1 (patch) | |
tree | 3d9a4bf8d7864452cc8e262a7cb829d25fcfdc70 | |
parent | 05e83a01468e88c0f5f9e9c43b62de0e5d95dea4 (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 1677fcc..488b079 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}(@_); } |