Wx::Perl::DataWalker3pm

Usage

  # 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();

Overview

"Wx::Perl::DataWalker" implements a "Wx::Frame" 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, "Wx::Perl::DataWalker" displays the (approximate!) size of the data structure using "Devel::Size".

Copyright and license

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.