(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27105)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.23)
=item * L<List::Util::PP> (1
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.19)
=item * L<List::Util::PP> (un
ndef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27400_02)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.46_02)
=item * L<List::Util::PP
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27200)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.25)
=item * L<List::Util::PP> (u
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.18)
=item * L<List::Util::PP> (un
');
if (!$self->backend->user) {
return $self->stash(status => 401)
->respond_to(json => {json => {errors => []}}, any => {text => ''});
}
if (my $link = $self->app->_link_cache->get(
$self->res->headers->header('X-Cached' => 1); # for testing
return $self->respond_to(json => {json => $link}, any => {text => $link->html});
}
$self->delay(
sub { $self->linkembedder
;
$self->res->headers->cache_control('max-age=600');
}
$self->respond_to(json => {json => $link}, any => {text => $link->html});
},
);
}
1;
=encoding utf8
=head1 NAME
Co
}
sub TO_JSON {
my ($self, $private) = @_;
my $json = {content => $self->content, created_at => $self->created_at};
$json->{author} = $self->user->email if $private;
return $json;
}
1;
=
nection';
no warnings 'utf8';
use Convos::Util qw(next_tick DEBUG);
use Mojo::IRC::UA;
use Mojo::JSON;
use Parse::IRC ();
use Time::HiRes 'time';
use constant MAX_BULK_MESSAGE_SIZE => $ENV{CONVOS_MA
$self->_irc->server) if DEBUG;
$self->emit(state => frozen => $_->frozen('Not connected.')->TO_JSON)
for grep { !$_->frozen } @{$self->dialogs};
$self->{steal_nick_tid} //= $self->_steal_nick
ost = $self->url->host;
my $store = $self->_room_cache->{$host} ||= {rooms => {}, end => Mojo::JSON->false};
my ($generate, @rooms, @by_topic);
if ($match) {
$generate = sub {
$match
ndef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27400_01)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.45_01)
=item * L<List::Util::PP
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.97001)
=item * L<JSON::PP::Boolean> (2.97001)
=item * L<List::Util> (1.50)
=item * L<List::Util::PP>
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (undef)
=item * L<List::Util::PP> (u
Fcntl ':flock';
use File::ReadBackwards;
use Mojo::File;
use Mojo::IOLoop::ForkCall ();
use Mojo::JSON;
use Mojo::Util;
use Symbol;
use Time::Piece;
use Time::Seconds;
use constant FLAG_OFFSET =>
nection.json');
next unless -e $settings;
push @connections, Mojo::JSON::decode_json($settings->slurp);
delete $connections[-1]{state}; # should not be stored in connection.json
}
= {};
my $err = '';
if (-e $storage_file) {
eval { $data = Mojo::JSON::decode_json($storage_file->slurp); };
$err = $@ || 'Unknown error' unless $data;
}
return nex
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27203)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.36)
=item * L<List::Util::PP> (u
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.21)
=item * L<List::Util::PP> (1.
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27300)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.41)
=item * L<List::Util::PP> (u
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.07_00)
=item * L<List::Util::PP>
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.23)
=item * L<List::Util::PP> (1.
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (undef)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.23)
=item * L<List::Util::PP> (1.
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27300)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.41)
=item * L<List::Util::PP> (u
(undef)
=item * L<JPL::Class> (undef)
=item * L<JPL::Compile> (undef)
=item * L<JSON::PP> (2.27202)
=item * L<JSON::PP::Boolean> (undef)
=item * L<List::Util> (1.27)
=item * L<List::Util::PP> (u