The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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

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.