2shortplanks

    try {
        assert.deepEqual(record,result);
        success = true;
    } catch (e) {}

    if (success) {
        console.log("ok "+i);
    } else {
        console.log("not ok "+i);
        console.log("# got: ");

2shortplanks

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;
use Mojo::DOM;

my $string = <<'ENDHTML';
<dl>

2shortplanks

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Mojo::DOM;

# passes
{

2shortplanks

#!/usr/bin/perl

use strict;
use warnings;

use DBI;
use Test::More;

{
    my $dbh = DBI->connect("dbi:Pg:dbname=circonus;host=wdb3;port=5490",$ENV{USER},$ENV{PASSWORD}, {

2shortplanks

#!/usr/bin/env perl

########################################################################
# Do actions (e.g. notify me) when someone says something in HipChat
########################################################################

use 5.0016;
use strict;
use warnings;

2shortplanks

 * 300. Green Day, American Idiot (Reprise, 2004)
 * 299. Parquet Courts, Sunbathing Animal (What’s Your Rupture?, 2014)
 * 298. Ice Cube, AmeriKKKa’s Most Wanted (Priority, 1990)
 * 297. Gorillaz, Demon Days (Virgin, 2005)
 * 296. Various Artists, Total 4 (Kompakt, 2002)
 * 295. Old 97’s, Too Far to Care (Elektra, 1997)
 * 294. Sigur Rós, Ágætis Byrjun (Play It Again Sam, 1999)
 * 293. Garbage, Version 2.0 (EastWest/Warner Bros., 1998)
 * 292. Usher, Looking 4 Myself (RCA, 2012)
 * 291. The Hold Steady, Separation Sunday (Frenchkiss, 2005)

2shortplanks

2Pac
A Tribe Called Quest
Aaliyah
Aerosmith
Against Me!
Air
Amy Winehouse
Animal Collective
Aphex Twin
Arcade Fire

2shortplanks

#!/usr/bin/perl

# at the top of all of our code
use ourperl;
# this does this
#
# use Import::Into;
# use strict;
# use warnings;
# use experimental ();

2shortplanks

Mark@travis:~$ perl -V
Summary of my perl5 (revision 5 version 22 subversion 0) configuration:
   
  Platform:
    osname=darwin, osvers=14.4.0, archname=darwin-2level
    uname='darwin travis.local 14.4.0 darwin kernel version 14.4.0: thu may 28 11:35:04 pdt 2015; root:xnu-2782.30.5~1release_x86_64 x86_64 '
    config_args='-ds -e -Dprefix=/opt/markperl'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef

2shortplanks

MAIN SCRIPT:

#!/usr/bin/perl

use strict;
use warnings;

use File::Temp qw(tempfile);

my $commit = shift or die "You have to pass a commit";