Scraper.pm

   1 package Scraper;
   2
   3 use warnings;
   4 use strict;
   5
   6 use WWW::Mechanize;
   7
   8 binmode STDOUT, ':utf8';
   9
  10 sub new {
  11     my ( $class ) = @_;
  12     my $self = {
  13                 mech => WWW::Mechanize->new(),
  14         };
  15     bless $self, $class;
  16     return $self;
  17 }
  18