X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI.pm;h=1fea28c6733fd2ca0daa3704e3e6686d043487b0;hb=ff828e261210e8d4f1ddf51600d99e2cb1a914cd;hp=1677fcc5d0d26ca063525e274663f3496f372dad;hpb=bcff37f04c502c60fea1e2824841eb2007a07ccd;p=freeside.git diff --git a/FS/FS/ClientAPI.pm b/FS/FS/ClientAPI.pm index 1677fcc5d..1fea28c67 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 with args @_\n" if $DEBUG; no strict 'refs'; &{$sub}(@_); }