extract common code into Scraper package

[Biblio-Z3950.git] / Scraper.pm

diff --git a/Scraper.pm b/Scraper.pm
new file mode 100644 (file)
index 0000000..e1b13f4
--- /dev/null
+++ b/Scraper.pm
@@ -0,0 +1,18 @@
+package Scraper;
+
+use warnings;
+use strict;
+
+use WWW::Mechanize;
+
+binmode STDOUT, ':utf8';
+
+sub new {
+    my ( $class ) = @_;
+    my $self = {
+               mech => WWW::Mechanize->new(),
+       };
+    bless $self, $class;
+    return $self;
+}
+