The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
AnyEvent-CallbackStack-0.12
River stage zero No dependents
++
/ AE::CS

NAME

AE::CS - Shorter AnyEvent::CallbackStack API.

Inspired by AE. Starting with version 0.05, AnyEvent::CallbackStack officially supports a second, much simpler in name, API that is designed to reduce the typing.

There is No Magic like what AE has on reducing calling and memory overhead.

See the AnyEvent::CallbackStack manpage for details.

SYNOPSIS

Use AE::CS with the following style.

        use feature 'say';
        use AnyEvent::CallbackStack;
        
        my $cs = AE::CS;
        my $cv = AE::cv;
        
        $cs->add( sub { $cv->send( $_[0]->recv ) } );
        $cs->start('hello world');
        say $cv->recv;

# or

        my $cs = AE::CS;
        http_get http://BlueT.org => sub { $cs->start($_[0]) };
        $cs->add( sub { say $_[0]->recv } );

# or

        my $cs = AE::CS;
        my %foo = (bar => vbar, yohoo => vyohoo);
        
        $cs->start( %foo );
        $cs->add( sub {
                my %foo = $_[0]->recv;
                $cs->next( $foo{'bar'}, $foo{'yohoo'} );
        });
        
        $cv = $cs->last;
        $cv->cb( sub {
                my @a = $_[0]->recv;
                $cv->send( $a[0].$a[1] )
        });
        
        say $cv->recv;

METHODS

start

Start and walk through the Callback Stack from step 0.

        $cs->start( 'foo' );

add

Add (append) callback into the Callback Stack.

        $cs->add( $code_ref );

next

Check out from the current step and pass value to the next callback in callback stack.

        $cs->next( @result );

IMPORTANT: Remember that only if you call this method, the next callback in stack will be triggered.

step

Experimental.

Start the callback flow from the specified step.

        $cs->step( 3, @data );

last

Get the very last AnyEvent::CondVar object.

Usually it's called when you are writing a module and need to return it to your caller.

        my $cv = $cs->last;
        # or
        return $cs->last;

AUTHOR

BlueT - Matthew Lien - 練喆明, <BlueT at BlueT.org>

BUGS

Please report any bugs or feature requests to bug-anyevent-callbackstack at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=AnyEvent-CallbackStack. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc AnyEvent::CallbackStack

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

Copyright 2012 BlueT - Matthew Lien - 練喆明.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.