Yet Another CPAN Grep

IPC-Transit ( D/DI/DIEDERICH/IPC-Transit-0.3.tar.gz, DIEDERICH, 2012; MetaCPAN )

IPC-Transit/lib/IPC/Transit/Test/Example.pm ( view source; MetaCPAN )

ransit::Test::Example;

use strict;use warnings;
use Data::Dumper;
use IPC::Transit;
use POE;
use JSON;
use File::Slurp;

sub
import {
    my $self = shift;
    my ($callpack, $callfile, $callline) =

utes.json') or die "get_routes: routes.json not found\n";
    my $routes;
    eval {
        $routes = decode_json($routes_text) or die "returned false\n";
    };
    die "get_routes: decode_json() fa