/usr/local/CPAN/WebService-BuzzurlAPI/WebService/BuzzurlAPI/Request/KeywordArticles.pm

• package WebService::BuzzurlAPI::Request::KeywordArticles
  • filter_param
  • make_request_url
• EOF

package WebService::BuzzurlAPI::Request::KeywordArticles;

use strict;
use base qw(WebService::BuzzurlAPI::Request::Base);

our $VERSION = 0.02;

sub filter_param {

    my($self, $param) = @_;
    $param->{userid} = $self->drop_utf8flag($param->{userid});
    $param->{keyword} = $self->urlencode($self->drop_utf8flag($param->{keyword}));
}


sub make_request_url {

    my($self, $param) = @_;
    my $path = sprintf $self->uri->path, "articles";
    $path .= "/" . join "/", $param->{userid}, "keyword", $param->{keyword};
    $self->uri->path($path);
}

1;