Hi Mark,
Glad you like it.
> Would it work for something like this:
>
> package Object;
>
> sub new {
> my ($class, $id) = @_;
> my $self = {};
> bless $self, $class;
> $self->{name} = "name of object";
> $self->{id} = $id;
> return $self;
> }
>
> package main
Thilo,
I think this is a great idea. Would it work for something like this:
package Object;
sub new {
my ($class, $id) = @_;
my $self = {};
bless $self, $class;
$self->{name} = "name of object";
$self->{id} = $id;
return $self;
}
package main;
