Changeset 401

Show
Ignore:
Timestamp:
07/09/07 17:21:42 (1 year ago)
Author:
miya
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • library/perl/trunk/Parse-Apache-ServerStatus-Extended/lib/Parse/Apache/ServerStatus/Extended.pm

    r400 r401  
    33use warnings; 
    44use strict; 
    5 use Carp; 
    65use Web::Scraper; 
    76use base qw( Parse::Apache::ServerStatus ); 
    87 
    98our $VERSION = '0.01'; 
     9use 5.8.1; 
    1010 
    1111sub parse { 
    …… 
    6565       url     => 'http://localhost/server-status', 
    6666       timeout => 30 
    67     ) or die $prs->errstr; 
     67    ) or die $parser->errstr; 
    6868 
    6969    my $stat = $parser->parse or die $parser->errstr; 
    …… 
    7171    # or both in one step 
    7272 
    73     my $stat = $parser->get( 
     73    my $stats = $parser->get( 
    7474       url     => 'http://localhost/server-status', 
    7575       timeout => 30 
    …… 
    122122=head1 LICENCE AND COPYRIGHT 
    123123 
    124 Copyright (c) 2007, Gosuke Miyashita C<< <gosukenator@gmail.com> >>. All rights reserved. 
     124Copyright (c) 2007, Gosuke Miyashita C<< <gosukenator@gmail.com> >>. 
    125125 
    126126This module is free software; you can redistribute it and/or