37 lines
583 B
Perl
37 lines
583 B
Perl
package TgMagicPdf::Crawler::Task;
|
|
|
|
use v5.38.2;
|
|
|
|
use strict;
|
|
use warnings use feature 'signatures';
|
|
|
|
use utf8;
|
|
|
|
use Moo;
|
|
|
|
use Mojo::Promise;
|
|
|
|
has promise => (
|
|
is => 'ro',
|
|
default => sub { Mojo::Promise->new },
|
|
);
|
|
|
|
has kind => (
|
|
is => 'ro',
|
|
required => 1,
|
|
);
|
|
|
|
has extra_data => (
|
|
is => 'ro',
|
|
default => sub { {} },
|
|
);
|
|
|
|
sub new_collection( $class, $identifiers ) {
|
|
require TgMagicPdf::Crawler;
|
|
return $class->new(
|
|
kind => $TgMagicPdf::Crawler::COLLECTION,
|
|
extra_data => { identifiers => $identifiers }
|
|
);
|
|
}
|
|
1;
|