earino

#!/usr/bin/env perl

use warnings;
use strict;
use FindBin;

use File::Slurp;
use JSON;
use Time::HiRes;

earino

#!/usr/bin/env perl

use 5.16.0;
use warnings;
use strict;

use Parallel::ForkManager;

my @sites = qw/ www.google.com 
 		4.2.2.2 

earino

 58     my $exec = ['plackup', '-s', 'Starman', @options, $app];
 59     daemonize( 
 60         run => sub{
 61             start_server(   
 62                 port        => $port,
 63                 pid_file    => $pid_file,
 64                 status_file => $status_file,
 65                 exec        => $exec,
 66             );
 67         },

earino

/**
 * This function fetches a url and gets some of the instrumentation data.
 * 
 * @param url the Url to fetch and instrument
 * @return an object which contains the status code, latency, and contentLength.
 */
function fetchUrl(url) {
  try {
    var start = new Date().getTime();
    var resp = UrlFetchApp.fetch(url);

earino

package main

import (
	"io"
	"bufio"
	"os"
	"flag"
	"log"
)

earino

#!/usr/bin/env perl
#
use warnings;
use strict;
use Data::Dumper;

use constant MY_CONSTANT => 13; 

my %foo = (MY_CONSTANT => 'dingle');

earino

#!/usr/bin/env perl
#
use warnings;
use strict;
use Data::Dumper;

use Readonly;

Readonly my $MY_CONSTANT => 13;

earino

#!/usr/bin/env perl

use warnings;
use strict;
use Dumbbench;
use Readonly;
use Const::Fast;

use Data::Dumper;
$Data::Dumper::Deparse = 1;

earino

$VAR1 = {
          'readonly' => sub {
                            use warnings;
                            use strict 'refs';
                            my $i = 0;
                            if (defined $test_hash{$READONLY_KEY}) {
                                if ($test_hash{$READONLY_KEY} eq $READONLY_VALUE) {
                                    $i++;
                                }
                            }

earino

require 'pp'

CONSTANT="value";

foo = { };

foo[CONSTANT] = CONSTANT;

pp foo;