Remove the :version attribute.

Author: Ovid

rfc/classes.md

@@ -113,11 +113,11 @@ say Person->num_people;     # 0
 `ADJUST` and `DESTRUCT` are [phasers](phasers.md).
 
 ## 4.2.1 Versions
-Just add the version number after the class name as a `:version(...)`
-attribute. This should accept any standard version number.
+Just add the version number after the class name. This should accept any
+standard version number.
 
 ```perl
-class My::Class :version(3.14) {
+class My::Class 3.14 {
     ...
 }
 ```
@@ -128,7 +128,7 @@ optionally add a version number to the name of the class you're inheriting
 from to show the minimum allowed version of the class.
 
 ```perl
-class Customer :isa(Person 3.14) :version(v2.1.0) {
+class Customer v2.1.0 :isa(Person 3.14) {
     field $customer_id :param;
 
     method name :overrides () {
@@ -207,7 +207,7 @@ say $customer->to_string();      # Ford Prefect (#42)
 Multiple roles may be consumed.
 
 ```perl
-class Customer :isa(Person) :does(RoleStringify, RoleJSON) :version(v1.2.3) {
+class Customer 1.2 :isa(Person) :does(RoleStringify, RoleJSON) {
     ...
 }
 ```

rfc/overview.md

@@ -211,14 +211,14 @@ roles):
 ```perl
 use feature 'class';
 
-class Cache::LRU :version(v0.1.0) {
+class Cache::LRU v0.1.0 {
     use Hash::Ordered;
     use Carp 'croak';
 
-    field $num_caches :common                 { 0 };
-    field $cache      :handles(exists delete) { Hash::Ordered->new };
-    field $max_size   :param  :reader         { 20 };
-    field $created    :reader                 { time };
+    field $num_caches :common                 = 0;
+    field $cache      :handles(exists delete) = Hash::Ordered->new;
+    field $max_size   :param  :reader         = 20;
+    field $created    :reader                 = time;
 
     ADJUST { # called after new()
         $num_caches++;
@@ -230,23 +230,18 @@ class Cache::LRU :version(v0.1.0) {
 
     method num_caches :common () { $num_caches }
 
-    method set ( $key, $value ) {
-        if ( $self->exists($key) ) {
-            $self->delete($key);
+    method set( $key, $value ) {
+        $cache->unshift( $key, $value );    # new values in front
+        if ( $cache->keys > $max_size ) {
+            $cache->pop;
         }
-        elsif ( $cache->keys > $max_size ) {
-            $cache->shift;
-        }
-        $cache->set( $key, $value );  # new values in front
     }
 
     method get($key) {
-        if ( $self->exists($key) ) {
-            my $value = $cache->get($key);
-            $self->set( $key, $value );  # put it at the front
-            return $value;
-        }
-        return;
+        return unless $cache->exists($key);
+        my $value = $cache->get($key);
+        $self->unshift( $key, $value );     # put it at the front
+        return $value;
     }
 }
 ```

templates/rfc/classes.md

@@ -103,11 +103,11 @@ say Person->num_people;     # 0
 
 ## Versions
 
-Just add the version number after the class name as a `:version(...)`
-attribute. This should accept any standard version number.
+Just add the version number after the class name. This should accept any
+standard version number.
 
 ```perl
-class My::Class :version(3.14) {
+class My::Class 3.14 {
     ...
 }
 ```
@@ -119,7 +119,7 @@ optionally add a version number to the name of the class you're inheriting
 from to show the minimum allowed version of the class.
 
 ```perl
-class Customer :isa(Person 3.14) :version(v2.1.0) {
+class Customer v2.1.0 :isa(Person 3.14) {
     field $customer_id :param;
 
     method name :overrides () {
@@ -199,7 +199,7 @@ say $customer->to_string();      # Ford Prefect (#42)
 Multiple roles may be consumed.
 
 ```perl
-class Customer :isa(Person) :does(RoleStringify, RoleJSON) :version(v1.2.3) {
+class Customer 1.2 :isa(Person) :does(RoleStringify, RoleJSON) {
     ...
 }
 ```

templates/rfc/overview.md

@@ -209,14 +209,14 @@ roles):
 ```perl
 use feature 'class';
 
-class Cache::LRU :version(v0.1.0) {
+class Cache::LRU v0.1.0 {
     use Hash::Ordered;
     use Carp 'croak';
 
-    field $num_caches :common                 { 0 };
-    field $cache      :handles(exists delete) { Hash::Ordered->new };
-    field $max_size   :param  :reader         { 20 };
-    field $created    :reader                 { time };
+    field $num_caches :common                 = 0;
+    field $cache      :handles(exists delete) = Hash::Ordered->new;
+    field $max_size   :param  :reader         = 20;
+    field $created    :reader                 = time;
 
     ADJUST { # called after new()
         $num_caches++;
@@ -228,23 +228,18 @@ class Cache::LRU :version(v0.1.0) {
 
     method num_caches :common () { $num_caches }
 
-    method set ( $key, $value ) {
-        if ( $self->exists($key) ) {
-            $self->delete($key);
+    method set( $key, $value ) {
+        $cache->unshift( $key, $value );    # new values in front
+        if ( $cache->keys > $max_size ) {
+            $cache->pop;
         }
-        elsif ( $cache->keys > $max_size ) {
-            $cache->shift;
-        }
-        $cache->set( $key, $value );  # new values in front
     }
 
     method get($key) {
-        if ( $self->exists($key) ) {
-            my $value = $cache->get($key);
-            $self->set( $key, $value );  # put it at the front
-            return $value;
-        }
-        return;
+        return unless $cache->exists($key);
+        my $value = $cache->get($key);
+        $self->unshift( $key, $value );     # put it at the front
+        return $value;
     }
 }
 ```