use module name for database if missing

diff --git a/Scraper.pm b/Scraper.pm
index 27cf1b3..535f7b5 100644 (file)
--- a/Scraper.pm
+++ b/Scraper.pm
@@ -7,6 +7,9 @@ use WWW::Mechanize;
 
 sub new {
     my ( $class, $database ) = @_;
+
+       $database ||= $class;
+
     my $self = {
                mech => WWW::Mechanize->new(),
                database => $database,