view release on metacpan or  search on metacpan

t/02thievery.t  view on Meta::CPAN

=head1 PURPOSE

Tests that variable stealing works.

Scalars, arrays and hashes are tested; multiple call stack levels are tested;
decimal and hexadecimal notations for call stack levels are tested; the syntax
with and without parentheses is tested; line breaks and other insignicant
white space in the syntax is tested.

There is a test that an exception is thrown when you try to steal a
non-existant variable.

There is a test that stolen variables are writable.

=head1 AUTHOR

Toby Inkster E<lt>tobyink@cpan.orgE<gt>.

=head1 COPYRIGHT AND LICENCE

This software is copyright (c) 2012 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

use 5.012;
use strict;
use warnings;
use Test::More;
use Test::Fatal;

use Acme::Lexical::Thief;

sub foo {
	steal $x, $y;
	steal 1 $z;
	steal 0x2 @A;
	steal(@B);
	steal
	(
		%C
	);
	
	return {
		'$x'  => $x,
		'$y'  => $y,
		'$z'  => $z,
		'@A'  => \@A,
		'@B'  => \@B,
		'%C'  => \%C,
	};
}

sub bar {
	my $x = 'x-bar';
	my $y = 'y-bar';
	my $z = 'z-bar';
	my @A = ('A-bar');
	my @B = ('B-bar');
	my %C = (C => 'bar');
	foo();
}

sub baz {
	my $x = 'x-baz';