Changeset 1890

Show
Ignore:
Timestamp:
07/20/06 09:50:21
Author:
bricas
Message:

added test and missing description info

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WWW-OpenSearch/branches/WWW-OpenSearch-rewrite/Changes

    r1889 r1890  
    22 
    330.06_02 Mon Jul 10 2006 
     4        - added tests 
     5        - updated available description info 
    46        - try to handle POST urls better 
    57        - update XML::Atom calls to latest release API 
  • WWW-OpenSearch/branches/WWW-OpenSearch-rewrite/lib/WWW/OpenSearch/Description.pm

    r1889 r1890  
    1111 
    1212my @columns = qw( 
    13     AdultContent Contact   Description      Developer 
    14     Format       Image     LongName         Query 
    15     SampleSearch ShortName SyndicationRight Tags 
    16     Url 
     13    AdultContent Contact     Description      Developer 
     14    Format       Image       LongName         Query 
     15    SampleSearch ShortName   SyndicationRight Tags 
     16    Url          Attribution InputEncoding    OutputEncoding 
     17    Language 
    1718); 
    1819 
     
    5455 
    5556Loads description data by parsing provided argument using XML::LibXML. 
     57 
     58=head2 urls( ) 
     59 
     60Return all of the urls associated with this description in an array. 
    5661 
    5762=head2 get_best_url( ) 
     
    225230     
    226231    my $template; 
    227     for( @{ $self->url } ) { 
     232    for( $self->urls ) { 
    228233        $template = $_ if $_->type eq $type; 
    229234        last; 
     
    233238} 
    234239 
     240sub urls { 
     241    my $self = shift; 
     242    return @{ $self->url }; 
     243} 
     244 
    2352451;