File Coverage

lib/Net/Google/GData.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	10	0.0
condition	0	3	0.0
subroutine	5	11	45.4
pod	4	4	100.0
total	24	64	37.5

package Net::Google::GData;

# ABSTRACT: Handle basic communication with Google services

use warnings;
use strict;

our $VERSION = '0.03'; # VERSION


use Carp;
use LWP::UserAgent;

use base qw( Class::Accessor  Class::ErrorHandler Net::Google::Authenticate );

__PACKAGE__->mk_accessors( qw(

) );


sub new {

  my ( $class, @data ) = @_;

  my $self = bless {}, ref $class || $class;

  # Set some defaults
  $self->accountType( $self->_default_accountType )
    or croak $self->errstr;

  $self->service( $self->_default_service )
    or carp $self->errstr;

  $self->source( 'Base GData Perl Package/' . $VERSION );

  for ( my $i = 0 ; $i < @data ; $i += 2 ) {

    if ( my $method = $self->can( $data[$i] ) ) {

      $self->$method( $data[ $i + 1 ] );

    }
  }

  return $self;

} ## end sub new


sub GET    { }
sub POST   { }
sub PUT    { }
sub DELETE { }


sub _ua {

  my $self = shift;

  my $ua;

  unless ( $ua = $self->SUPER::get( '_ua' ) ) {

    $ua = LWP::UserAgent->new;

    $self->SUPER::set( '_ua', $ua );

  }

  $ua->agent( $self->source );

  $self->_auth
    ? $ua->default_header( 'Authorization' => 'GoogleLogin auth=' . $self->_auth )
    : $ua->default_headers->remove_header( 'Authorization' );

  return $ua;

} ## end sub _ua

1;  # End of Net::Google::GData

__END__