use strict;
use vars qw($DEBUG);
+use Carp;
use Storable qw(nfreeze);
use MIME::Base64;
use JSON;
use FS::Record qw(qsearchs);
use FS::queue;
-$DEBUG = 1;
+$DEBUG = 0;
sub new {
my $class = shift;
bless $self, $class;
- die "CGI object required as second argument" unless $self->{'cgi'};
+ croak "CGI object required as second argument" unless $self->{'cgi'};
return $self;
}