File Coverage

blib/lib/WWW/Google/News.pm

Criterion	Covered	Total	%
statement	37	93	39.7
branch	2	12	16.6
condition	1	2	50.0
subroutine	11	16	68.7
pod			n/a
total	51	123	41.4

package WWW::Google::News;

use strict;
use warnings;

require Exporter;

our @ISA       = qw(Exporter);
our @EXPORT_OK = qw(get_news get_news_greg_style get_news_for_topic);
our $VERSION   = '0.12';

use Carp;
use LWP;
use URI::Escape;

sub new {
	my $pkg = shift;
	my $self = {};
	bless $self, $pkg;
	if (! $self->init(@_)) {
		return undef;
	}
	return $self;
}

sub init {
	my $self = shift;
	my $args = (ref($_[0]) eq "HASH") ? shift : {@_};
	$self->{'_topic'} = $args->{'topic'};
	$self->{'_start_date'} = $args->{'start_date'};
	$self->{'_end_date'} = $args->{'end_date'};
	$self->{'_sort'} = $args->{'sort'};
	$self->{'_max'} = $args->{'max'} || 20;

	return 1;
}

sub topic {
	my $self = shift;
	$self->{'_topic'} = shift;
	return $self->{'_topic'};
}

sub start_date {
  my $self = shift;
  $self->{'_start_date'} = shift;
	return $self->{'_start_date'};
}

sub end_date {
  my $self = shift;
  $self->{'_end_date'} = shift;
	return $self->{'_end_date'};
}

sub sort {
  my $self = shift;
  $self->{'_sort'} = shift;
	return $self->{'_sort'};
}

sub max {
  my $self = shift;
  $self->{'_max'} = shift;
	return $self->{'_max'};
}

sub search {
	my $self = shift;
	return get_news_for_topic($self->{'_topic'},$self->{'_start_date'},$self->{'_end_date'},$self->{'_sort'},$self->{'_max'});
}

sub get_news {
	my $url = 'http://news.google.com/news/gnmainlite.html';
  my $ua = LWP::UserAgent->new;
	$ua->agent('Mozilla/5.0');
  my $response = $ua->get($url);
  return unless $response->is_success;
	my $content = $response->content;
  my $results = {};

  my $re1 =  '
	my $re2 =  '