PlayBot::sites::parser: strict & warnings

PlayBot/sites/parser.pm

 package PlayBot::sites::parser;
 
+use strict;
+use warnings;
+
 use PlayBot::sites::youtube;
 use PlayBot::sites::soundcloud;
 use PlayBot::sites::mixcloud;
@@ -31,6 +34,10 @@ sub parse {
 	elsif ($msg =~ m#(^|[^!])https?://soundcloud.com/([a-zA-Z0-9_-]+/[a-zA-Z0-9_-]+)(?:\?.+)?#) {
 		my $url = 'https://www.soundcloud.com/'.$2;
 		eval { %content = PlayBot::sites::soundcloud::get($url) };
+
+        use Data::Dumper;
+        print Dumper(\%content);
+
 		$content{'site'} = 'soundcloud';
 	}
 	elsif ($msg =~ m#(^|[^!])https?://www.mixcloud.com/([a-zA-Z0-9-_]+/[a-zA-Z0-9-_]+)#) {
@@ -64,10 +71,6 @@ sub parse {
         # we assume it's a new content
         my $new = 1;
 
-	    if ($debug) {
-		    $log->debug($content{'url'});
-	    }
-	    else {
 		# insertion de la vidéo dans la bdd
         eval {
             my $sth = $dbh->prepare('
@@ -99,7 +102,6 @@ sub parse {
                 $content{'url'},
             );
         }
-	    }
 
 	    # sélection de l'id de la vidéo insérée
 		my $sth = $dbh->prepare('SELECT id FROM playbot WHERE url = ?');