Changeset 1525

Show
Ignore:
Timestamp:
03/26/05 14:17:42
Author:
miyagawa
Message:

0.12

Files:

Legend:

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

    r1523 r1525  
    11Revision history for Perl extension WWW::OpenSearch 
     2 
     30.02  Sat Mar 26 14:14:58 JST 2005 
     4        - Added accessors for attributes 
     5        - Ficed POD 
    26 
    370.01  Thu Mar 17 20:45:13 2005 
  • WWW-OpenSearch/trunk/MANIFEST

    r1523 r1525  
    33Makefile.PL 
    44MANIFEST                        This list of files 
     5README 
    56t/00_compile.t 
    67t/01_live.t 
  • WWW-OpenSearch/trunk/MANIFEST.SKIP

    r1523 r1525  
    1010\.gz$ 
    1111\.cvsignore 
     12.svn 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch.pm

    r1523 r1525  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.01'; 
     5$VERSION = '0.02'; 
    66 
    77use Carp; 
     
    8989} 
    9090 
     91my @cols = qw( 
     92Url Format ShortName LongName Description Tags Image SampleSearch 
     93Developer Contact SyndicationRight AdultContent 
     94); 
     95for my $col (@cols) { 
     96    no strict 'refs'; 
     97    *$col = sub { shift->{$col} }; 
     98} 
     99 
    911001; 
    92101__END__ 
     
    103112  my $engine = WWW::OpenSearch->new($url); 
    104113 
    105   my $name = $engine->{ShortName}
    106   my @tags = $engine->{Tags}
     114  my $name = $engine->ShortName
     115  my $tags = $engine->Tags
    107116 
    108117  my $feed = $engine->search("iPod"); 
     
    111120  } 
    112121 
    113   # if you want to page through page 2 with 20 items in each page 
    114   # Note that some engine doesn't allow changing these values 
     122  # page through page 2 with 20 items in each page 
     123  # Note that some engines don't allow changing these values 
    115124  $engine->pager->entries_per_page(20); 
    116125  $engine->pager->current_page(2); 
     
    119128=head1 BETA 
    120129 
    121 This module is in beta version, which means its API interface and functionalities may be changes in future releases. 
     130This module is in beta version, which means its API interface and functionalities may be changed in future releases. 
    122131 
    123132=head1 DESCRIPTION 
  • WWW-OpenSearch/trunk/t/01_live.t

    r1523 r1525  
    1515my $engine = WWW::OpenSearch->new($url); 
    1616ok $engine; 
    17 ok $engine->{ShortName}, $engine->{ShoftName}
     17ok $engine->ShortName, $engine->ShortName
    1818 
    1919my $feed = $engine->search("iPod");