http://qs1969.pair.com?node_id=11116969

FYI: I've been doing a lot of of work speccing out Cor, an object system for the Perl core.

You can read about it on the wiki. There are also extensive links on different pages for people to provide feedback.

Per discussion with Sawyer, the current Perl pumpking, the current plan is that Cor will go into the Perl core. Unlike previous attempts, this one looks like it will really happen. So get your feedback in now.

To give you a little taste, here's a simple LRU cache written in Cor.

class Cache::LRU { use Hash::Ordered; has $cache :handles(get) :builder; has $max_size :new(optional) :reader :isa(PositiveInt) = 20; has $created :reader = time; method _build_cache () { Hash::Ordered->new } method set ( $key, $value ) { if ( $cache->exists($key) ) { $cache->delete($key); } elsif ( $cache->keys > $max_size ) { $cache->shift; } $cache->set( $key, $value ); # new values in front } }

Also, holy carp! I've had an account here for 20 years!