melo

use strict;
use Test::More;
use Test::TCP;
use Proc::Guard ();
use ZMQ::LibZMQ3;
use ZMQ::Constants ':all';

sub start_proxy {
    my @ports = map { Test::TCP::empty_port() } 1..3;

melo

#!/usr/bin/env perl

use strict;
use warnings;
use PDF::API2;

my ($template_pdf, $data_pdf) = @ARGV;

my $t_pdf = PDF::API2->open($template_pdf);
my $page = $t_pdf->openpage(1);

melo

#!/bin/sh

PACKAGE="nginx"

NGINX_VERSION="1.3.11"
NGINX_SPDY_PATCH_VERSION="58_1.3.11"
NGINX_NAME="${PACKAGE}-${NGINX_VERSION}"
NGINX_TARBALL="${NGINX_NAME}.tar.gz"
NGINX_URL=http://nginx.org/download/${NGINX_TARBALL}
NGINX_SPDY_PATCH_NAME="patch.spdy-${NGINX_SPDY_PATCH_VERSION}.txt"

melo

#!/bin/bash --login
#
# Notice the --login up there, to make sure my heavily modified .bashrc is read
# and I have a sane PATH

echo -ne "\033]1;catalog website supervise\007"

## remove all the --login stuff I don't care about
clear
exec ./dev/daemons/e1-catalog-website

melo

## This one is ok, sub is defined at compile time

package C1;

use Moo;

with 'R';

sub m {}

melo

package E6::Queue::Legacy::WorkerRole;

## Role for all the Gearman Legacy Workers out there: provides run, run_once, and startup logic

use E6::Setup::Role;

with 'E6::Queue::Legacy::HasQueueRole';

has 'is_started' => ( is => 'rw', writer => '_is_started', default => sub {0} );

melo

  if ($config->{sms_notifications_enabled}) {
    $log->warn("SMS notifications are disabled, use ENV ENABLE_SMS_NOTIFICATIONS to enable")
      unless $config->{i_know_sms_notifications_are_disabled_please_leave_me_alone};
    return;
  }

melo

#!/usr/bin/env perl

use common::sense;
use Coro;

my $req = Coro::Channel->new;
my $rep = Coro::Channel->new;

sub start_worker {
  my $name = shift;

melo

    LINK redis-server
Undefined symbols for architecture x86_64:
  "___atomic_add_fetch", referenced from:
      _zmalloc in zmalloc.o
      _zcalloc in zmalloc.o
      _zrealloc in zmalloc.o
      _zmalloc_used_memory in zmalloc.o
  "___atomic_sub_fetch", referenced from:
      _zrealloc in zmalloc.o
      _zfree in zmalloc.o

melo

#!/usr/bin/env perl

use strict;
use warnings;
use JSON 'encode_json';
use HTTP::Tiny;
use Getopt::Long;
use Encode 'decode';

my %opts = (room => $ENV{HIPCHAT_ROOM}, notify => 1);