From 05b48d12623526d55b66452fb8231a122c542ba8 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@gmail.com>
Date: Mon, 5 Aug 2013 21:06:57 +0200
Subject: [PATCH] Better exporting from modules

---
 PlayBot.pl              | 8 ++++----
 lib/sites/mixcloud.pm   | 2 +-
 lib/sites/soundcloud.pm | 2 +-
 lib/sites/youtube.pm    | 2 +-
 lib/sites/zippy.pm      | 2 +-
 5 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/PlayBot.pl b/PlayBot.pl
index 8203c69..aba41eb 100755
--- a/PlayBot.pl
+++ b/PlayBot.pl
@@ -13,10 +13,10 @@ use FindBin;
 use lib "$FindBin::Bin/lib/";
 use Logging;
 
-use sites::youtube;
-use sites::soundcloud;
-use sites::mixcloud;
-use sites::zippy;
+use sites::youtube qw(youtube);
+use sites::soundcloud qw(soundcloud);
+use sites::mixcloud qw(mixcloud);
+use sites::zippy qw(zippy);
 
 
 # nom du fichier
diff --git a/lib/sites/mixcloud.pm b/lib/sites/mixcloud.pm
index 8cd29a5..7ac0a01 100644
--- a/lib/sites/mixcloud.pm
+++ b/lib/sites/mixcloud.pm
@@ -6,7 +6,7 @@ use HTML::Entities;
 
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(mixcloud);
+our @EXPORT_OK = qw(mixcloud);
 
 
 my $inTitle = 0;
diff --git a/lib/sites/soundcloud.pm b/lib/sites/soundcloud.pm
index 1e00ebf..c4198e2 100644
--- a/lib/sites/soundcloud.pm
+++ b/lib/sites/soundcloud.pm
@@ -5,7 +5,7 @@ use JSON;
 
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(soundcloud);
+our @EXPORT_OK = qw(soundcloud);
 
 
 my $root = 'http://api.soundcloud.com';
diff --git a/lib/sites/youtube.pm b/lib/sites/youtube.pm
index d9039b5..1782d1f 100644
--- a/lib/sites/youtube.pm
+++ b/lib/sites/youtube.pm
@@ -6,7 +6,7 @@ use HTML::Entities;
 
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(youtube);
+our @EXPORT_OK = qw(youtube);
 
 
 my $inTitle = 0;
diff --git a/lib/sites/zippy.pm b/lib/sites/zippy.pm
index 872b13a..b8951d0 100644
--- a/lib/sites/zippy.pm
+++ b/lib/sites/zippy.pm
@@ -6,7 +6,7 @@ use HTML::Entities;
 
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(zippy);
+our @EXPORT_OK = qw(zippy);
 
 
 my $inTitle = 0;
-- 
GitLab