lexicals

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 - Fix warning in test.

0.13 Thu May 19 00:01:18 EST 2011
 - Support hashes, arrays, and nested refs properly
 - Thanks to rafl++ and rjbs++ for pointing out the bugs

0.12 Wed May 18 15:18:27 EST 2011
 - Use Module::Package

0.11 Mon May 16 22:16:38 EST 2011
 - requires PadWalker
 - inc::Package
 - stardoc_clean_pod

0.10 Mon May 16 22:16:38 EST 2011
 - First Release

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "develop" : {
         "requires" : {
            "Test::Pod" : "1.41"
         }
      },
      "runtime" : {
         "requires" : {
            "PadWalker" : "1.92",
            "perl" : "v5.8.1"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/ingydotnet/lexicals-pm/issues"
      },
      "homepage" : "https://github.com/ingydotnet/lexicals-pm",

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: lexicals
no_index:
  directory:
    - inc
    - t
    - xt
    - example
requires:
  PadWalker: '1.92'
  perl: v5.8.1
resources:
  bugtracker: https://github.com/ingydotnet/lexicals-pm/issues
  homepage: https://github.com/ingydotnet/lexicals-pm
  repository: https://github.com/ingydotnet/lexicals-pm.git
version: '0.35'

Makefile.PL  view on Meta::CPAN

  "AUTHOR" => "Ingy d\x{f6}t Net <ingy\@cpan.org>",
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "lexicals",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.008001",
  "NAME" => "lexicals",
  "PREREQ_PM" => {
    "PadWalker" => "1.92"
  },
  "VERSION" => "0.35",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "ExtUtils::MakeMaker" => 0,
  "PadWalker" => "1.92"
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

delete $WriteMakefileArgs{CONFIGURE_REQUIRES}

README  view on Meta::CPAN

        use XXX;

        sub foo {
          ...
          XXX lexicals;     # See your lexicals in the nude.
          ...
        }

SEE ALSO
    *   PadWalker

    *   Acme::Locals

    *   XXX

AUTHOR
    Ingy döt Net <ingy@cpan.org>

COPYRIGHT AND LICENSE
    Copyright 2011-2015. Ingy döt Net.

lib/lexicals.pm  view on Meta::CPAN

use strict; use warnings;
package lexicals;
our $VERSION = '0.35';

use PadWalker;

use base 'Exporter';
our @EXPORT = qw(lexicals);

sub lexicals {
    my $hash = PadWalker::peek_my(1);
    return +{
        map {
            my $v = $hash->{$_};
            $v = $$v if ref($v) =~ m'^(SCALAR|REF)$';
            s/^[\$\@\%\*]//;
            ($_, $v);
        } reverse sort keys %$hash
    };
}

lib/lexicals.pod  view on Meta::CPAN

    sub foo {
      ...
      XXX lexicals;     # See your lexicals in the nude.
      ...
    }

=head1 SEE ALSO

=over

=item * L<PadWalker>

=item * L<Acme::Locals>

=item * L<XXX>

=back

=head1 AUTHOR

Ingy döt Net <ingy@cpan.org>