whatnext/gist:a33b7bff81c35ed4766add3a3daa6377 Secret

## gistfile1.txt
method extract($filename) {
    my $tinyid = TinyID.new( key => $!key );
    my $hash = $tinyid.encode( crypt_random(Int(32)) );

	$.ess.dbi.set("Jobs").create({
		job_hash => "$hash",
		filename => $filename,
		status => 'started',
		progress => 0
	});

	Thread.start( sub {

        $.ess = ComRate::Extractor::Essentials.new;
        $.ess.job-hash = $hash;

	    CATCH {
	        # will definitely catch all the exception
	        default { .Str.say;
	            my $error = .message~"\n";
	            for .backtrace.reverse {
	                next if .file.starts-with('SETTING::');
	                next unless .subname;
	                $error~= "  in block {.subname} at {.file} line {.line}\n";
	            }

	            $.ess.dbi.set("Jobs").update({
					status=>"internal error",
					internal_error=>$error,
					progress=>0
				},{
					job_hash=>$hash
				});
	        }
	     }

	 	 my $result = $.perform-extraction($filename,$hash);
		 $.ess.dbi.set("Jobs").update({
			status=>"done",
			json_result=>to-json($result)
		},{
			job_hash=>$hash
		});

        $.ess.dbi.dbh.dispose;
     } );

	return {status => "ok", hash => $hash};

}
	method extract($filename) {
	my $tinyid = TinyID.new( key => $!key );
	my $hash = $tinyid.encode( crypt_random(Int(32)) );

	$.ess.dbi.set("Jobs").create({
	job_hash => "$hash",
	filename => $filename,
	status => 'started',
	progress => 0
	});

	Thread.start( sub {

	$.ess = ComRate::Extractor::Essentials.new;
	$.ess.job-hash = $hash;

	CATCH {
	# will definitely catch all the exception
	default { .Str.say;
	my $error = .message~"\n";
	for .backtrace.reverse {
	next if .file.starts-with('SETTING::');
	next unless .subname;
	$error~= " in block {.subname} at {.file} line {.line}\n";
	}

	$.ess.dbi.set("Jobs").update({
	status=>"internal error",
	internal_error=>$error,
	progress=>0
	},{
	job_hash=>$hash
	});
	}
	}

	my $result = $.perform-extraction($filename,$hash);
	$.ess.dbi.set("Jobs").update({
	status=>"done",
	json_result=>to-json($result)
	},{
	job_hash=>$hash
	});

	$.ess.dbi.dbh.dispose;
	} );

	return {status => "ok", hash => $hash};

	}