view release on metacpan or  search on metacpan

scripts/dex  view on Meta::CPAN

  }
  
  sub represent_code {
      my ($self, $code) = @_;
      require B::Deparse;
      my $deparse = B::Deparse->new("-p", "-sC");
      return $deparse->coderef2text($code);
  }
  
  
  my @stats = qw/ device inode mode links uid gid rdev size
      atime mtime ctime blksize blocks /;
  sub represent_glob {
      my ($self, $glob) = @_;
      my %glob;
      for my $type (qw/ PACKAGE NAME SCALAR ARRAY HASH CODE IO /) {
          my $value = *{ $glob }{ $type };
          if ($type eq 'SCALAR') {
              $value = $$value;
          }
          elsif ($type eq 'IO') {