Select Code to Download

Select or download this
```
$self->foo();
foo($self);
```

package A;

...
object B call to bar():
$self->foo() = B
foo( $self ) = A

Select or download this
```
($x) = foo();
 $x  = foo();
```

Select or download this

my @foo_subs = ( 'sub { return ( 4, 5, 6 ) }',
                 'sub { my @x = ( 4, 5, 6 ); return @x; }',
...
foo = sub { wantarray ? ( 7 ) : 8 }
($x) = 7
 $y  = 8

Select or download this

for ( @x ) { foo( $_ ) }
map { foo( $_ ) } @x;

Select or download this

sub foo {
    my $wa = wantarray;
...
map{foo()} @x:
array
array

Select or download this

sub baz { return 11 unless shift }

print 'baz(5): ', baz(5), "\n";
print 'baz(0): ', baz(0), "\n";

Select or download this
```
baz(5): 5
baz(0): 11
```

Select or download this

my $FOO = 'foo';
sub bar { $_[0] = 'bar' }
...
print $FOO, "\n";
print bar( $FOO ), "\n";
print $FOO, "\n";

Select or download this
```
foo
bar
bar
```

Select or download this

for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }

Select or download this

Modification of a read-only value attempted at interview.pl line