Help for this page

Select Code to Download


  1. or download this
    sub new
    {
        my $class = shift;
    ...
    
         $self->fooge(@_);  # Blind parameter passing
    }
    
  2. or download this
    sub fooge
    {
         my ($foo, $bar) = (shift, shift);
    ...
    
         # ...
    }
    
  3. or download this
    sub fooge
    {
         my ($foo, $bar) = @_;
    ...
    
         # ...
    }