Changeset 2407

Show
Ignore:
Timestamp:
12/21/07 21:31:31
Author:
bricas
Message:

perltidy

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch.pm

    r2405 r2407  
    1111use WWW::OpenSearch::Description; 
    1212 
    13 use Encode ();  
     13use Encode (); 
    1414 
    1515__PACKAGE__->mk_accessors( qw( description_url agent description ) ); 
     
    112112 
    113113sub new { 
    114     my( $class, $url ) = @_; 
    115      
     114    my ( $class, $url ) = @_; 
     115 
    116116    croak( "No OpenSearch Description url provided" ) unless $url; 
    117      
     117 
    118118    my $self = $class->SUPER::new; 
    119119 
     
    122122 
    123123    $self->fetch_description; 
    124      
     124 
    125125    return $self; 
    126126} 
    127127 
    128128sub fetch_description { 
    129     my( $self, $url ) = @_; 
     129    my ( $self, $url ) = @_; 
    130130    $url ||= $self->description_url; 
    131131    $self->description_url( $url ); 
    132132    my $response = $self->agent->get( $url ); 
    133      
    134     unless( $response->is_success ) { 
     133 
     134    unless ( $response->is_success ) { 
    135135        croak "Error while fetching $url: " . $response->status_line; 
    136136    } 
    137137 
    138     $self->description( WWW::OpenSearch::Description->new( $response->content ) ); 
     138    $self->description( 
     139        WWW::OpenSearch::Description->new( $response->content ) ); 
    139140} 
    140141 
    141142sub search { 
    142     my( $self, $query, $params, $url ) = @_; 
     143    my ( $self, $query, $params, $url ) = @_; 
    143144 
    144     $params ||= { }; 
     145    $params ||= {}; 
    145146    $params->{ searchTerms } = $query; 
    146     Encode::_utf8_off( $params->{ searchTerms } );  
    147      
     147    Encode::_utf8_off( $params->{ searchTerms } ); 
     148 
    148149    $url ||= $self->description->get_best_url; 
    149     return $self->agent->search( WWW::OpenSearch::Request->new( $url, $params ) ); 
     150    return $self->agent->search( 
     151        WWW::OpenSearch::Request->new( $url, $params ) ); 
    150152} 
    151153 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Agent.pm

    r2294 r2407  
    4747 
    4848sub new { 
    49     my( $class, @rest ) = @_; 
     49    my ( $class, @rest ) = @_; 
    5050    return $class->SUPER::new( 
    5151        agent => join( '/', __PACKAGE__, $WWW::OpenSearch::VERSION ), 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Description.pm

    r2405 r2407  
    141141=cut 
    142142 
    143 for( @columns ) { 
     143for ( @columns ) { 
    144144    no strict 'refs'; 
    145145    my $col = lc; 
     
    150150    my $class = shift; 
    151151    my $xml   = shift; 
    152      
    153     my $self = $class->SUPER::new; 
    154      
    155     eval{ $self->load( $xml ); } if $xml; 
    156     if( $@ ) { 
     152 
     153    my $self = $class->SUPER::new; 
     154 
     155    eval { $self->load( $xml ); } if $xml; 
     156    if ( $@ ) { 
    157157        croak "Error while parsing Description XML: $@"; 
    158158    } 
     
    164164    my $self = shift; 
    165165    my $xml  = shift; 
    166      
     166 
    167167    my $parser   = XML::LibXML->new; 
    168168    my $doc      = $parser->parse_string( $xml ); 
     
    170170    my $nodename = $element->nodeName; 
    171171 
    172     croak "Node should be OpenSearchDescription: $nodename" if $nodename ne 'OpenSearchDescription'; 
     172    croak "Node should be OpenSearchDescription: $nodename" 
     173        if $nodename ne 'OpenSearchDescription'; 
    173174 
    174175    my $ns = $element->getNamespace->value; 
    175176    my $version; 
    176     if( $ns eq 'http://a9.com/-/spec/opensearchdescription/1.0/' ) { 
     177    if ( $ns eq 'http://a9.com/-/spec/opensearchdescription/1.0/' ) { 
    177178        $self->ns( 'http://a9.com/-/spec/opensearchrss/1.0/' ); 
    178179        $version = '1.0'; 
     
    185186 
    186187    for my $column ( @columns ) { 
    187         my $node = $doc->documentElement->getChildrenByTagName( $column ) or next; 
    188         if( $column eq 'Url' ) { 
    189             if( $version eq '1.0' ) { 
    190                 $self->Url( [ WWW::OpenSearch::Url->new( template => $node->string_value, type => 'application/rss+xml', ns => $self->ns ) ] ); 
     188        my $node = $doc->documentElement->getChildrenByTagName( $column ) 
     189            or next; 
     190        if ( $column eq 'Url' ) { 
     191            if ( $version eq '1.0' ) { 
     192                $self->Url( 
     193                    [   WWW::OpenSearch::Url->new( 
     194                            template => $node->string_value, 
     195                            type     => 'application/rss+xml', 
     196                            ns       => $self->ns 
     197                        ) 
     198                    ] 
     199                ); 
    191200                next; 
    192201            } 
     
    196205                my $type = $urlnode->getAttributeNode( 'type' )->value; 
    197206                my $url  = $urlnode->getAttributeNode( 'template' )->value; 
    198                 $url =~ s/\?}/}/g; # optional 
     207                $url =~ s/\?}/}/g;    # optional 
    199208                my $method = $urlnode->getAttributeNode( 'method' ); 
    200209                $method = $method->value if $method; 
    201210 
    202211                my %params; 
    203                 for( $urlnode->getChildrenByTagName( 'Param' ) ) { 
     212                for ( $urlnode->getChildrenByTagName( 'Param' ) ) { 
    204213                    my $param = $_->getAttributeNode( 'name' )->value; 
    205214                    my $value = $_->getAttributeNode( 'value' )->value; 
    206                     $value    =~ s/\?}/}/g; # optional 
     215                    $value =~ s/\?}/}/g;    # optional 
    207216                    $params{ $param } = $value; 
    208217                } 
    209218 
    210                 push @url, WWW::OpenSearch::Url->new( template => $url, type => $type, method => $method, params => \%params, ns => $self->ns ); 
     219                push @url, 
     220                    WWW::OpenSearch::Url->new( 
     221                    template => $url, 
     222                    type     => $type, 
     223                    method   => $method, 
     224                    params   => \%params, 
     225                    ns       => $self->ns 
     226                    ); 
    211227            } 
    212228            $self->Url( \@url ); 
    213229        } 
    214         elsif( $version eq '1.1' and $column eq 'Query' ) { 
     230        elsif ( $version eq '1.1' and $column eq 'Query' ) { 
    215231            my $queries = $self->query || []; 
    216232 
    217233            for my $node ( $node->get_nodelist ) { 
    218                 my $query = WWW::OpenSearch::Query->new( { 
    219                     map { $_ => $node->getAttributeNode( $_ )->value } qw( role searchTerms ) 
    220                 } ); 
     234                my $query = WWW::OpenSearch::Query->new( 
     235                    {   map { $_ => $node->getAttributeNode( $_ )->value } 
     236                            qw( role searchTerms ) 
     237                    } 
     238                ); 
    221239 
    222240                push @$queries, $query; 
     
    225243            $self->query( $queries ); 
    226244        } 
    227         elsif( $version eq '1.1' and $column eq 'Image' ) { 
     245        elsif ( $version eq '1.1' and $column eq 'Image' ) { 
    228246            my $images = $self->image || []; 
    229247 
    230248            for my $node ( $node->get_nodelist ) { 
    231                 my $image = WWW::OpenSearch::Image->new( { 
    232                     ( map { my $attr = $node->getAttributeNode( $_ ); $attr ? ($_ => $attr->value) : () } qw( height width type ) ), 
    233                     url => $node->string_value 
    234                 } ); 
     249                my $image = WWW::OpenSearch::Image->new( 
     250                    {   (   map { 
     251                                my $attr = $node->getAttributeNode( $_ ); 
     252                                $attr ? ( $_ => $attr->value ) : () 
     253                                } qw( height width type ) 
     254                        ), 
     255                        url => $node->string_value 
     256                    } 
     257                ); 
    235258 
    236259                push @$images, $image; 
     
    247270sub get_best_url { 
    248271    my $self = shift; 
    249      
    250     return $self->get_url_by_type( 'application/atom+xml' ) 
     272 
     273    return 
     274           $self->get_url_by_type( 'application/atom+xml' ) 
    251275        || $self->get_url_by_type( 'application/rss+xml' ) 
    252276        || $self->get_url_by_type( 'text/xml' ) 
     
    257281    my $self = shift; 
    258282    my $type = shift; 
    259      
    260     for( $self->urls ) { 
     283 
     284    for ( $self->urls ) { 
    261285        return $_ if $_->type eq $type; 
    262     }; 
    263      
     286    } 
     287 
    264288    return; 
    265289} 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Request.pm

    r2138 r2407  
    5454 
    5555sub new { 
    56     my( $class, $os_url, $params ) = @_; 
     56    my ( $class, $os_url, $params ) = @_; 
    5757 
    58     my( $uri, $post ) = $os_url->prepare_query( $params ); 
     58    my ( $uri, $post ) = $os_url->prepare_query( $params ); 
    5959 
    6060    my $self; 
    61     if( lc $os_url->method eq 'post' ) { 
     61    if ( lc $os_url->method eq 'post' ) { 
    6262        $self = HTTP::Request::Common::POST( $uri, $post ); 
    6363        bless $self, $class; 
     
    7474 
    7575sub clone { 
    76     my $self = shift; 
     76    my $self = shift; 
    7777    my $clone = bless $self->SUPER::clone, ref( $self ); 
    7878 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Response.pm

    r2137 r2407  
    105105    my $class    = shift; 
    106106    my $response = shift; 
    107      
     107 
    108108    my $self = bless $response, $class; 
    109109 
    110110    return $self unless $self->is_success; 
    111      
     111 
    112112    $self->parse_response; 
    113      
     113 
    114114    return $self; 
    115115} 
     
    123123    return if XML::Feed->errstr; 
    124124    $self->feed( $feed ); 
    125      
     125 
    126126    $self->parse_feed; 
    127127} 
     
    134134    my $format = $feed->format; 
    135135    my $ns     = $self->request->opensearch_url->ns; 
    136      
     136 
    137137    # TODO 
    138138    # adapt these for any number of opensearch elements in 
    139139    # the feed or in each entry 
    140      
    141     if( my $atom = $feed->{ atom } ) { 
     140 
     141    if ( my $atom = $feed->{ atom } ) { 
    142142        my $total   = $atom->get( $ns, 'totalResults' ); 
    143143        my $perpage = $atom->get( $ns, 'itemsPerPage' ); 
    144144        my $start   = $atom->get( $ns, 'startIndex' ); 
    145          
     145 
    146146        $pager->total_entries( $total ); 
    147147        $pager->entries_per_page( $perpage ); 
    148         $pager->current_page( $start ? ( $start - 1 ) / $perpage + 1 : 0 ) 
    149     } 
    150     elsif( my $rss = $feed->{ rss } ) { 
    151       if ( my $page = $rss->channel->{ $ns } ) { 
    152             $pager->total_entries(    $page->{ totalResults } ); 
     148        $pager->current_page( $start ? ( $start - 1 ) / $perpage + 1 : 0 ); 
     149    } 
     150    elsif ( my $rss = $feed->{ rss } ) { 
     151        if ( my $page = $rss->channel->{ $ns } ) { 
     152            $pager->total_entries( $page->{ totalResults } ); 
    153153            $pager->entries_per_page( $page->{ itemsPerPage } ); 
    154154            my $start = $page->{ startIndex }; 
    155             $pager->current_page( $start ? ( $start - 1 ) / $page->{ itemsPerPage } + 1 : 0 ) 
     155            $pager->current_page( 
     156                $start ? ( $start - 1 ) / $page->{ itemsPerPage } + 1 : 0 ); 
    156157        } 
    157     }     
     158    } 
    158159    $self->pager( $pager ); 
    159160} 
    160161 
    161162sub next_page { 
    162     my $self = shift; 
     163    my $self = shift; 
    163164    return $self->_get_page( 'next' ); 
    164165} 
    165166 
    166167sub previous_page { 
    167     my $self = shift; 
     168    my $self = shift; 
    168169    return $self->_get_page( 'previous' ); 
    169170} 
    170171 
    171172sub _get_page { 
    172     my( $self, $direction ) = @_;     
     173    my ( $self, $direction ) = @_; 
    173174    my $pager       = $self->pager; 
    174175    my $pagermethod = "${direction}_page"; 
     
    179180    my $osu = $self->request->opensearch_url; 
    180181 
    181 #    this code is too fragile -- deparse depends on the order of query 
    182 #    params and the like. best just to use the last query params and 
    183 #    do the paging from there. 
    184 
    185 #    if( lc $osu->method ne 'post' ) { # force query build on POST 
    186 #        my $link = $self->_get_link( $direction ); 
    187 #        if( $link ) { 
    188 #            $params = $osu->deparse( $link ); 
    189 #        } 
    190 #    } 
     182    #    this code is too fragile -- deparse depends on the order of query 
     183    #    params and the like. best just to use the last query params and 
     184    #    do the paging from there. 
     185   
     186    #    if( lc $osu->method ne 'post' ) { # force query build on POST 
     187    #        my $link = $self->_get_link( $direction ); 
     188    #        if( $link ) { 
     189    #            $params = $osu->deparse( $link ); 
     190    #        } 
     191    #    } 
    191192 
    192193    # rebuild the query 
    193     if( !$params ) { 
     194    if ( !$params ) { 
    194195        $params = $self->request->opensearch_params; 
    195196 
     
    198199 
    199200        # handle paging via an index 
    200         if( exists $params->{ startIndex } ) { 
     201        if ( exists $params->{ startIndex } ) { 
     202 
    201203            # start index is pre-existing 
    202             if( $params->{ startIndex } ) { 
    203                 if( $direction eq 'previous' ) { 
    204                     $params->{ startIndex } -= $pager->entries_per_page 
     204            if ( $params->{ startIndex } ) { 
     205                if ( $direction eq 'previous' ) { 
     206                    $params->{ startIndex } -= $pager->entries_per_page; 
    205207                } 
    206208                else { 
     
    208210                } 
    209211            } 
     212 
    210213            # start index did not exist previously 
    211214            else { 
    212                 if( $direction eq 'previous' ) { 
    213                     $params->{ startIndex } = 1 
     215                if ( $direction eq 'previous' ) { 
     216                    $params->{ startIndex } = 1; 
    214217                } 
    215218                else { 
     
    222225 
    223226    my $agent = WWW::OpenSearch::Agent->new; 
    224     return $agent->search( WWW::OpenSearch::Request->new( 
    225         $osu, $params 
    226     ) ); 
     227    return $agent->search( WWW::OpenSearch::Request->new( $osu, $params ) ); 
    227228} 
    228229 
     
    231232    my $type = shift; 
    232233    my $feed = $self->feed->{ atom }; 
    233      
     234 
    234235    return unless $feed; 
    235      
    236     for( $feed->link ) { 
     236 
     237    for ( $feed->link ) { 
    237238        return $_->href if $_->rel eq $type; 
    238239    } 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Url.pm

    r2203 r2407  
    6262 
    6363sub new { 
    64     my( $class, %options ) = @_; 
    65      
     64    my ( $class, %options ) = @_; 
     65 
    6666    $options{ method } ||= 'GET'; 
    6767    $options{ template } = URI::Template->new( $options{ template } ); 
    68      
     68 
    6969    my $self = $class->SUPER::new( \%options ); 
    7070 
     
    7373 
    7474sub prepare_query { 
    75     my( $self, $params ) = @_; 
     75    my ( $self, $params ) = @_; 
    7676    my $tmpl = $self->template; 
    77     
    78     for( qw( startIndex startPage ) ) { 
     77 
     78    for ( qw( startIndex startPage ) ) { 
    7979        $params->{ $_ } = 1 if !defined $params->{ $_ }; 
    8080    } 
    81     $params->{ language       } ||= '*'; 
     81    $params->{ language }      ||= '*'; 
    8282    $params->{ outputEncoding } ||= 'UTF-8'; 
    83     $params->{ inputEncoding } ||= 'UTF-8'; 
    84      
     83    $params->{ inputEncoding } ||= 'UTF-8'; 
     84 
    8585    # fill the uri template 
    8686    my $url = $tmpl->process( %$params ); 
    8787 
    8888    # attempt to handle POST 
    89     if( $self->method eq 'post' ) { 
     89    if ( $self->method eq 'post' ) { 
    9090        my $post = $self->params; 
    9191        for my $key ( keys %$post ) { 
     
    9595        return $url, [ %$post ]; 
    9696    } 
    97      
     97 
    9898    return $url; 
    9999} 
  • WWW-OpenSearch/trunk/t/01_live.t

    r1820 r2407  
    22use Test::More; 
    33 
    4 my $url = $ENV{OPENSEARCH_URL}; 
    5 unless ($url) { 
    6     Test::More->import(skip_all => "OPENSEARCH_URL not set"); 
     4my $url = $ENV{ OPENSEARCH_URL }; 
     5unless ( $url ) { 
     6    Test::More->import( skip_all => "OPENSEARCH_URL not set" ); 
    77    exit; 
    88} 
     
    1313use WWW::OpenSearch; 
    1414 
    15 my $engine = WWW::OpenSearch->new($url); 
     15my $engine = WWW::OpenSearch->new( $url ); 
    1616ok $engine; 
    1717ok $engine->description->shortname, $engine->description->shortname; 
    1818 
    19 my $res = $engine->search("iPod"); 
     19my $res = $engine->search( "iPod" ); 
    2020ok $res; 
    2121ok $res->feed->title, $res->feed->title; 
    22 ok $res->feed->link, $res->feed->link; 
    23 ok $res->pager->entries_per_page, "items per page " . $res->pager->entries_per_page; 
     22ok $res->feed->link,  $res->feed->link; 
     23ok $res->pager->entries_per_page, 
     24    "items per page " . $res->pager->entries_per_page; 
    2425ok $res->pager->total_entries, "total entries " . $res->pager->total_entries; 
  • WWW-OpenSearch/trunk/t/10-description.t

    r2137 r2407  
    2323    is( $osd->shortname, 'Web Search', 'shortname' ); 
    2424    ok( !defined $osd->longname, 'longname' ); 
    25     is( $osd->description, 'Use Example.com to search the Web.', 'description' ); 
    26     is( $osd->tags, 'example web', 'tags' ); 
     25    is( $osd->description, 'Use Example.com to search the Web.', 
     26        'description' ); 
     27    is( $osd->tags,    'example web',       'tags' ); 
    2728    is( $osd->contact, 'admin@example.com', 'contact' ); 
    2829 
     
    6970    my $osd = WWW::OpenSearch::Description->new( $description ); 
    7071    isa_ok( $osd, 'WWW::OpenSearch::Description' ); 
    71     is( $osd->shortname, 'Web Search', 'shortname' ); 
    72     is( $osd->longname, 'Example.com Web Search', 'longname' ); 
    73     is( $osd->description, 'Use Example.com to search the Web.', 'description' ); 
    74     is( $osd->tags, 'example web', 'tags' ); 
    75     is( $osd->contact, 'admin@example.com', 'contact' ); 
     72    is( $osd->shortname, 'Web Search',             'shortname' ); 
     73    is( $osd->longname,  'Example.com Web Search', 'longname' ); 
     74    is( $osd->description, 'Use Example.com to search the Web.', 
     75        'description' ); 
     76    is( $osd->tags,      'example web',                  'tags' ); 
     77    is( $osd->contact,   'admin@example.com',            'contact' ); 
    7678    is( $osd->developer, 'Example.com Development Team', 'developer' ); 
    7779    is( $osd->attribution, ' 
    7880    Search data © 2005, Example.com, Inc., All Rights Reserved 
    79   ', 'attribution' ); 
    80     is( $osd->inputencoding, 'UTF-8', 'inputencoding' ); 
    81     is( $osd->outputencoding, 'UTF-8', 'outputencoding' ); 
    82     is( $osd->language, 'en-us', 'language' ); 
    83     is( $osd->adultcontent, 'false', 'adultcontent' ); 
    84     is( $osd->syndicationright, 'open', 'syndicationright' ); 
     81  ', 'attribution' 
     82    ); 
     83    is( $osd->inputencoding,    'UTF-8', 'inputencoding' ); 
     84    is( $osd->outputencoding,   'UTF-8', 'outputencoding' ); 
     85    is( $osd->language,         'en-us', 'language' ); 
     86    is( $osd->adultcontent,     'false', 'adultcontent' ); 
     87    is( $osd->syndicationright, 'open',  'syndicationright' ); 
    8588 
    8689    my $queries = $osd->query; 
    87     is( scalar @$queries, 1, 'number of query objects' ); 
    88     is( $queries->[ 0 ]->role, 'example', 'role' ); 
    89     is( $queries->[ 0 ]->searchTerms, 'cat', 'searchTerms' ); 
     90    is( scalar @$queries,             1,        'number of query objects' ); 
     91    is( $queries->[ 0 ]->role,        'example', 'role' ); 
     92    is( $queries->[ 0 ]->searchTerms, 'cat',     'searchTerms' ); 
    9093 
    9194    my $images = $osd->image; 
    92     is( scalar @$images, 2, 'number of image objects' ); 
    93     is( $images->[ 0 ]->height, 64, 'height' ); 
    94     is( $images->[ 0 ]->width, 64, 'width' ); 
    95     is( $images->[ 0 ]->type, 'image/png', 'content type' ); 
     95    is( scalar @$images,        2,          'number of image objects' ); 
     96    is( $images->[ 0 ]->height, 64,          'height' ); 
     97    is( $images->[ 0 ]->width, 64,          'width' ); 
     98    is( $images->[ 0 ]->type,   'image/png', 'content type' ); 
    9699    is( $images->[ 0 ]->url, 'http://example.com/websearch.png', 'url' ); 
    97     is( $images->[ 1 ]->height, 16, 'height' ); 
    98     is( $images->[ 1 ]->width, 16, 'width' ); 
    99     is( $images->[ 1 ]->type, 'image/vnd.microsoft.icon', 'content type' ); 
     100    is( $images->[ 1 ]->height, 16,                         'height' ); 
     101    is( $images->[ 1 ]->width, 16,                        'width' ); 
     102    is( $images->[ 1 ]->type,   'image/vnd.microsoft.icon', 'content type' ); 
    100103    is( $images->[ 1 ]->url, 'http://example.com/websearch.ico', 'url' ); 
    101104 
     
    128131    my $osd = WWW::OpenSearch::Description->new( $description ); 
    129132    isa_ok( $osd, 'WWW::OpenSearch::Description' ); 
    130     is( $osd->shortname, 'Electronics', 'shortname' ); 
    131     is( $osd->longname, 'Amazon Electronics', 'longname' ); 
    132     is( $osd->description, 'Search for electronics on Amazon.com.', 'descrpiton' ); 
    133     is( $osd->tags, 'amazon electronics', 'tags' ); 
    134     is( $osd->contact, 'dewitt@unto.net', 'contact' ); 
    135     is( $osd->format, 'http://a9.com/-/spec/opensearchrss/1.0/', 'format' ); 
    136     is( $osd->image, 'http://www.unto.net/search/amazon_electronics.gif', 'image' ); 
    137     is( $osd->samplesearch, 'ipod', 'samplesearch' ); 
    138     is( $osd->developer, 'DeWitt Clinton', 'developer' ); 
     133    is( $osd->shortname, 'Electronics',        'shortname' ); 
     134    is( $osd->longname,  'Amazon Electronics', 'longname' ); 
     135    is( $osd->description, 'Search for electronics on Amazon.com.', 
     136        'descrpiton' ); 
     137    is( $osd->tags,    'amazon electronics',                      'tags' ); 
     138    is( $osd->contact, 'dewitt@unto.net',                         'contact' ); 
     139    is( $osd->format,  'http://a9.com/-/spec/opensearchrss/1.0/', 'format' ); 
     140    is( $osd->image, 'http://www.unto.net/search/amazon_electronics.gif', 
     141        'image' ); 
     142    is( $osd->samplesearch, 'ipod',           'samplesearch' ); 
     143    is( $osd->developer,    'DeWitt Clinton', 'developer' ); 
    139144    is( $osd->attribution, 'Product and search data © 2005, Amazon, Inc., 
    140    All Rights Reserved', 'attribution' ); 
    141     is( $osd->syndicationright, 'open', 'syndicationright' ); 
    142     is( $osd->adultcontent, 'false', 'adultcontent' ); 
     145   All Rights Reserved', 'attribution' 
     146    ); 
     147    is( $osd->syndicationright, 'open',  'syndicationright' ); 
     148    is( $osd->adultcontent,     'false', 'adultcontent' ); 
    143149 
    144150    # count the urls 
  • WWW-OpenSearch/trunk/t/11-url.t

    r2137 r2407  
    2121    is( $osd->urls, 1, 'number of urls' ); 
    2222 
    23     my( $url ) = $osd->urls; 
     23    my ( $url ) = $osd->urls; 
    2424    isa_ok( $url, 'WWW::OpenSearch::Url' ); 
    2525    is( $url->type, 'application/rss+xml', 'content type' ); 
    2626    is( lc $url->method, 'get', 'method' ); 
    27     is( $url->template, 'http://example.com/?q={searchTerms}&pw={startPage}&format=rss', 'template' ); 
    28     my $result = $url->prepare_query( { searchTerms => 'x', startPage => 1 } ); 
     27    is( $url->template, 
     28        'http://example.com/?q={searchTerms}&pw={startPage}&format=rss', 
     29        'template' ); 
     30    my $result 
     31        = $url->prepare_query( { searchTerms => 'x', startPage => 1 } ); 
    2932    is( $result, 'http://example.com/?q=x&pw=1&format=rss', 'prepare_query' ); 
    3033} 
     
    5861        is( $url->type, 'application/rss+xml', 'content type' ); 
    5962        is( lc $url->method, 'get', 'method' ); 
    60         is( $url->template, 'http://example.com/?q={searchTerms}&pw={startPage}&format=rss', 'template' ); 
     63        is( $url->template, 
     64            'http://example.com/?q={searchTerms}&pw={startPage}&format=rss', 
     65            'template' ); 
    6166    } 
    6267 
     
    6671        is( $url->type, 'application/atom+xml', 'content type' ); 
    6772        is( lc $url->method, 'get', 'method' ); 
    68         is( $url->template, 'http://example.com/?q={searchTerms}&pw={startPage}&format=atom', 'template' ); 
     73        is( $url->template, 
     74            'http://example.com/?q={searchTerms}&pw={startPage}&format=atom', 
     75            'template' 
     76        ); 
    6977    } 
    7078 
     
    7280        my $url = $osd->url->[ 2 ]; 
    7381        isa_ok( $url, 'WWW::OpenSearch::Url' ); 
    74         is( $url->type, 'text/html', 'content type' ); 
    75         is( lc $url->method, 'post', 'method' ); 
    76         is( $url->template, 'https://intranet/search?format=html', 'template' ); 
    77         is_deeply( $url->params, { s => '{searchTerms}', o => '{startIndex}', c => '{itemsPerPage}', l => '{language}' }, 'params' ); 
    78         my( $result, $post ) = $url->prepare_query( { searchTerms => 'x', startIndex => '1', itemsPerPage => 1, language => 'en' } ); 
    79         is( $result, 'https://intranet/search?format=html', 'prepare_query (uri)' ); 
     82        is( $url->type,      'text/html', 'content type' ); 
     83        is( lc $url->method, 'post',      'method' ); 
     84        is( $url->template, 'https://intranet/search?format=html', 
     85            'template' ); 
     86        is_deeply( 
     87            $url->params, 
     88            {   s => '{searchTerms}', 
     89                o => '{startIndex}', 
     90                c => '{itemsPerPage}', 
     91                l => '{language}' 
     92            }, 
     93            'params' 
     94        ); 
     95        my ( $result, $post ) = $url->prepare_query( 
     96            {   searchTerms  => 'x', 
     97                startIndex   => '1', 
     98                itemsPerPage => 1, 
     99                language     => 'en' 
     100            } 
     101        ); 
     102        is( $result, 
     103            'https://intranet/search?format=html', 
     104            'prepare_query (uri)' 
     105        ); 
    80106        $post = { @$post }; 
    81         is_deeply( $post, { s => 'x', o => 1, c => 1, l => 'en' }, 'prepare_query (params)' ); 
     107        is_deeply( 
     108            $post, 
     109            { s => 'x', o => 1, c => 1, l => 'en' }, 
     110            'prepare_query (params)' 
     111        ); 
    82112    } 
    83113} 
     
    96126    is( $osd->urls, 1, 'number of urls' ); 
    97127 
    98     my( $url ) = $osd->urls; 
     128    my ( $url ) = $osd->urls; 
    99129    isa_ok( $url, 'WWW::OpenSearch::Url' ); 
    100130    is( lc $url->method, 'get', 'method' ); 
    101     is( $url->template, 'http://www.unto.net/aws?q={searchTerms}&searchindex=Electronics&flavor=osrss&itempage={startPage}', 'template' ); 
     131    is( $url->template, 
     132        'http://www.unto.net/aws?q={searchTerms}&searchindex=Electronics&flavor=osrss&itempage={startPage}', 
     133        'template' 
     134    ); 
    102135} 
    103136 
  • WWW-OpenSearch/trunk/t/13-request.t

    r2137 r2407  
    2828 
    2929    { 
    30         my $req = WWW::OpenSearch::Request->new( $osd->url->[ 2 ], { searchTerms => 'iPod' } ); 
     30        my $req = WWW::OpenSearch::Request->new( $osd->url->[ 2 ], 
     31            { searchTerms => 'iPod' } ); 
    3132        isa_ok( $req, 'WWW::OpenSearch::Request' ); 
    3233        is( lc $req->method, 'post', 'method' ); 
     
    3637 
    3738    { 
    38         my $req = WWW::OpenSearch::Request->new( $osd->url->[ 1 ], { searchTerms => 'iPod' } ); 
     39        my $req = WWW::OpenSearch::Request->new( $osd->url->[ 1 ], 
     40            { searchTerms => 'iPod' } ); 
    3941        isa_ok( $req, 'WWW::OpenSearch::Request' ); 
    4042        is( lc $req->method, 'get', 'method' ); 
  • WWW-OpenSearch/trunk/t/99_pod_coverage.t

    r1823 r2407  
    11use Test::More; 
    22eval "use Test::Pod::Coverage 1.00"; 
    3 plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@; 
     3plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" 
     4    if $@; 
    45all_pod_coverage_ok();