root/lang/perl/Net-Pathtraq/trunk/lib/Net/Pathtraq.pm @ 16133

package Net::Pathtraq;

use strict;
use warnings;

our $VERSION = '0.01';
our $DEBUG = 1;

use LWP::UserAgent;
use URI;
use JSON;
use Carp;

sub new {
    my $class = shift;
    my %args  = @_;

    $args{apiurl}   ||= 'http://api.pathtraq.com';

    $args{ua} ||= LWP::UserAgent->new();
    $args{ua}->env_proxy();
    
    return bless {%args}, $class;
}

sub news {
    my ( $self, $args ) = @_;

    return $self->_get( '/news_ja', $args );
}

sub popular {
    my ( $self, $args ) = @_;

    return $self->_get( '/popular', $args );
}

sub pages {
    my ( $self, $args ) = @_;

    croak "url is required" unless $args->{url};
    return $self->_get( '/pages', $args );
}

sub normalize {
    my ( $self, $args ) = @_;

    croak "url is required" unless $args->{url};
    return $self->_get( '/normalize_url2', $args );
}

sub page_counter {
    my ( $self,$args) = @_;

    croak "url is required" unless $args->{url};
    return $self->_get( '/page_counter', $args );
}

sub page_chart {
    my ( $self, $args) = @_;

    croak "url is required" unless $args->{url};
    return $self->_get( '/page_chart', $args );
}

sub _get {
    my ( $self, $api, $args ) = @_;

    $args = {} unless $args;
    $args->{api} = 'json';
    my $uri = URI->new($self->{apiurl} . $api);
    $uri->query_form($args);
    my $res = $self->{ua}->get( $uri);
    if ($Net::Pathtraq::DEBUG && !$res->is_success) {
        die $res->status_line;
    }
    return $res->is_success ? from_json( $res->content ) : undef;
}

1;
__END__

=head1 NAME

Net::Pathtraq -

=head1 SYNOPSIS

  use Net::Pathtraq;

=head1 DESCRIPTION

Net::Pathtraq is

=head1 AUTHOR

Hideo Kimura E<lt>hideo.kimura@kddi-web.comE<gt>

=head1 SEE ALSO

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut