Show
Ignore:
Timestamp:
11/20/08 10:11:46 (5 years ago)
Author:
tokuhirom
Message:

added docs

Location:
lang/perl/CGI-ExceptionManager/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/CGI-ExceptionManager/trunk/lib/CGI/ExceptionManager.pm

    r24363 r24387  
    66use CGI::ExceptionManager::StackTrace; 
    77 
    8 sub detach { die { finished => 1 } } 
     8sub detach { die bless [], 'CGI::ExceptionManager::Exception' } 
    99 
    1010sub run { 
     
    1414    local $SIG{__DIE__} = sub { 
    1515        my ($msg) = @_; 
    16         if (ref $msg eq 'HASH' && $msg->{finished}) { 
     16        if (ref $msg eq 'CGI::ExceptionManager::Exception') { 
    1717            undef $err_info; 
    1818        } else { 
     
    4040=head1 NAME 
    4141 
    42 CGI::ExceptionManager - 
     42CGI::ExceptionManager - DebugScreen with detach! 
    4343 
    4444=head1 SYNOPSIS 
     
    4747    CGI::ExceptionManager->run( 
    4848        callback => sub { 
    49             print "Content-Type: text/html\r\n\r\n"; 
    50             print "ktkr!\n"; 
     49            redirect("http://wassr.jp/"); 
    5150 
    52             CGI::ExceptionManager->detach(); 
     51            # do not reach here 
    5352        }, 
    5453        powered_by => 'MENTA', 
    5554    ); 
    5655 
     56    sub redirect { 
     57        my $location = shift; 
     58        print "Status: 302\n"; 
     59        print "Location: $location\n"; 
     60        print "\n"; 
     61 
     62        CGI::ExceptionManager::detach(); 
     63    } 
     64 
    5765=head1 DESCRIPTION 
    5866 
    59 Just a Proof of Concept. 
     67You can easy to implement DebugScreen and Detach architecture =) 
     68 
     69=head1 METHODS 
     70 
     71=over 4 
     72 
     73=item detach 
     74 
     75detach from current context. 
     76 
     77=item run 
     78 
     79    CGI::ExceptionManager->run( 
     80        callback => \&code, 
     81        powered_by => 'MENTA', 
     82    ); 
     83 
     84run the new context. 
     85 
     86=back 
    6087 
    6188=head1 AUTHOR 
     
    6390Tokuhiro Matsuno E<lt>tokuhirom@gmail.comE<gt> 
    6491 
     92Kazuho Oku 
     93 
    6594=head1 SEE ALSO 
     95 
     96L<Sledge::Plugin::DebugScreen>, L<http://kazuho.31tools.com/nanoa/nanoa.cgi>, L<http://gp.ath.cx/menta/> 
    6697 
    6798=head1 LICENSE 
  • lang/perl/CGI-ExceptionManager/trunk/xt/01_podspell.t

    r24363 r24387  
    3131maki 
    3232TODO 
     33Kazuho 
     34Oku 
     35DebugScreen