The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::LiveJournal -- access LiveJournal's APIs

SYNOPSIS

 use Net::LiveJournal;

 # make an account object...
 $lj = Net::LiveJournal->new(user => "brad", password => "xxxx");

 # make an entry object...
 $entry = Net::LiveJournal::Entry->new(subject => "This is a test",
                                       body    => "I'm posting this test at " . localtime);

 if (my $url = $lj->post($entry)) {
     print "Success: $url\n";
 } else {
     print "Failure: " . $lj->errstr . "\n";
 }

DESCRIPTION

This is a quick hack. It could be fleshed out a lot.

AUTHOR

Brad Fitzpatrick <brad@danga.com>

COPYRIGHT AND LICENSING

This code is (C) 2006 Six Apart, Ltd. You have permission to use and distribute it under the same terms as Perl itself.