summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-03-19 01:09:46 -0500
committerJesse Luehrs <doy@tozt.net>2012-03-19 01:09:46 -0500
commitc179473a95db2ee56858ab01ca7b18402e860170 (patch)
treedb52315ee76b6b3b6f17bc55ea82f20b443ccf88
parent9fe8ff40302731eda487511dd80525f333bb2a4f (diff)
downloadlastfm-export-c179473a95db2ee56858ab01ca7b18402e860170.tar.gz
lastfm-export-c179473a95db2ee56858ab01ca7b18402e860170.zip
stop using moosex::getopt
-rw-r--r--bin/lastfm_export10
-rw-r--r--lib/LastFM/Export.pm2
2 files changed, 6 insertions, 6 deletions
diff --git a/bin/lastfm_export b/bin/lastfm_export
index 2e56809..eb721da 100644
--- a/bin/lastfm_export
+++ b/bin/lastfm_export
@@ -9,12 +9,14 @@ use Getopt::Long qw(:config pass_through);
use LastFM::Export;
use Term::ProgressBar;
-my ($dsn, $quiet);
+my ($dsn, $user, $quiet);
GetOptions(
- 'dsn=s' => \$dsn,
- 'quiet' => \$quiet,
+ 'dsn=s' => \$dsn,
+ 'user=s' => \$user,
+ 'quiet' => \$quiet,
);
die "--dsn is required" unless $dsn;
+die "--user is required" unless $user;
my $dbh = DBI->connect($dsn, '', '', { RaiseError => 1, AutoCommit => 0 });
my $from = 0;
@@ -32,7 +34,7 @@ else {
($from) = $dbh->selectrow_array('SELECT timestamp FROM tracks ORDER BY timestamp DESC LIMIT 1');
}
-my $exporter = LastFM::Export->new_with_options;
+my $exporter = LastFM::Export->new(user => $user);
my $track_count = $exporter->track_count(from => $from);
if (!$track_count) {
diff --git a/lib/LastFM/Export.pm b/lib/LastFM/Export.pm
index 24b2829..aee245c 100644
--- a/lib/LastFM/Export.pm
+++ b/lib/LastFM/Export.pm
@@ -5,8 +5,6 @@ use Moose;
use Data::Stream::Bulk::Callback;
use Net::LastFM;
-with 'MooseX::Getopt';
-
=head1 SYNOPSIS
use LastFM::Export;