Changeset 25 in bookmarks for trunk/Bookmark.pm

Timestamp:

05/23/13 00:37:57 (11 years ago)

Author:

peter

Message:

• Bookmark uses Moose
  • the Bookmarks base_uri should be passed to the constructor to set the bookmark_uri attribute of the Bookmark
  • added a TO_JSON method to serialize the URIs to strings for JSON
• use JSON::convert_blessed to trigger calling Bookmark::TO_JSON
• added a private _sth_tags_from_uri attribute to Bookmarks
• Bookmarks::get_tags can be called with a uri parameter to fetch a list of tags for that resource
• Bookmarks::get_bookmark() returns a Bookmark object
• Bookmarks::get_resources() returns an array of Bookmark objects

File:

• trunk/Bookmark.pm (modified) (1 diff)

trunk/Bookmark.pm

@@ -1 +1 @@
 package Bookmark;
 
-use Class::Accessor qw{antlers};
+use Moose;
 
-has id    => ( is => 'ro' );
-has uri   => ( is => 'ro' );
-has ctime => ( is => 'ro' );
-has mtime => ( is => 'ro' );
+has id    => ( is => 'rw' );
+has uri   => ( is => 'rw' );
+has title => ( is => 'rw' );
+has ctime => ( is => 'rw' );
+has mtime => ( is => 'rw' );
+has tags  => ( is => 'rw' );
+has bookmark_uri => ( is => 'rw' );
+
+sub BUILD {
+    my $self = shift;
+    my $args = shift;
+    if ($args->{base_uri}) {
+        $self->bookmark_uri(URI->new_abs($self->id, $args->{base_uri}));
+    }
+}
+
+sub TO_JSON {
+    my $self = shift;
+    return {
+        id    => $self->id,
+        uri   => $self->uri,
+        title => $self->title,
+        ctime => $self->ctime,
+        mtime => $self->mtime,
+        tags  => $self->tags,
+        ($self->bookmark_uri ? (bookmark_uri => $self->bookmark_uri->canonical->as_string) : ()),
+    };
+}
 
 # module return