X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=Scraper.pm;fp=Scraper.pm;h=e1b13f497408aae5b0a8290a56b318ec7f0e9c46;hb=6fe3f8a7ff856864af8366854b152ad15fb4506c;hp=0000000000000000000000000000000000000000;hpb=e1035485a42f6e1f9228e8dd36dbf3e0450d810e;p=Biblio-Z3950.git

diff --git a/Scraper.pm b/Scraper.pm
new file mode 100644
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;
+}
+