[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Package.pm

package Psh::Builtins::Package;

require Psh::Util;

=item * C<package packagename>

Switches to another perl package.

=cut

sub bi_package
{
	my $line= shift;
	my @words= @{shift()};

	$Psh::PerlEval::current_package= $words[0];
	return (1,undef);
}

1;
Commit	Line	Data
86530b38 AT	1	package Psh::Builtins::Package;
	2
	3	require Psh::Util;
	4
	5	=item * C<package packagename>
	6
	7	Switches to another perl package.
	8
	9	=cut
	10
	11	sub bi_package
	12	{
	13	my $line= shift;
	14	my @words= @{shift()};
	15
	16	$Psh::PerlEval::current_package= $words[0];
	17	return (1,undef);
	18	}
	19
	20	1;