Net::Blogger::Engine::Blogger - Pyra Blogger API engine


Net-Blogger documentation Contained in the Net-Blogger distribution.

Index


Code Index:

NAME

Top

Net::Blogger::Engine::Blogger - Pyra Blogger API engine

SYNOPSIS

Top

 TBW

DESCRIPTION

Top

This package inherits Net::Blogger::Engine::Base and defines methods specific the the Pyra (blogger.com) XML-RPC server.

PACKAGE METHODS

Top

__PACKAGE__->new()

Instantiate a new Blogger Engine object.

OBJECT METHODS

Top

$pkg->Proxy()

Return the URI of the Blogger XML-RPC proxy

$pkg->MaxPostLength()

Return the maximum number of characters a single post may contain.

KNOWN ISSUES

Top

VERSION

Top

1.0

DATE

Top

$Date: 2005/03/26 19:29:08 $

AUTHOR

Top

Aaron Straup Cope

SEE ALSO

Top

Net::Blogger::Engine::Base

http://plant.blogger.com/api/

LICENSE

Top

Copyright (c) 2001-2005 Aaron Straup Cope.

This is free software, you may use it and distribute it under the same terms as Perl itself.


Net-Blogger documentation Contained in the Net-Blogger distribution.
{

package Net::Blogger::Engine::Blogger;
use strict;

use constant BLOGGER_PROXY  => "http://plant.blogger.com/api/RPC2";
use constant MAX_POSTLENGTH => 65536;

$Net::Blogger::Engine::Blogger::VERSION   = '1.0';
@Net::Blogger::Engine::Blogger::ISA       = qw ( Exporter Net::Blogger::Engine::Base );
@Net::Blogger::Engine::Blogger::EXPORT    = qw ();
@Net::Blogger::Engine::Blogger::EXPORT_OK = qw ();

use Exporter;
use Net::Blogger::Engine::Base;

sub new {
    my $pkg = shift;

    my $self = {};
    bless $self,$pkg;

    if (! $self->SUPER::init(@_)) {
	return 0;
    }

    return $self;
}

sub Proxy {
  my $self = shift;
  return $self->SUPER::Proxy(@_) || BLOGGER_PROXY;
}

sub MaxPostLength {
    return MAX_POSTLENGTH;
}

sub DESTROY {
    return 1;
}

return 1;

}