view release on metacpan or  search on metacpan

scripts/dex  view on Meta::CPAN

      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') {
              if (defined $value) {
                  undef $value;
                  $value->{stat} = {};
                  if ($value->{fileno} = fileno(*{ $glob })) {
                      @{ $value->{stat} }{ @stats } = stat(*{ $glob });
                      $value->{tell} = tell *{ $glob };
                  }
              }
          }
          $glob{ $type } = $value if defined $value;
      }
      return \%glob;
  }
  
  sub represent_regex {