summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2015-03-30 00:02:14 -0400
committerJesse Luehrs <doy@tozt.net>2015-03-30 00:02:14 -0400
commit7c5c5a61376aabfa4cf9e1af914122c412c168a1 (patch)
treed57915e6627ac78ea74e7fcc2b23f48ddc8b8209
parentc144cbe6304b7c4c6880c469e0cda3497f2b749c (diff)
downloadwww-pocket-7c5c5a61376aabfa4cf9e1af914122c412c168a1.tar.gz
www-pocket-7c5c5a61376aabfa4cf9e1af914122c412c168a1.zip
simplify
-rw-r--r--lib/WWW/Pocket/Script.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/WWW/Pocket/Script.pm b/lib/WWW/Pocket/Script.pm
index a2fdd01..cdbb6ba 100644
--- a/lib/WWW/Pocket/Script.pm
+++ b/lib/WWW/Pocket/Script.pm
@@ -207,7 +207,7 @@ sub archive {
my $self = shift;
my ($url) = @_;
- $self->_modify('archive', $self->_get_id_for_url($url));
+ $self->_modify('archive', $url);
print "Page archived!\n";
}
@@ -215,7 +215,7 @@ sub readd {
my $self = shift;
my ($url) = @_;
- $self->_modify('readd', $self->_get_id_for_url($url));
+ $self->_modify('readd', $url);
print "Page added!\n";
}
@@ -223,7 +223,7 @@ sub favorite {
my $self = shift;
my ($url) = @_;
- $self->_modify('favorite', $self->_get_id_for_url($url));
+ $self->_modify('favorite', $url);
print "Page favorited!\n";
}
@@ -231,7 +231,7 @@ sub unfavorite {
my $self = shift;
my ($url) = @_;
- $self->_modify('unfavorite', $self->_get_id_for_url($url));
+ $self->_modify('unfavorite', $url);
print "Page unfavorited!\n";
}
@@ -239,19 +239,19 @@ sub delete {
my $self = shift;
my ($url) = @_;
- $self->_modify('delete', $self->_get_id_for_url($url));
+ $self->_modify('delete', $url);
print "Page deleted!\n";
}
sub _modify {
my $self = shift;
- my ($action, $id) = @_;
+ my ($action, $url) = @_;
$self->pocket->modify(
actions => [
{
action => $action,
- item_id => $id,
+ item_id => $self->_get_id_for_url($url),
},
],
);