#!/usr/bin/perl
use strict;
use warnings;
use XML::Atom::Client;
use XML::Atom::Entry;
my $api = XML::Atom::Client->new;
$api->username('YourUserName');
$api->password('YourPassword');
my $FeedURI = 'http://www.typepad.jp/t/atom/weblog/blog_id=YourBlogID';
my $feed = $api->getFeed($FeedURI)
or die("can not get feed:");
for my $entry ($feed->entries) {
print $entry->title."\n";
}
EndPoint
Resource
#!/usr/bin/perl
use strict;
use warnings;
use XML::Atom::Client;
use XML::Atom::Entry;
my $entry = XML::Atom::Entry->new;
$entry->title('This entry is posted by Atom.');
$entry->content('Atom Atom Atom Atom');
my $api = XML::Atom::Client->new;
$api->username('YourUserName');
$api->password('YourPassword');
my $PostURI = "http://www.typepad.jp/t/atom/weblog/blog_id=YourBlogID";
my $EditURI = $api->createEntry($PostURI, $entry);