NAME

BusyBird::Input::Lingr - import Lingr chat texts into BusyBird

SYNOPSIS

            

              
              
use BusyBird;
use WebService::Lingr::Archives;
use BusyBird::Input::Lingr;
my $downloader = WebService::Lingr::Archives->new(
    user => 'your lingr username',
    passworkd => 'your lingr password',
);
my $input = BusyBird::Input::Lingr->new;
my @raw_messages = $downloader->get_archives("perl_jp");
my @busybird_statuses = $input->convert(@raw_messages);
timeline("perl_jp_chat")->add(\@busybird_statuses);
            
          

DESCRIPTION

BusyBird::Input::Lingr converts text message objects obtained from Lingr (http://lingr.com/) API into BusyBird status objects.

Note that this module does not download messages from Lingr. For that purpose, use WebService::Lingr::Archives or AnyEvent::Lingr.

CLASS METHODS

$input = BusyBird::Input::Lingr->new(%args)

The constructor.

Fields in %args are:

api_base => STR (optional, default: "http://lingr.com/api")

Lingr API base URL. This field is used to create permalinks.

OBJECT METHODS

@busybird_statuses = $input->convert(@lingr_messages)

Convert Lingr message objects into BusyBird status objects.

If called in scalar context, it returns the first status object.

If there is an invalid message in @lingr_messages, this method croaks.

SEE ALSO

• BusyBird

• WebService::Lingr::Archives

• AnyEvent::Lingr

REPOSITORY

https://github.com/debug-ito/BusyBird-Input-Lingr

BUGS AND FEATURE REQUESTS

Please report bugs and feature requests to my Github issues https://github.com/debug-ito/BusyBird-Input-Lingr/issues.

Although I prefer Github, non-Github users can use CPAN RT https://rt.cpan.org/Public/Dist/Display.html?Name=BusyBird-Input-Lingr. Please send email to bug-BusyBird-Input-Lingr at rt.cpan.org to report bugs if you do not have CPAN RT account.

AUTHOR

Toshio Ito, <toshioito at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2014 Toshio Ito.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.