Help for this page

Select Code to Download

Select or download this

package SomeClass;
use Scalar::Util;
...

SomeClass->init( 456);
print SomeClass->some_field, "\n";

Select or download this

sub new {
    my $class = shift;
    $class->init( @_);
}