Indeed; CLOS was in fact one of the inspirations for Moose. However, it would be a bit of a stretch to call Lisp mainstream; it's barely used outside academia/Emacs.

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

I find CLOS quite easy to learn.

With all due respect, tobyink; How do you know? What makes you think so? I'd dearly love to see your stats.

For example; If someone should call me a derogatory name, must I feel compelled to respond? I'd argue not. If a person is relatively comfortable with themselves. Why would they care? I wouldn't.

It is in this same vein, that I would suggest. If a person recognizes the advantages, and chooses Perl. Why would/should they feel compelled to argue against rubbish -- like perls before swine, as it were. I'd also contend, that the type of people that choose Perl, in the first place, are of a type that clearly see the BS, and choose not to bother with it. Seeing it for what it is.

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;

"With all due respect, tobyink; How do you know? What makes you think so?"

Because this is true for any mainstream programming language - there are always people abandoning the language for pastures new, and new people discovering the language; there are organizations rewriting a legacy application in a different language (in fact, choosing a different language to rewrite a legacy system is a good idea - it helps ensure crufty parts of the old system don't get kept around for convenience); people switching jobs and having to adjust to a new development environment.

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

I'm not so sure.

It's all so; he said, she said, they say. They, say alot of things. But, to date, I have yet to ever meet they.

While I'm sure that to some extent, what you say is true. I'd really love to see some numbers.

All the best, tobyink.

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;