Yet Another CPAN Grep

Tk-Tree-JSON ( S/SA/SANTOS/Tk-Tree-JSON-0.04.tar.gz, SANTOS, 2015; MetaCPAN )

Tk-Tree-JSON/lib/Tk/Tree/JSON.pm ( view source; MetaCPAN )

package Tk::Tree::JSON;

# Tk::Tree::JSON - JSON tree widget

# Copyright (c) 2008-2015 Jos� Santos. All rights reserved.
# This program is free software. It can be redistributed and/or modified und

quire JSON;
	require Tk::Derived;
	$VERSION	= '0.04';
	@ISA		= qw(Tk::Derived Tk::Tree);
}

Construct Tk::Widget 'JSON';

sub Tk::Widget::ScrolledJSON { shift->Scrolled('JSON' => @_) }

my $json_parse

r = undef;	# singleton JSON parser

# ConfigSpecs default values
my $VALUE_MAX_LENGTH = 80;

sub Populate {
	my ($myself, $args) = @_;
	$myself->SUPER::Populate($args);
	$myself->ConfigSpecs(
		-array