X-Git-Url: http://erislabs.net/gitweb/?p=libwww-opensearch-perl.git;a=blobdiff_plain;f=lib%2FWWW%2FOpenSearch%2FUrl.pm;fp=lib%2FWWW%2FOpenSearch%2FUrl.pm;h=33cbd0aab9a1436a43d05c152b86b67c6efce94c;hp=0000000000000000000000000000000000000000;hb=ec50391b25e981b1b9bae8e42e03c0fc9c218845;hpb=3bea9ee9d57430b70d78dc4bed903b395bb4356a

diff --git a/lib/WWW/OpenSearch/Url.pm b/lib/WWW/OpenSearch/Url.pm
new file mode 100644
index 0000000..33cbd0a
--- /dev/null
+++ b/lib/WWW/OpenSearch/Url.pm
@@ -0,0 +1,108 @@
+package WWW::OpenSearch::Url;
+
+use base qw( Class::Accessor::Fast );
+
+use URI;
+use URI::Escape;
+
+__PACKAGE__->mk_accessors( qw( type template method params macros ) );
+
+=head1 NAME
+
+WWW::OpenSearch::Url
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+=head1 CONSTRUCTOR
+
+=head2 new( [%options] )
+
+=head1 METHODS
+
+=head2 parse_macros( )
+
+=head2 prepare_query( [ \%params ] )
+
+=head1 ACCESSORS
+
+=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 2006 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
+
+sub new {
+    my( $class, %options ) = @_;
+    
+    $options{ method } ||= 'GET';
+    $options{ template } = URI->new( $options{ template } );
+    
+    my $self = $class->SUPER::new( \%options );
+    $self->parse_macros;
+
+    return $self;
+}
+
+sub parse_macros {
+    my $self = shift;
+    
+    my %query = $self->method eq 'post'
+        ? %{ $self->params }
+        : $self->template->query_form;
+    
+    my %macros;
+    for( keys %query ) {
+        if( $query{ $_ } =~ /^{(.+)}$/ ) {
+            $macros{ $1 } = $_;
+        }
+    }
+    
+    $self->macros( \%macros );
+}
+
+sub prepare_query {
+    my( $self, $params ) = @_;
+    my $url   = $self->template->clone;
+    
+    $params->{ startIndex     } ||= 1;
+    $params->{ startPage      } ||= 1;
+    $params->{ language       } ||= '*';
+    $params->{ outputEncoding } ||= 'UTF-8';
+    $params->{ inputEncoding  } ||= 'UTF-8';
+    
+    my $macros = $self->macros;
+
+    # attempt to handle POST
+    if( $self->method eq 'post' ) {
+        my $post = $self->params;
+        for( keys %macros ) {
+            $post->{ $macros->{ $_ } } = $params->{ $_ };
+        }
+        return [ $url, $post ];
+    }
+
+    my $query = { $url->query_form };
+    for( keys %$macros ) {
+        $query->{ $macros->{ $_ } } = $params->{ $_ };
+    }
+    
+    $url->query_form( $query );
+    return $url;
+}
+
+1;