[p5sagit/namespace-clean.git] / t / lib / OtherTypes.pm

package OtherTypes;

our $foo = 23;
our @foo = "bar";
our %foo = (mouse => "trap");
{
    no warnings;
    # perl warns about the bareword foo. If we use *foo instead the
    # warning goes away, but the *foo{IO} slot doesn't get autoviv'd at
    # compile time.
    open foo, "<", $0;
}

BEGIN { $main::pvio = *foo{IO} }

sub foo { 1 }

use namespace::clean;

1;
Commit	Line	Data
6444f23a	1	package OtherTypes;
	2
	3	our $foo = 23;
	4	our @foo = "bar";
	5	our %foo = (mouse => "trap");
	6	{
	7	no warnings;
	8	# perl warns about the bareword foo. If we use *foo instead the
	9	# warning goes away, but the *foo{IO} slot doesn't get autoviv'd at
	10	# compile time.
	11	open foo, "<", $0;
	12	}
	13
	14	BEGIN { $main::pvio = *foo{IO} }
	15
	16	sub foo { 1 }
	17
	18	use namespace::clean;
	19
	20	1;