mech wrapper function

[Biblio-Z3950.git] / Scraper.pm

diff --git a/Scraper.pm b/Scraper.pm
index 711265a..692a4c6 100644 (file)
--- a/Scraper.pm
+++ b/Scraper.pm
@@ -18,6 +18,8 @@ sub new {
     return $self;
 }
 
+sub mech { $_[0]->{mech} }
+
 sub save_marc {
        my ( $self, $id, $marc ) = @_;