Yet Another CPAN Grep

Labyrinth-Paths ( B/BA/BARBIE/Labyrinth-Paths-0.03.tar.gz, BARBIE, 2015; MetaCPAN )

Labyrinth-Paths/lib/Labyrinth/Paths.pm ( view source; MetaCPAN )

 $VERSION = '0.03';

# -------------------------------------
# Library Modules

use IO::File;
use JSON::XS;
use Labyrinth;
use Labyrinth::Variables;

# -------------------------------------
# The Subs

ributes hash
    my $atts = {
        pathfile => $pathfile || $settings{pathfile} || './pathfile.json'
    };

    # create the object
    bless $atts, $class;

    $atts->load;

    return $atts;
};

lf->{pathfile},'r') or return;
    local $/ = undef;
    my $json = <$fh>;
    $fh->close;

    eval {
        my $data = decode_json($json);
        $self->{data} = $data->{paths};
    };

    return