Variable-Eject

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "t",
         "inc"
      ]
   },
   "prereqs" : {
      "build" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0",
            "Test::If" : "0",
            "Test::More" : "0",
            "Test::NoWarnings" : "0",
            "lib::abs" : "0.9"
         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {

META.yml  view on Meta::CPAN

---
abstract: 'Eject variables from hash to current namespace'
author:
  - 'Mons Anderson <mons@cpan.org>'
build_requires:
  ExtUtils::MakeMaker: 0
  Test::If: 0
  Test::More: 0
  Test::NoWarnings: 0
  lib::abs: 0.9
configure_requires:
  ExtUtils::MakeMaker: 0
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.133380'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Variable-Eject

Makefile.PL  view on Meta::CPAN

	ABSTRACT_FROM     => 'lib/Variable/Eject.pm',
	PREREQ_PM         => {
		'uni::perl'      => 0.03,
		'Devel::Declare' => '0.005011',
		'Lexical::Alias' => '0.04'
	},
	TEST_REQUIRES => {
		'lib::abs'         => 0.90,
		'Test::If'         => 0,
		'Test::More'       => 0,
		'Test::NoWarnings' => 0,
	},
	AUTHOR            => 'Mons Anderson <mons@cpan.org>',
	LICENSE           => 'perl',
);

t/00-load.t  view on Meta::CPAN

#!/usr/bin/env perl

use uni::perl;
use lib::abs '../lib';
use Test::More tests => 2;
use Test::NoWarnings;
BEGIN { use_ok( 'Variable::Eject' ); }
diag( "Testing Variable::Eject $Variable::Eject::VERSION, Devel::Declare $Devel::Declare::VERSION, Perl $], $^X" );

t/01-tests.t  view on Meta::CPAN

#!/usr/bin/env perl

use uni::perl;
use Test::More tests => 5;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;

my $hash = {
	scalar => 'scalar value',
	array  => [1..3],
	hash   => { my => 'value' },
};

eject(

t/02-syntest.t  view on Meta::CPAN

#!/usr/bin/env perl

use uni::perl;
use Test::More tests => 3;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;

my $hash = { scalar => 'scalar value' };

eject( $hash => ${scalar} );

is $scalar, 'scalar value', 'scalar ejected';
$scalar .= ' modified';

t/03-syntest.t  view on Meta::CPAN

#!/usr/bin/env perl

use uni::perl;
use Test::More skip_all => 'TODO: unimplemented syn';
use Test::More tests => 3;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;

my $hash = { scalar => 'scalar value' };

bless $hash, 'obj';
sub obj::param { $_[0]->{$_[1]}; }

eject( $hash->param( $scalar )  );

t/04-syntest.t  view on Meta::CPAN

#!/usr/bin/env perl

use uni::perl;
use Test::More skip_all => 'TODO: unimplemented syn';
use Test::More tests => 3;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;

my $hash = { scalar => 'scalar value' };

eject $hash => $scalar;

is $scalar, 'scalar value', 'scalar ejected';
$scalar .= ' modified';

t/05-ambiguous.t  view on Meta::CPAN

#!/usr/bin/env perl

#use uni::perl;
use strict;
use warnings;
use Test::More tests => 3;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;

sub test {}
my $hash = { test => 'scalar value' };

eject( $hash => $test );

is $test, 'scalar value', 'scalar ejected';
$test .= ' modified';

t/06-syntest.t  view on Meta::CPAN

#!/usr/bin/env perl

use uni::perl;
use Test::More tests => 3;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;

my $hash = { scalar => 'scalar value' };

eject( $hash => $ { scalar } );

is $scalar, 'scalar value', 'scalar ejected';
$scalar .= ' modified';

t/07-deparse.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use Test::More tests => 2;
use Test::NoWarnings;
use lib::abs '../lib';
use Variable::Eject;
use B::Deparse;

my $hash = {
	scalar => 'scalar value',
	array  => [1..3],
	hash   => { my => 'value' },
};

t/99-dist.t  view on Meta::CPAN

	prereq => [
		undef,undef, [qw( Test::Pod Test::Pod::Coverage )],
	],
	syntax => {
		file_match => qr{^ex/.+\.(pl|t)$},
	},
);
exit 0;

require Test::Pod::Coverage; # kwalitee hacks, hope temporary
require Test::NoWarnings;

t/pod.t  view on Meta::CPAN

	my $lib = lib::abs::path( ".." );
	chdir $lib or plan skip_all => "Can't chdir to dist $lib";
}

# Ensure a recent version of Test::Pod
eval "use Test::Pod 1.22; 1"
	or plan skip_all => "Test::Pod 1.22 required for testing POD";

all_pod_files_ok();
exit;
require Test::NoWarnings;

 view all matches for this distribution
 view release on metacpan -  search on metacpan