1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
package WWW::OpenSearch::Query;
use strict;
use warnings;
use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors( qw( role searchTerms ) );
=head1 NAME
WWW::OpenSearch::Query - Object to represent a sample query
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 CONSTRUCTOR
=head2 new( [%options] )
=head1 ACCESSORS
=over 4
=item * role
=item * searchTerms
=back
=head1 AUTHOR
=over 4
=item * Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
=item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
=back
=head1 COPYRIGHT AND LICENSE
Copyright 2005-2013 by Tatsuhiko Miyagawa and Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
1;
|