Changeset 71 in bookmarks for trunk/lib/Bookmarks/List.pm

Timestamp:

02/13/14 16:10:42 (10 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

File:

• trunk/lib/Bookmarks/List.pm (modified) (2 diffs)

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(