Tk-ObjScanner

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "B::Deparse" : "0",
            "Carp" : "0",
            "Data::Dumper" : "0",
            "Getopt::Long" : "0",
            "JSON" : "0",
            "Path::Tiny" : "0",
            "Scalar::Util" : "1.01",
            "Tk" : "0",
            "Tk::Adjuster" : "0",
            "Tk::Derived" : "0",
            "Tk::Frame" : "0",
            "Tk::HList" : "0",
            "Tk::Menubutton" : "0",
            "Tk::ROText" : "0",
            "YAML::PP" : "0",
            "perl" : "5.016"
         }
      },
      "test" : {
         "requires" : {

META.yml  view on Meta::CPAN

requires:
  B::Deparse: '0'
  Carp: '0'
  Data::Dumper: '0'
  Getopt::Long: '0'
  JSON: '0'
  Path::Tiny: '0'
  Scalar::Util: '1.01'
  Tk: '0'
  Tk::Adjuster: '0'
  Tk::Derived: '0'
  Tk::Frame: '0'
  Tk::HList: '0'
  Tk::Menubutton: '0'
  Tk::ROText: '0'
  YAML::PP: '0'
  perl: '5.016'
resources:
  bugtracker: https://github.com/dod38fr/perl-tk-objscanner/issues
  homepage: https://github.com/dod38fr/perl-tk-objscanner
  repository: https://github.com/dod38fr/perl-tk-objscanner.git

Makefile.PL  view on Meta::CPAN

  "PREREQ_PM" => {
    "B::Deparse" => 0,
    "Carp" => 0,
    "Data::Dumper" => 0,
    "Getopt::Long" => 0,
    "JSON" => 0,
    "Path::Tiny" => 0,
    "Scalar::Util" => "1.01",
    "Tk" => 0,
    "Tk::Adjuster" => 0,
    "Tk::Derived" => 0,
    "Tk::Frame" => 0,
    "Tk::HList" => 0,
    "Tk::Menubutton" => 0,
    "Tk::ROText" => 0,
    "YAML::PP" => 0
  },
  "TEST_REQUIRES" => {
    "Benchmark" => 0,
    "FileHandle" => 0,
    "Math::BigInt" => 0,

Makefile.PL  view on Meta::CPAN

  "Getopt::Long" => 0,
  "JSON" => 0,
  "Math::BigInt" => 0,
  "Path::Tiny" => 0,
  "Scalar::Util" => "1.01",
  "Test::More" => 0,
  "Tie::Hash" => 0,
  "Tie::Scalar" => 0,
  "Tk" => 0,
  "Tk::Adjuster" => 0,
  "Tk::Derived" => 0,
  "Tk::Frame" => 0,
  "Tk::HList" => 0,
  "Tk::Menubutton" => 0,
  "Tk::ROText" => 0,
  "YAML::PP" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};

lib/Tk/ObjScanner.pm  view on Meta::CPAN

# necessary: The HList data must not hold a copy of the data, but just
# reference to the data. Hence it will hold a scalar ref, a ref to a
# hash ref or a ref to an array ref. Hence the item attribute of the
# itemcget data part of Hlist is changed to item_ref.

# Furthermore to avoid memory leak if the user modifies its data
# structure, the ref kept must be weakened (See Scalar::Util man page)

use Carp;
use warnings;
use Tk::Derived;
use Tk::Frame;
use Data::Dumper;

use base qw(Tk::Derived Tk::Frame);

Tk::Widget->Construct('ObjScanner');

sub scan_object {
    require Tk;
    import Tk;
    my $object = shift;
    my $animate = shift || 0;    # used by tests

    my $mw = MainWindow->new;