Select Code to Download

$var = "value";
print($main::var eq "value" ? "true" : "false", "\n");  # true

our $var = "value";
print($main::var eq "value" ? "true" : "false", "\n");  # true

package Test;
$var = "value";
print($Test::var eq "value" ? "true" : "false", "\n");  # true

our $var;
package Test;
$var = "value";
print($Test::var eq "value" ? "true" : "false", "\n");  # false