Changeset 2138

Show
Ignore:
Timestamp:
01/24/07 01:08:55
Author:
bricas
Message:

added clone() to Request

Files:

Legend:

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

    r2137 r2138  
    11Revision history for Perl extension WWW::OpenSearch 
     2 
     30.10_02 Tue Jan 23 2007 
     4        - fix Request.pm to clone the extra attributes we've 
     5          added (Marc Tobias) 
    26 
    370.10_01 Mon Jan 22 2007 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch.pm

    r2137 r2138  
    1515__PACKAGE__->mk_accessors( qw( description_url agent description ) ); 
    1616 
    17 our $VERSION = '0.10_01'; 
     17our $VERSION = '0.10_02'; 
    1818 
    1919=head1 NAME 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Request.pm

    r2137 r2138  
    77 
    88use HTTP::Request::Common (); 
    9 use URI; 
    109 
    1110__PACKAGE__->mk_accessors( qw( opensearch_url opensearch_params ) ); 
     
    2221 
    2322=head2 new( $url, \%params ) 
     23 
     24=head1 METHODS 
     25 
     26=head2 clone( ) 
    2427 
    2528=head1 ACCESSORS 
     
    7073} 
    7174 
     75sub clone { 
     76    my $self  = shift; 
     77    my $clone = bless $self->SUPER::clone, ref( $self ); 
     78 
     79    $clone->opensearch_url( $self->opensearch_url ); 
     80    $clone->opensearch_params( $self->opensearch_params ); 
     81 
     82    return $clone; 
     83} 
     84 
    72851;