Permalink
Browse files

Make query rw.

  • Loading branch information...
1 parent 0166e62 commit 28ea06a82ea0ec3d592668496f9ba198d5bf04a1 Cory Watson committed Mar 24, 2010
Showing with 10 additions and 4 deletions.
  1. +6 −0 Changes
  2. +1 −1 lib/Data/SearchEngine.pm
  3. +3 −3 lib/Data/SearchEngine/Query.pm
View
@@ -1,5 +1,11 @@
Revision history for Data-SearchEngine
+0.15
+ * Make query rw
+
+0.14
+ * Allow original_query to be undefined, since query might be
+
0.13 March 23, 2010
* Remove required flag from Query's query attribute
* Add has_query predicate to Query
View
@@ -1,7 +1,7 @@
package Data::SearchEngine;
use Moose::Role;
-our $VERSION = '0.13';
+our $VERSION = '0.15';
requires qw(search);
@@ -37,7 +37,7 @@ has order => (
has original_query => (
traits => [qw(Digestable)],
is => 'ro',
- isa => 'Str',
+ isa => 'Str|Undef',
lazy => 1,
default => sub { my $self = shift; return $self->query }
);
@@ -50,7 +50,7 @@ has page => (
has query => (
traits => [qw(Digestable)],
- is => 'ro',
+ is => 'rw',
isa => 'Str',
predicate => 'has_query'
);
@@ -183,4 +183,4 @@ This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
-See http://dev.perl.org/licenses/ for more information.
+See http://dev.perl.org/licenses/ for more information.

0 comments on commit 28ea06a

Please sign in to comment.