File Coverage

blib/lib/Collection/Utl/Flow.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#===============================================================================
#
#  DESCRIPTION:  Flow SQL
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
#$Id$
package Collection::Utl::Flow;

=head1 NAME

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

=head1 SYNOPSIS

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


=head1 DESCRIPTION

extention for flow sql queries

=cut
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__