Select Code to Download

has '_posts' => (is => 'ro', lazy => 1, traits => ['Hash'], isa => 'Ha
+shRef[HashRef]', builder => '_load_posts',                           
+     
                handles => { set_post => 'set', get_post => 'get', num
+_posts => 'count',                                                   
+    
                post_pairs => 'kv', post_keys => 'keys' }, writer => '
+_set_posts');

use Storable;
store { {} }, $file;  # This line needs to be changed.
...
$s->_set_posts(retrieve $file);

Attribute (_posts) does not pass the type constraint because: Validati
+on failed for 'HashRef[HashRef]' with value 1 at native delegation me
+thod Site::Posts::num_posts (count) of attribute _posts

package Site::Posts ;
...

1;