CPAN::Groonga

w/ArrayRef RegexpRef Maybe HashRef InstanceOf Bool/;
use Syntax::Keyword::Gather;
use JSON::MaybeXS qw/encode_json/;
use PerlX::Maybe;
use DBIx::Class::Visualizer::ResultHandler;

has logger_conf => (

. '-' . $column_name);

            $el->attr('data-column-info', encode_json($result_handler->get_column($column_name)->TO_JSON));
        });

        # There might be a tiny <polygon.table-name> on

       ...
            ],
          }">a_column_id</text>

The C<data-column-info> attribute is a json object that is directly usable by something like jQuery:

    # has_many
    $('#column-TableName

lumn_name_tag;
}

sub TO_JSON {
    my $self = shift;

    return +{
        name => $self->name,
        data_type => $self->data_type,
        relations => [map { $_->TO_JSON } @{ $self->relations }

            :                                       qw/dot dot dot/
                  ;
}

sub TO_JSON {
    my $self = shift;

    return +{
            origin_table => $self->origin_table,