@EXPORT_OK = qw( load_clientapi_modules );
-$DEBUG = 0;
+$DEBUG = 1;
$me = '[FS::ClientAPI]';
%handler = ();
my ( $self, $name ) = ( shift, shift );
$name =~ s(/)(::)g;
my $sub = "FS::ClientAPI::$name";
- warn "$me dispatch: calling $sub\n" if $DEBUG;
+ warn "$me dispatch: calling $sub with args @_\n" if $DEBUG;
no strict 'refs';
&{$sub}(@_);
}