How to do it - attributes
file: code/Attributes/find_new_series.pl
1: #!/use/bin/env perl
2: use strict;
3: use warnings;
4: use 5.014;
5: use FindBin;
6: use lib $FindBin::Bin;
7: use FindNewSeries;
8:
9: use LWP::UserAgent;
10: use Number::Format;
11: use Template;
12:
13: my $fns = FindNewSeries->new(
14: ua => LWP::UserAgent->new(
15: agent => 'domms new series finder',
16: timeout => 5,
17: ),
18: formatter => Number::Format->new,
19: renderer => Template->new( INCLUDE_PATH => $FindBin::Bin . '/../tt/', ),
20: );
21: say $fns->run;