15 lines
294 B
Perl
15 lines
294 B
Perl
package Summary;
|
|
|
|
use v5.38.0;
|
|
use App::OpenAI qw/$open_ai_api/;
|
|
use Future::AsyncAwait;
|
|
use Future;
|
|
use Prompts qw/get_prompt/;
|
|
|
|
async sub get_summary($service, $article, $meta) {
|
|
my $prompt = get_prompt('summarize', $service, {meta => $meta});
|
|
|
|
print $prompt;
|
|
|
|
return Future->done();
|
|
}
|