Yet Another CPAN Grep

Chat-iFly ( R/RI/RIZEN/Chat-iFly-0.0100.tar.gz, RIZEN, 2014; MetaCPAN )

Chat-iFly/lib/Chat/iFly.pm ( view source; MetaCPAN )

use strict;
use warnings;
package Chat::iFly;

use HTTP::Thin;
use HTTP::Request::Common;
use JSON;
use URI;
use Ouch;
use Moo;

my $convert_to_string = sub { "$_[0]" };

=head1 NAME

Chat::iFly - An

"text/javascript">Drupal={};Drupal.settings={};Drupal.settings.drupalchat={};Drupal.settings='.to_json($self->init($user)).';</script>';
    $out .= '<script type="text/javascript" src="' . $self->sta

$self, $user) = @_;
    ouch(441, 'user is required', 'user') unless defined $user;
    return to_json({(%{$user}, %{$self->get_key($user)})});
}

=head2 init( user )

This method is called by C<rende