return $self;
}
+sub mech { $_[0]->{mech} }
+
sub save_marc {
my ( $self, $id, $marc ) = @_;
}
+our $dump_nr = 1;
+
+sub save_content {
+ my $self = shift;
+ my $path = "/tmp/$dump_nr.html";
+ open(my $html, '>', $path);
+ print $html $self->{mech}->content;
+ close($html);
+ warn "# save_content $path ", -s $path, " bytes";
+ $dump_nr++;
+}
+
1;