File Coverage

blib/lib/WWW/SlideShare.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package WWW::SlideShare;

use strict;
use Digest::SHA1 qw(sha1_hex);
use LWP::UserAgent;
use WWW::SlideShare::Object;
use XML::Parser;
use Carp qw(confess);

our $AUTOLOAD;
our $VERSION='1.01';

use constant {
		TIMEOUT => 10,
		BASE_URL => 'http://www.slideshare.net/api/2/',
		URL => 0,
		OBJECT_TYPE => 1,
};

{
my $ua = LWP::UserAgent->new;
$ua->timeout(TIMEOUT);
$ua->env_proxy;

my %conf = (
		'_get_slideshow'	   => [ 'get_slideshow', 'Slideshow' ],
		'get_slideshows_by_tag'	   => [ 'get_slideshows_by_tag', 'Slideshow' ],
		'get_slideshows_by_group'  => [ 'get_slideshows_by_group', 'Slideshow' ],
		'get_slideshows_by_user'   => [ 'get_slideshows_by_user', 'Slideshow' ],
		'search_slideshows'	   => [ 'search_slideshows', 'Slideshow' ],
		'get_user_groups'	   => [ 'get_user_groups', 'Group' ],
		'get_user_contacts'   	   => [ 'get_user_contacts', 'Contact' ],
		'get_user_tags'		   => [ 'get_user_tags', 'Tag' ],
	   );

sub new {
	my ($class, %params) = @_;

	my $self = {
			'_objs' => [],
			'_objtype' => '',
		   };

	$self->{'_api_key'} = $params{'api_key'};
	$self->{'_ts'} = time;
	$self->{'_hash'} = lc(sha1_hex($params{'secret'},$self->{'_ts'}));
	$self->{'_params'} = "?api_key=$self->{'_api_key'}&ts=$self->{'_ts'}&hash=$self->{'_hash'}";

	bless $self, $class;
}

sub AUTOLOAD {
	my ($self, $params) = @_;

	my $name = $AUTOLOAD;
	$name =~ s/.*://;

	confess "Method $name not found" unless $conf{$name};

	my $query_string = join('&', map { "$_=$params->{$_}" } keys %$params);

	my $url = BASE_URL.$conf{$name}->[URL].$self->{'_params'}.'&'.$query_string;
        my $response = $ua->get($url);

	if ($response->is_success) {
		my $content = $response->content;
		my $ref = $self->_parseResponse($content, $conf{$name}->[OBJECT_TYPE]);
		return $ref;
	}
	else {
		confess "Web Service Error for $url";
	}
}

sub get_slideshow {
	my ($self, $params) = @_;

	my $ref = $self->_get_slideshow($params);
	return $ref->[0];
}

sub _parseResponse {
	my ($self, $xml, $objtype) = @_;

	if ($xml =~ /serviceerror/i) {
		confess "SlideShare Service Error $xml";
	}

	$self->{'_objs'} = [];
	$self->{'_objtype'} = $objtype;

	my %fields = ();
	my $last_tag = undef;

	my $st_sub_ref  = sub {
		my ($obj, $tag) = @_;

		if ($tag eq $self->{'_objtype'}) {
			%fields = ();
		}

		$last_tag = $tag;
	};

	my $text_handler_ref = sub {
		$fields{$last_tag} .= $_[1];
	};

	my $end_sub_ref = sub {
		my ($obj, $tag) = @_;

		$fields{$last_tag} =~ s/^\s+//g;
		delete $fields{''};

		while (my ($k, $v) = each %fields) {
			delete $fields{$k} if ($v eq '');
		}

		if ($tag eq $self->{'_objtype'}) {
			push @{$self->{'_objs'}}, WWW::SlideShare::Object->new({ %fields });
		}
	};

	my $p2 = new XML::Parser(Handlers => {
			 			Start  => $st_sub_ref,
						Char   => $text_handler_ref,
						End    => $end_sub_ref,
				             });
        $p2->parse($xml);

	return $self->{'_objs'};
}

sub DESTROY { }
}

1;

__END__