Have you all not seen Class::MakeMethods? It seems to be the most
comprehensive of the object creation modules.
http://www.evoscript.org/Class-MakeMethods/
On Monday, January 14, 2002, at 02:28 PM, brian moseley wrote:
>
> from my as yet uncommitted P5EEx::Black, a few simplistic
> but possibly sufficient implementations that could
> theoretically be added to Class::Base:
>
> sub clone {
> my ($self) = @_;
>
> my $clone = bless {}, ref($self);
> for my $field (keys %$self) {
> $sclone->{$field} = $self->{$field};
> }
>
> return $clone;
> }
>
> sub equals {
> my ($self, $obj) = @_;
>
> return $self eq $obj;
> }
>
> sub to_string {
> my ($self) = @_;
>
> return ref($self);
> }
>
> i ignored class, since in java it returns an object of class
> Class, which isn't a notion in perl - ref($self) seems
> sufficient.
>
> On Mon, 14 Jan 2002, Matt Sergeant wrote:
>
>> On Mon, 14 Jan 2002, brian moseley wrote:
>>
>>> On Mon, 14 Jan 2002, Matt Sergeant wrote:
>>>
>>>> I was surprised by this, being an Andy Wardley module I
>>>> expected it to be a lot more all encompassing (if you're
>>>> listening, Hi Andy!). Whereas in fact it simply seems to
>>>> create a new hashref object and call init() if it's
>>>> available. That's all it does (unless I'm very much
>>>> mistaken).
>>>
>>> there's some error handling too:
>>>
>>> my $obj = My::Object->new or die "$0: whoops: " .
>>> My::Object->error;
>>>
>>> and there's a little bit of useful code for handling either
>>> hashrefs or hashes of named args in the constructor. that's
>>> code which is irritating to cut and paste over and over, to
>>> be sure.
>>>
>>> what else would be useful but general enough? clone(),
>>> equals(), to_string() come to mind..
>>
>> (this is based on java.lang.Object, sorry folks)
>>
>> equals
>> class
>> to_string
>> clone
>>
>> There's some other more Java-ish stuff, but I think that'll do.
>>
>>
>
>
