- Timestamp:
- 04/25/08 17:28:20 (7 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Lite.pm
r10434 r10435 11 11 my %args = @_; 12 12 13 my $lite = delete $args{lite} || XML::Parser::Lite::Tree::instance();13 my $lite = delete $args{lite} || XML::Parser::Lite::Tree::instance(); 14 14 my $self = $class->SUPER::new(%args); 15 15 $self->{lite} = $lite; … … 21 21 my $self = shift; 22 22 XML::Parser::Lite::Tree::XPath->new( 23 $self->{lite}->parse( $_[0]->content ) );23 $self->{lite}->parse( $_[0]->content ) ); 24 24 } 25 25 … … 48 48 =head2 parse_response 49 49 50 =head1 AUTHOR 51 52 mattn C<< <mattn.jp@gmail.com> >> 53 50 54 =cut
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)