Wx::Perl::DataWalker (3pm)

  # alternatively, see the dataWalker.pl script in this distribution!
  use Wx::Perl::DataWalker;

  my $data_to_browse = {
    # complex data structure.
    # Good test: \%::
  };

  package MyWalkerDialog;
  our @ISA = qw(Wx::App);

  sub OnInit {
      my $self = shift;

      my $frame = Wx::Perl::DataWalker->new(
        {data => $data_to_browse},
        undef, -1,
        "dataWalker",
      );
      $self->SetTopWindow($frame);
      $frame->Show(1);
      $frame->SetSize(500,500);

      return 1;
  }

  package main;
  my $app = MyWalkerDialog->new();
  $app->MainLoop();

\*(C`Wx::Perl::DataWalker\*(C' implements a \*(C`Wx::Frame\*(C' subclass that shows a relatively simple Perl data structure browser. After opening such a frame and supplying it with a reference to an essentially arbitrary data structure, you can visually browse it by double-clicking references.

So far, there is no tree view but only a display of the current level of the data structure. You can traverse back up the structure with a back button.

Optionally, \*(C`Wx::Perl::DataWalker\*(C' displays the (approximate!) size of the data structure using \*(C`Devel::Size\*(C'.

Wx, Devel::Size

Padre::Plugin::DataWalker

Steffen Mueller, <[email protected]>

Copyright (C) 2009 by Steffen Mueller

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8 or, at your option, any later version of Perl 5 you may have available.