Commits

Shlomi Fish committed 95e9004

Convert from Class::Accessor to MooX.

Comments (0)

Files changed (1)

lib/Shlomif/Homepage/FortuneCollections.pm

 
 use utf8;
 
-use base 'Class::Accessor';
+use MooX (qw( late ));
 
-my @req_fields = (qw(
+has [qw(
     about_blurb
     desc
     id
     page_title
     text
     title
-));
-
-__PACKAGE__->mk_accessors(@req_fields);
+)] => (is => 'ro', isa => 'Str', required => 1);
 
 sub nav_record
 {
 {
     my ($class, $rec) = @_;
 
-    foreach my $req_field (@req_fields)
-    {
-        if (!exists($rec->{$req_field}))
-        {
-            Carp::confess("Field $req_field does not exist in record for "
-                . Dumper($rec) . "!");
-        }
-    }
-
     return Shlomif::Homepage::FortuneCollections::Record->new($rec);
 }