MidLifeXis

This example data causes the frobnitz process to break:

ID	Field 1	Field 2	expected	received
id_1	data 1 1	data 1 2	Foo	Bar

And an implementation of an output formatter based on Text::Table.

use strict;

MidLifeXis

my $doc = CAM::PDF->new( $cfg->infile );

printf( "read %s\n", $cfg->infile );

for my $p ( 1 .. $doc->numPages ) {

    my $outfilename = $cfg->outfilebase;
    $outfilename =~ s/XXXX/$p/;
    printf( "   extracting page %d\n", $p );

MidLifeXis

#!/usr/bin/perl

# Not certain if this will ever be useful, but thanks to choroba@perlmonks.

use warnings;
use strict;

my $join = sub {join pop, @{shift()} };
my $grep = sub { my $f = pop; [ grep {$f->($_)} @{shift()} ]};
my $say  = sub { print( @_, "\n" ) };

MidLifeXis

#!/usr/bin/env perl

use v5.16;

use constant {
	GH_USER       => 'bob',
	GH_PASS       => 'secret',
	TRAVIS_CONFIG => { user => 'bob', token => 'ABfrht2s82J93AyGBNfq' , domain =>'' },
};

MidLifeXis

(require 'unit-test)
(define-key global-map (kbd "C-c t") 'run-unit-tests)
(define-key global-map (kbd "C-c s") 'set-unit-test-command)
(define-key global-map (kbd "C-c o") 'open-unit-test-file)
;;; (define-key global-map [(control shift mouse-2)] 'btw/perl-open-class-file)

(defun btw/unit-test-completion-function (buf status)
  "Function to run when a unit-test compilation has completed."
    (cond ((string-match "finished" status)
     (show-test-status 'passed))

MidLifeXis

/* CSS tweaks to the 'Dark theme' at http://perlmonks.org/ */

/*
  Note: This does not render properly if you link directly
  to it in FFX or Chrome, as the Content-type attribute is
  sent as text/plain.  There is a bug / feature in the
  gist rendering engine that has a fix and pull pending.
*/

body { background-color: red; }

MidLifeXis

# From Try::Tiny
{
  package # hide from PAUSE
    Try::Tiny::ScopeGuard;
 
  sub _new {
    shift;
    bless [ @_ ];
  }