Collection::Utl::Flow - extention for flow sql queries

    use Flow;
    my $f = $collection->list_ids( exp=>{ type=>1, },
        page=>0, onpage=>10,  );
    my $fr = create_flow($f, sub { warn Dumper \@_});
    $fr->run();

             

#===============================================================================
#
#  DESCRIPTION:  Flow SQL
#
#       AUTHOR:  Aliaksandr P. Zahatski, <zahatski@gmail.com>
#===============================================================================
#$Id: Flow.pm 952 2011-05-09 11:24:58Z zag $
package Collection::Utl::Flow;

our $VERSION = '0.01';
use Flow;
use strict;
use warnings;
use base 'Flow';
sub flow {
    my $self = shift;
    if (my $h = $self->get_handler) {
    my $collection = $self->{__collection__};
    my $args = $self->{__flow_sql__};
    $collection->__flow_sql__($h, @$args);
    }
}

1;
__END__