Changeset 361

Show
Ignore:
Timestamp:
12/06/01 18:53:24
Author:
miyagawa
Message:

update doc

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Log-Dispatch-Config/trunk/Makefile.PL

    r344 r361  
    11use ExtUtils::MakeMaker; 
     2 
     3$LAST_API_CHANGE = 0.04; 
     4eval q{require Log::Dispatch::Config}; 
     5unless ($@) { 
     6    print <<WARN if $Log$ 
     7    print <<WARN if Revision 1.2  2001/12/06 09:53:24  miyagawa 
     8    print <<WARN if update doc 
     9    print <<WARN ifLAST_API_CHANGE; 
     10 
     11NOTE: There have been API changes between this version and any older 
     12than version $LAST_API_CHANGE!  Please read the Changes file if you 
     13are upgrading from a version older than $LAST_API_CHANGE. 
     14 
     15WARN 
     16    ; 
     17} 
     18 
    219WriteMakefile( 
    320    'NAME'      => 'Log::Dispatch::Config', 
  • Log-Dispatch-Config/trunk/README

    r360 r361  
    1919METHOD 
    2020    This module has a class method `configure' which parses config file for 
    21     later createion of the Log::Dispatch::Config singleton instance. (Actual 
     21    later creation of the Log::Dispatch::Config singleton instance. (Actual 
    2222    construction of the object is done in the first `instance' call). 
    2323 
     
    3333      sub Log::Dispatch::instance { Log::Dispatch::Config->instance } 
    3434 
    35     so still you can call `Log::Dispatch::Config->instance', if you prefer, 
    36     or for backward compatibility. 
     35    so still you can call `Log::Dispatch->instance', if you prefer, or for 
     36    backward compatibility. 
    3737 
    3838CONFIGURATION 
  • Log-Dispatch-Config/trunk/lib/Log/Dispatch/Config.pm

    r359 r361  
    1111use vars qw($_Instance); 
    1212 
    13 sub _croak { require Carp; Carp::croak(@_); } 
    14  
    15 sub new { 
    16     my $class = shift; 
    17     return $class->SUPER::new(@_); 
    18 } 
    19  
    2013sub configure { 
    2114    my($class, $file) = @_; 
     
    3427    my $class = shift; 
    3528    unless (defined $_Instance) { 
    36         _croak "Log::Dispatch::Config->configure not yet called."; 
     29        require Carp; 
     30        Carp::croak("Log::Dispatch::Config->configure not yet called."); 
    3731    } 
    3832 
     
    162156 
    163157This module has a class method C<configure> which parses config file 
    164 for later createion of the Log::Dispatch::Config singleton instance. 
     158for later creation of the Log::Dispatch::Config singleton instance. 
    165159(Actual construction of the object is done in the first C<instance> 
    166160call). 
     
    177171  sub Log::Dispatch::instance { Log::Dispatch::Config->instance } 
    178172 
    179 so still you can call C<Log::Dispatch::Config-E<gt>instance>, if you 
    180 prefer, or for backward compatibility. 
     173so still you can call C<Log::Dispatch-E<gt>instance>, if you prefer, 
     174or for backward compatibility. 
    181175 
    182176=head1 CONFIGURATION