Changeset 71 in bookmarks for trunk/lib/Bookmarks

Timestamp:

02/13/14 16:10:42 (11 years ago)

Author:

peter

Message:

• added a Bookmarks::Search class that encapsulates the query, tags, limit, and offset values for a given search
• Bookmarks::List now has a search attribute that takes a Bookmarks::Search object instead of the individual attributes from the search
• Bookmarks::get_cotags() takes a Bookmarks::Search object as its search parameter instead of discrete tags and query parameters
• changed the name of the Bookmarks::get_bookmarks() parameter from tag to tags to align with the rest of the backend APIs

Location:

trunk/lib/Bookmarks

Files:

• Controller.pm (modified) (2 diffs)
• List.pm (modified) (2 diffs)
• Search.pm (added)

trunk/lib/Bookmarks/Controller.pm

@@ -85 +85 @@
     my $list = $self->bookmarks->get_bookmarks({
         query  => $query,
-        tag    => \@tags,
+        tags   => \@tags,
         limit  => $limit,
         offset => $offset,
@@ -104 +104 @@
 
     # construct a feed from the most recent 12 bookmarks
-    my $list = $self->bookmarks->get_bookmarks({ query => $query, tag => \@tags, limit => 12 });
+    my $list = $self->bookmarks->get_bookmarks({ query => $query, tags => \@tags, limit => 12 });
     return $list->as_atom;
 }

trunk/lib/Bookmarks/List.pm

@@ -6 +6 @@
 use HTTP::Date qw{time2iso time2isoz};
 
-has bookmarks => (is => 'ro');
-has query  => (is => 'ro');
-has tags   => (
+has bookmarks => (
     is => 'ro',
-    default => sub { [] },
+    isa => 'Bookmarks',
 );
-has limit  => (is => 'ro');
-has offset => (is => 'ro');
+has search => (
+    is => 'ro',
+    isa => 'Bookmarks::Search',
+    handles => [qw{query tags limit offset}],
+);
 has results => ( is => 'ro' );
 has title => (
@@ -182 +183 @@
 
     my @all_tags = $self->bookmarks->get_tags({ selected => @{ $self->tags }[0] });
-    my @cotags = $self->bookmarks->get_cotags({
-        query  => $self->query,
-        tag    => $self->tags,
-    });
+    my @cotags = $self->bookmarks->get_cotags({ search => $self->search });
 
     $template->process(