Yet Another CPAN Grep

CGI-UploadEngine ( R/RO/ROGERHALL/CGI-UploadEngine-0.93.tar.gz, ROGERHALL, 2011; MetaCPAN )

CGI-UploadEngine/Controller/Upload.pm ( view source; MetaCPAN )

e of mine, and remove the exception origin 
		# from the end of the string as it will mess up the JSON
		if($@ =~ /(ERROR:.*)at \/.*/){
			# Exception is mine, handle it
			$c->stash->{'success'} = '"

CGI-UploadEngine ( R/RO/ROGERHALL/CGI-UploadEngine-0.93.tar.gz, ROGERHALL, 2011; MetaCPAN )

CGI-UploadEngine/lib/CGI/UploadEngine.pm ( view source; MetaCPAN )

                            if(!response.responseText.match(/ERROR: /)){ 
					file_id = Ext.util.JSON.decode(response.responseText).success;
					Ext.fly(file_upload_box).remove();
					Ext.fly(file_

 the JSON
					try{
						file_id = Ext.util.JSON.decode(response.responseText).success;
						Ext.fly(file_control).insertHtml('afterBegin', '$error_image'+file_id);
					}catch(e){
						//JSON deco

                        if(!response.responseText.match(/ERROR: /)){ 
    					file_id = Ext.util.JSON.decode(response.responseText).success;
    					Ext.fly(file_upload_box).remove();
    					Ext.f