Yet Another CPAN Grep

Data-Context-Loader-DB ( I/IV/IVANWILLS/Data-Context-Loader-DB-v0.0.1.tar.gz, IVANWILLS, 2019; MetaCPAN )

Data-Context-Loader-DB/lib/Data/Context/Loader/DB.pm ( view source; MetaCPAN )

:Dumper qw/Dumper/;
use English qw/ -no_match_vars /;
use Data::Context::Util qw/do_require/;
use JSON::XS;

our $VERSION = version->new('0.0.1');

extends 'Data::Context::Loader';

sub changed {

Data-Context-Loader-DB ( I/IV/IVANWILLS/Data-Context-Loader-DB-v0.0.1.tar.gz, IVANWILLS, 2019; MetaCPAN )

Data-Context-Loader-DB/lib/Data/Context/Finder/DB/Schema/Result/Data.pm ( view source; MetaCPAN )

      data_type   => "varchar",
        is_nullable => 0,
        size        => 1024,
    },
    json => {
        data_type   => "varchar",
        is_nullable => 1,
    },
    created => {

ate_column (
    json => {
        inflate => sub {
            return JSON::XS->new->utf8->relaxed->shrink->decode($_[0]);
        },
        deflate => sub {
            return JSON::XS->new->utf8->

d1 ACCESSORS

=head2 name

  data_type: 'varchar'
  is_nullable: 0
  size: 1024

=head2 json

  data_type: 'json'
  is_nullable: 1

=head2 created

  data_type: 'timestamp with time zone'
  default_va

Data-Context-Loader-DB ( I/IV/IVANWILLS/Data-Context-Loader-DB-v0.0.1.tar.gz, IVANWILLS, 2019; MetaCPAN )

Data-Context-Loader-DB/lib/Data/Context/Finder/DB.pm ( view source; MetaCPAN )

 @path);

    if ($row) {
        return Data::Context::Loader::DB->new(
            raw => $row->json,
        );
    }
    elsif ($row = $self->schema->resultset($self->table)->find(join '/', @path[

 - 2], $self->default)) {
        return Data::Context::Loader::DB->new(
            raw => $row->json,
        );
    }

    return;
}

__PACKAGE__->meta->make_immutable;

1;

__END__

=head1 NAME

D