view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

   dragged across.
   Dmitry Karasik++
   <https://github.com/tobyink/p5-data-dumper-gui/pull/1>
 - Remove useless [-] icons from leaf nodes in outline.
   Dmitry Karasik++
   <https://github.com/tobyink/p5-data-dumper-gui/pull/1>

0.003	2013-07-10

 [ Bug Fixes ]
 - Array indices count from $[, not 1.
 - Quote hash keys when necessary.

 [ Other ]
 - Added: Include size of references using Devel::Size.
 - Added: Show key count for hashes, and bucket count.
 - Added: Show length of arrays.
 - Dereference SCALAR refs in outline.

0.002	2013-07-09

doap.ttl  view on Meta::CPAN

<http://purl.org/NET/cpan-uri/dist/Data-Dumper-GUI/v_0-003>
	a                    doap:Version;
	dc:identifier        "Data-Dumper-GUI-0.003"^^xsd:string;
	dc:issued            "2013-07-10"^^xsd:date;
	doap-changeset:changeset [
		doap-changeset:item [
			a doap-changeset:Change;
			rdfs:label "Dereference SCALAR refs in outline.";
		], [
			a doap-changeset:Bugfix;
			rdfs:label "Array indices count from $[, not 1.";
		], [
			a doap-changeset:Addition;
			rdfs:label "Include size of references using Devel::Size.";
		], [
			a doap-changeset:Addition;
			rdfs:label "Show length of arrays.";
		], [
			a doap-changeset:Addition;
			rdfs:label "Show key count for hashes, and bucket count.";
		], [

lib/ddGUI/Window.pm  view on Meta::CPAN

	if (exists $self->_seen->{ refaddr($item) }) {
		my $is = $self->_seen->{ refaddr($item) };
		return [[ $label, "= $is", $item, $path ]];
	}
	
	$self->_seen->{ refaddr($item) } = $path;
	
	my @internals;
	
	if (reftype($item) eq 'ARRAY') {
		my $i = $[-1;
		@internals = map { ++$i; $self->_item_to_arrayref("[$i]", $_, "$path\->[$i]") } @$item;
	}
	if (reftype($item) eq 'HASH') {
		@internals = map { $self->_item_to_arrayref("{${\__maybequote($_)}}", $item->{$_}, "$path\->{${\__maybequote($_)}}") } sort keys %$item;
	}
	if (reftype($item) eq 'SCALAR') {
		@internals = $self->_item_to_arrayref("\${...}", $$item, "\${$path}");
	}
	
	return [[ $label, '['.ref($item).']', $item, $path ], \@internals, !blessed($item), undef ];