Yet Another CPAN Grep

POE-Component-Metabase-Relay-Server ( B/BI/BINGOS/POE-Component-Metabase-Relay-Server-0.40.tar.gz, BINGOS, 2025; MetaCPAN )

POE-Component-Metabase-Relay-Server/lib/POE/Component/Metabase/Relay/Server.pm ( view source; MetaCPAN )

                      ();
use Storable                  ();
use Socket                    ();
use JSON                      ();
use Metabase::User::Profile   ();
use Metabase::User::Secret    ();

my

::confess __PACKAGE__. ": could not read ID file '" . $self->id_file
    . "'\n$!";

  my $data = JSON->new->decode( do { local $/; <$fh> } );

  my $profile = eval { Metabase::User::Profile->from_str

POE-Component-Metabase-Relay-Server ( B/BI/BINGOS/POE-Component-Metabase-Relay-Server-0.40.tar.gz, BINGOS, 2025; MetaCPAN )

POE-Component-Metabase-Relay-Server/lib/POE/Component/Metabase/Relay/Server/Queue.pm ( view source; MetaCPAN )

::Profile   ();
use Metabase::User::Secret    ();
use Module::Load::Conditional qw[can_load];
use JSON::MaybeXS;
use Params::Util qw[_HASH];
use Time::HiRes ();
use Data::UUID;

use constant DELAY =>


  if ( $result->{error} ) {
    warn "DB error (" . ( $self->_time - $result->{_ts} ) . "s): " . JSON->new->pretty(1)->encode( $result ) . "\n" if $self->debug;
  }
  $kernel->yield( '_process_queue'

act {
  my $self = shift;
  return JSON->new->encode( shift->as_struct );
}

sub _decode_fact {
  my $self = shift;
  return CPAN::Testers::Report->from_struct( JSON->new->decode( shift ) );
}

no Moo