Skip to content
Extraits de code Groupes Projets
Valider 2f1f19c7 rédigé par Alexandre Morignot's avatar Alexandre Morignot
Parcourir les fichiers

don't use exporter anymore.

Everyone in is namespace and the subroutines will be safe.
parent a75c9171
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
package commands::fav;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(exec);
our $dbh;
our $log;
our $irc;
......
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);
......
package commands::later;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(exec);
our $dbh;
our $log;
......
package commands::parser;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(exec);
use strict;
use lib "$FindBin::Bin/lib/";
......
package commands::tag;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(exec);
our $dbh;
our $log;
......
......@@ -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/;
......
package sites::parser;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(parse);
use lib "$FindBin::Bin/lib/sites/";
use youtube;
use soundcloud;
......
......@@ -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';
......
......@@ -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;
......
......@@ -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;
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter