From 2f1f19c71a8b14aae5566009226d95a51a1ce1b2 Mon Sep 17 00:00:00 2001 From: Alexandre Morignot <erdnaxeli@gmail.com> Date: Wed, 15 Oct 2014 16:37:18 +0200 Subject: [PATCH] don't use exporter anymore. Everyone in is namespace and the subroutines will be safe. --- lib/commands/fav.pm | 4 ---- lib/commands/get.pm | 4 ---- lib/commands/later.pm | 4 ---- lib/commands/parser.pm | 4 ---- lib/commands/tag.pm | 4 ---- lib/sites/mixcloud.pm | 5 ----- lib/sites/parser.pm | 4 ---- lib/sites/soundcloud.pm | 5 ----- lib/sites/youtube.pm | 4 ---- lib/sites/zippy.pm | 5 ----- 10 files changed, 43 deletions(-) diff --git a/lib/commands/fav.pm b/lib/commands/fav.pm index abebf12..8a8d134 100644 --- a/lib/commands/fav.pm +++ b/lib/commands/fav.pm @@ -1,9 +1,5 @@ package commands::fav; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(exec); - our $dbh; our $log; our $irc; diff --git a/lib/commands/get.pm b/lib/commands/get.pm index e717ae2..4ad4a29 100644 --- a/lib/commands/get.pm +++ b/lib/commands/get.pm @@ -1,9 +1,5 @@ package commands::get; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(exec); - use strict; use warnings; use Scalar::Util qw(looks_like_number); diff --git a/lib/commands/later.pm b/lib/commands/later.pm index 59367e0..49d2868 100644 --- a/lib/commands/later.pm +++ b/lib/commands/later.pm @@ -1,9 +1,5 @@ package commands::later; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(exec); - our $dbh; our $log; diff --git a/lib/commands/parser.pm b/lib/commands/parser.pm index ccc6925..a97923b 100644 --- a/lib/commands/parser.pm +++ b/lib/commands/parser.pm @@ -1,9 +1,5 @@ package commands::parser; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(exec); - use strict; use lib "$FindBin::Bin/lib/"; diff --git a/lib/commands/tag.pm b/lib/commands/tag.pm index a99470d..85c6541 100644 --- a/lib/commands/tag.pm +++ b/lib/commands/tag.pm @@ -1,9 +1,5 @@ package commands::tag; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(exec); - our $dbh; our $log; diff --git a/lib/sites/mixcloud.pm b/lib/sites/mixcloud.pm index 82cec79..29373b6 100644 --- a/lib/sites/mixcloud.pm +++ b/lib/sites/mixcloud.pm @@ -3,11 +3,6 @@ package mixcloud; use LWP::UserAgent; use JSON; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(mixcloud); - - sub get { my ($url) = @_; $url =~ s/www/api/; diff --git a/lib/sites/parser.pm b/lib/sites/parser.pm index 80d09aa..fab14de 100644 --- a/lib/sites/parser.pm +++ b/lib/sites/parser.pm @@ -1,9 +1,5 @@ package sites::parser; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(parse); - use lib "$FindBin::Bin/lib/sites/"; use youtube; use soundcloud; diff --git a/lib/sites/soundcloud.pm b/lib/sites/soundcloud.pm index b72dc01..708944a 100644 --- a/lib/sites/soundcloud.pm +++ b/lib/sites/soundcloud.pm @@ -4,11 +4,6 @@ use LWP::UserAgent; use JSON; use URI::Find; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(soundcloud); - - my $root = 'http://api.soundcloud.com'; my $clientId = 'f4956716fe1a9dc9c3725af822963365'; diff --git a/lib/sites/youtube.pm b/lib/sites/youtube.pm index 7976de8..31ddec1 100644 --- a/lib/sites/youtube.pm +++ b/lib/sites/youtube.pm @@ -5,10 +5,6 @@ use URI::Find; use Encode; require Encode::Detect; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(youtube); - sub get { my $id = shift; diff --git a/lib/sites/zippy.pm b/lib/sites/zippy.pm index 7525e68..5bb553f 100644 --- a/lib/sites/zippy.pm +++ b/lib/sites/zippy.pm @@ -4,11 +4,6 @@ use LWP::UserAgent; use HTML::Parser; use HTML::Entities; -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT_OK = qw(zippy); - - my $inTitle = 0; my $inAuthor = 0; my %infos; -- GitLab