How to do it - Parameter passing
file: code/ParameterPassing/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 $ua = LWP::UserAgent->new(
14: agent => 'domms new series finder',
15: timeout => 5,
16: );
17:
18: my $formatter = Number::Format->new;
19:
20: my $tt = Template->new( INCLUDE_PATH => $FindBin::Bin . '/../tt/', );
21:
22: my $fns = FindNewSeries->new;
23: say $fns->run( $ua, $formatter, $tt );