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
++
/ AnyEvent::CallbackStack

NAME

AnyEvent::CallbackStack - Turning endless nested Event-Based Callbacks into plain Sequential Style. And save your indents.

Convert nested callback into easy-to-read-write-and-maintain serial/procedural coding style by using Callback Stack.

SYNOPSIS

Use AnyEvent::CallbackStack with the following style.

        use feature 'say';
        use AnyEvent::CallbackStack;
        
        my $cs = AnyEvent::CallbackStack->new();
        $cs->start( %foo );

        $cs->add( sub {
                do_something;
                $cs->next( $bar, $yohoo );
        });
        
        $cv = $cs->last;
        return $cv;

# or

        http_get http://BlueT.org => sub { $cs->start($_[0]) };
        $cs->add( sub { say $_[0]->recv; $cs->next } );
        $cs->last->cb(sub {
                # do something after that
                # and maybe let me know someone's using my module :3
        });

# or

        $cs->add( sub { say 'I got the ball'; $cs->next( $_[0]->recv ); } )
        print 'Your name please?: ';
        chomp(my $in = <STDIN>);
        $cs->start($in);
        $cs->add( sub { say "Lucky you, $_[0]->recv" } );

# or

        my $cs = AE::CS;

METHODS

new

No paramater needed.

        my $cs = new AnyEvent::CallbackStack;

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.

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;

step

Experimental.

Start the callback flow from the specified step.

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

cbq

Experimental.

Callback Queue Getter/Setter.

Don't use this directly unless you really know what you're doing.

        my @cbq = $cs->cbq;
        $cs->cbq( AE::cv );

current_step

Experimental.

'Current Step Counter' Getter/Setter.

Don't use this directly unless you really know what you're doing.

        my $curr_step = $cs->current_step;
        $cs->current_step( 0 );

SHORTCUT AE::CS 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 AE::CS manpage for details.

        my $cs = AE::CS;

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.