Select Code to Download

#!/usr/bin/perl

...
    
}
1

#!/usr/bin/perl
...
);

1

#!/usr/bin/perl

...
$post->date("Today");
$post->text("Text within the first post. Hello Hello Hello.");
$post->set_name("Monk");

You are overwriting a locally defined method (get_name) with an access
+or at /usr/local/lib/perl/5.10.1/Moose/Meta/Attribute.pm line 1053
    Moose::Meta::Attribute::_process_accessors('Moose::Meta::Attribute
+=HASH(0x1828380)', 'reader', 'get_name', undef) called at /usr/local/
+lib/perl/5.10.1/Class/MOP/Attribute.pm line 428
...
------------------
(program exited with code: 255)
Press return to continue