use FS::Record;
use FS::cust_main;
+use Data::Dumper;
+
@ISA = qw( );
-$DEBUG = 1;
+$DEBUG = 0;
=head1 NAME
my ($method_name, $params) = (shift, shift);
- use Data::Dumper;
#die 'Called _serve without parameters' unless ref($params) eq 'ARRAY';
$params = [] unless (ref($params) eq 'ARRAY');
}
- warn Dumper(@result);
+ warn Dumper(@result) if $DEBUG;
if (grep { UNIVERSAL::can($_, 'hashref') ? 0 : 1 } @result) {
#warn "FS::XMLRPC: One or more objects returned from '${fssub}' doesn't " .