Initial commit of OpenSPARC T2 design and verification files.

[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;