Yet Another CPAN Grep

Schema-RackTables ( S/SA/SAPER/Schema-RackTables-1.01.tar.gz, SAPER, 2016; MetaCPAN )

Schema-RackTables/lib/Schema/RackTables.pm ( view source; MetaCPAN )

tions;
use JSON::XS;
use Moo;


our $VERSION = "1.01";

use constant {
    REF_DB_PATH => catfile(dirname($INC{"Schema/RackTables.pm"}),
                        "RackTables", "versions.json")
};


has

s schema          => ( is => "ro" );
has schema_version  => ( is => "ro" );


my $ref_db = decode_json(do {
    open my $fh, "<", REF_DB_PATH or die "Can't read '", REF_DB_PATH, "': $!\n";
    local $