view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

name: Script-State
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  Carp: 0
  Data::Dumper: 0
  File::Spec: 0
  PadWalker: 0
resources:
  license: http://dev.perl.org/licenses/
  repository: git://github.com/motemen/Script-State.git
version: 0.03

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;

name 'Script-State';
all_from 'lib/Script/State.pm';

requires 'PadWalker';
requires 'Data::Dumper';
requires 'Carp';
requires 'File::Spec';

tests 't/*.t';
author_tests 'xt';

test_requires 'Test::More';

readme_markdown_from_pod;

lib/Script/State.pm  view on Meta::CPAN

package Script::State;
use strict;
use warnings;
use PadWalker qw(var_name);
use Data::Dumper;

our $VERSION = '0.03';

our $DATAFILE;
our $SCRIPT_DATA;
our $VAR_REF;

sub script_state {
    my $name = var_name 1, \$_[0] or do {