Help for this page

Select Code to Download


  1. or download this
    sub X
{
    my $self = shift;

    $self->{age} = 17;
}
  2. or download this
    sub X
{
    my $self = shift;
...
    $self->{age} = 17;
    print "\$self = $self\n";
}
  3. or download this
    sub Z
{
     my ($foo) = @_;
...
print "\$bar = $bar\n";
Z($bar);
print "\$bar = $bar\n";
  4. or download this
    sub Z
{
     my ($foo) = @_;
...
print "\$bar = $bar\n";
Z(\$bar);
print "\$bar = $bar\n";