Changeset 61 in bookmarks for trunk/BookmarkController.pm

Timestamp:

08/23/13 16:50:59 (11 years ago)

Author:

peter

Message:

• wrap the creation of the Bookmarks object into the BookmarkController
• bookmark is a lazy-loaded read-only attribute with a builder in BookmarkController
• made dbname and request required attributes of BookmarkController
• updated the api notes

File:

• trunk/BookmarkController.pm (modified) (2 diffs)

trunk/BookmarkController.pm

@@ -9 +9 @@
 use Template;
 
+has dbname => (
+    is => 'ro',
+    required => 1,
+);
 has bookmarks => (
-    is => 'rw',
+    is => 'ro',
     handles => [qw{get_bookmark}],
+    builder => '_build_bookmarks',
+    lazy => 1,
 );
 has base_uri => (
@@ -20 +26 @@
 has request => (
     is => 'ro',
+    required => 1,
 );
+
+sub _build_bookmarks {
+    my $self = shift;
+    return Bookmarks->new({
+        dbname   => $self->dbname,
+        base_uri => $self->base_uri,
+    });
+}
 
 sub _build_base_uri {