diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-03-19 01:09:46 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-03-19 01:09:46 -0500 |
commit | c179473a95db2ee56858ab01ca7b18402e860170 (patch) | |
tree | db52315ee76b6b3b6f17bc55ea82f20b443ccf88 | |
parent | 9fe8ff40302731eda487511dd80525f333bb2a4f (diff) | |
download | lastfm-export-c179473a95db2ee56858ab01ca7b18402e860170.tar.gz lastfm-export-c179473a95db2ee56858ab01ca7b18402e860170.zip |
stop using moosex::getopt
-rw-r--r-- | bin/lastfm_export | 10 | ||||
-rw-r--r-- | lib/LastFM/Export.pm | 2 |
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; |