From: Kip H. <ki...@us...> - 2009-01-24 21:21:41
|
Update of /cvsroot/sawa/sawa/lib/SAWA In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv2934/lib/SAWA Modified Files: Machine.pm Output.pm Log Message: More updates. Test suite mow passes again Index: Machine.pm =================================================================== RCS file: /cvsroot/sawa/sawa/lib/SAWA/Machine.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Machine.pm 24 Jan 2009 11:47:55 -0000 1.9 --- Machine.pm 24 Jan 2009 21:21:37 -0000 1.10 *************** *** 144,148 **** my $handler = $self->current_handler; if ( defined $self->fetch_handler( $handler ) ) { ! warn "Running handler $handler \n"; $self->fetch_handler( $handler )->run( $ctxt ); $self->add_to_queue( "next_in_pipe" ); --- 144,148 ---- my $handler = $self->current_handler; if ( defined $self->fetch_handler( $handler ) ) { ! #warn "Running handler $handler \n"; $self->fetch_handler( $handler )->run( $ctxt ); $self->add_to_queue( "next_in_pipe" ); *************** *** 349,383 **** =head1 DESCRIPTION ! SAWA::Machine is the heart of a SAWA application pipeline. ! It is what controls the "meta" functionality of SAWA itself. ! ! Imagine the basic functions of a crane laying steel pipe and ! that's the SAWA machine - it gets the next chunk of pipe, puts ! it in sequence with the rest of the pipe, signals that the pipe ! piece has just been laid. ! ! Wash, rince repeat. ! ! Under the hood, SAWA::Machine is interfacing with SAWA itself and ! it's complex queue-ing/handler mechanism. ! ! SAWA::Machine imparts but one method beyond new()... ! ! =head1 METHODS ! ! =head2 pipeine() ! ! From your application, before you call $self->run(), call ! $self->pipeline( @list ) to inform the SAWA machine of multple ! modules to be loaded and run. ! ... ! $pipeline = [ qw/ Mail::Stuff File::Manip Wash::Dog / ]; ! $app = SAWA::Machine->new(); ! $app->pipeline( @$pipeline ); ! $app->run({}); ! ... ! ! The modules in $pipeline will be run sequencially =head1 AUTHOR --- 349,355 ---- =head1 DESCRIPTION ! Docs are undergoing a major overhaul, please be patient. ! See L<http://sawa.sf.net/> in the interim. =head1 AUTHOR *************** *** 389,390 **** --- 361,369 ---- SAWA SAWA::Event + + =head1 COPYRIGHT AND LICENSE + + Copyright 2002-2009 Kip Hampton L<kha...@to...> + + This module is free software; you can redistribute it and/or modify it + under the same terms as Perl itself. \ No newline at end of file Index: Output.pm =================================================================== RCS file: /cvsroot/sawa/sawa/lib/SAWA/Output.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Output.pm 24 Jan 2009 11:47:55 -0000 1.9 --- Output.pm 24 Jan 2009 21:21:37 -0000 1.10 *************** *** 47,51 **** my $val = $ref->{$k}; $k =~ s/^-//; - warn "key is $k \n"; $name = $val if $k eq 'name'; $new->{$k} = $val; --- 47,50 ---- *************** *** 132,136 **** my $val = $ref->{$k}; $k =~ s/^-//; - warn "key is $k \n"; $name = $val if $k eq 'name'; $new->{$k} = $val; --- 131,134 ---- *************** *** 230,234 **** =head1 NAME ! SAWA::Output - Abstract Base class for the CGI::SAWA output subsystem =head1 SYNOPSIS --- 228,232 ---- =head1 NAME ! SAWA::Output - Abstract base class SAWA Output types. =head1 SYNOPSIS *************** *** 245,285 **** =head1 DESCRIPTION ! This is a abstract class for SAWA's output layer. It has only two main ! functions. Both function must recieve only a single scalar, which ! should be a hash reference to more descriptive parameters. In fact ! this is no business of this class and left to the specific ! implementation itself. ! ! =head2 The Constructor ! ! The new()-constructor of CGI::SAWA::Output recives a hashreference ! that is blessed to the class name. There should be only a sinlge ! parameter: The query object (as passed from CGI::SAWA->query()). ! ! An application may decides decide during runtime which output style it ! uses during the init_output() call of CGI::SAWA. In such case the ! initialization would look similar to this: ! ! $outclass->new( { -query => $self->query() } ); ! ! where $self is a CGI::SAWA class itself. ! ! Any inheritated class must support the B<-query> parameter! Other ! parameters are allowed as well, but not required. ! ! =head2 The Interface ! ! SAWA's Output system is ment to be simple. It intends to be ! standertized on the lowes level so a wide range of webapplications can ! use it. Basicly all SAWA::Ouput modules need only to implement a ! single function: generate(). This function will get the application ! context and should decide by using the context what has to be done. ! ! Also the query or request object is available at any point of any ! output module by using the query() function. ! In case the main application set an error_message(), an output module ! may take special actions. This function is to allow some ! basic error handling. =head1 AUTHOR --- 243,249 ---- =head1 DESCRIPTION ! Docs are undergoing a major overhaul, please be patient. ! See L<http://sawa.sf.net/> in the interim. =head1 AUTHOR |