Yet Another CPAN Grep

Pcore-XMPP ( Z/ZD/ZDM/Pcore-XMPP-v0.10.13.tar.gz, ZDM, 2019; MetaCPAN )

Pcore-XMPP/lib/Pcore/Core/Event/Listener/xmpp.pm ( view source; MetaCPAN )

, -const;
use Pcore::XMPP;
use Pcore::Util::Scalar qw[weaken is_ref];
use Pcore::Util::Data qw[to_json];
use Time::HiRes qw[];

with qw[Pcore::Core::Event::Listener];

has tmpl => '[<: $date.strftime(

) {

            # serialize reference
            $ev->{text} = "\n" . ( is_ref $ev->{data} ? to_json $ev->{data}, readable => 1 : $ev->{data} );

            # indent
            $ev->{text} =~ s/^/