Select Code to Download

package Foo;
our $bar = 'some default';  
...
print $obj->bar, "\n";
$obj->bar('something else');
print $obj->bar, "\n";

package Foo; 
our $bar = 'some default'; 
...
print $Foo::bar, "\n";
$Foo::bar = 'something else';
print $Foo::bar, "\n";

package Foo; 
my $bar = 'some default'; 
...
    $bar = shift if @_; 
    return $bar;
}

package Foo;
my $bar = 'some default'; 
sub bar_ref {
    return \$bar; 
}

package Foo; 
my $bar = 'some default'; 
sub bar : lvalue {
  $bar;
}

 print Foo::bar, "\n"; 
Foo::bar = 'something else'; 
print Foo::bar;

package Foo; 
{ 
    my $bar = 'some default'; 
    sub bar : lvalue { $bar }
}