Re: A Class inside a Perl script?

You're package is named test, but you are blessing into Person.

You should use the following constructor in your packages, which takes care of inheritance too.

sub new
{
    my $proto = shift;

    my $class = ref $proto || $proto;
    my $self = {};

    # ...
    # ...

    bless $self, $class;
    return $self;
}
[download]

--
Rohan

Comment on Re: A Class inside a Perl script? Download Code

Replies are listed 'Best First'.
Re^2: A Class inside a Perl script? by GrandFather (Saint) on Jun 02, 2009 at 11:37 UTC
`my $class = ref $proto \|\| $proto; ... bless $self, $class;` [download] Don't do that. It generates a function/method that implies both constructor and clone semantics. `new` should be a class function that generates a new initialised object. An explicit copy or clone method (not class function) should be used to generate a cloned instance of an existing object. new() function: incorrect? and its replies discuss the topic at some length. True laziness is hard work	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: A Class inside a Perl script?
by GrandFather (Saint) on Jun 02, 2009 at 11:37 UTC

    my $class = ref $proto || $proto;
    ...
    bless $self, $class;
[download]

Don't do that. It generates a function/method that implies both constructor and clone semantics. new should be a class function that generates a new initialised object. An explicit copy or clone method (not class function) should be used to generate a cloned instance of an existing object. new() function: incorrect? and its replies discuss the topic at some length.

True laziness is hard work

[reply]
[d/l]
[select]