Select Code to Download

# Accessor_Factory.pm
use strict;
...
  return;
}
__END__

# Foo.pm
use strict;
...
  return bless +{}, shift;
}
__END__

# demo.pl
use strict;
...
print $foo->baz( 100 ), "\n";

__END__

1
3
...
8
88
100