Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Path	[ DIR ]	drwxr-xr-x
Array.pm	2.56 KB	-rw-r--r--
Callback.pm	1.53 KB	-rw-r--r--
Cat.pm	1.79 KB	-rw-r--r--
Chunked.pm	2.01 KB	-rw-r--r--
DBI.pm	2.31 KB	-rw-r--r--
DBIC.pm	1.72 KB	-rw-r--r--
DoneFlag.pm	2.15 KB	-rw-r--r--
FileHandle.pm	1.51 KB	-rw-r--r--
Filter.pm	1.87 KB	-rw-r--r--
Nil.pm	1.41 KB	-rw-r--r--
Util.pm	2.45 KB	-rw-r--r--

Code Editor : Cat.pm

package Data::Stream::Bulk::Cat;
BEGIN {
  $Data::Stream::Bulk::Cat::AUTHORITY = 'cpan:NUFFIN';
}
{
  $Data::Stream::Bulk::Cat::VERSION = '0.11';
}
use Moose;
# ABSTRACT: Concatenated streams

use namespace::clean -except => 'meta';

with qw(Data::Stream::Bulk) => { -excludes => 'list_cat' };

has streams => (
	isa => "ArrayRef[Data::Stream::Bulk]",
	is  => "ro",
	required => 1,
);

sub is_done {
	my $self = shift;
	@{ $self->streams } == 0;
}

sub next {
	my $self = shift;

my $s = $self->streams;

return unless @$s;

my $next;

until ( $next = @$s && $s->[0]->next ) {
		shift @$s;
		return unless @$s;
	}

return $next;
}

sub list_cat {
	my ( $self, @rest ) = @_;
	my ( $head, @tail ) = ( @{ $self->streams }, @rest );
	return () unless $head;
	return $head->list_cat(@tail);
}

__PACKAGE__->meta->make_immutable;

__PACKAGE__;

=pod

=head1 NAME

Data::Stream::Bulk::Cat - Concatenated streams

=head1 VERSION

version 0.11

=head1 SYNOPSIS

use Data::Stream::Bulk::Cat;

Data::Stream::Bulk::Cat->new(
		streams => [ $s1, $s2, $s3 ],
	);

=head1 DESCRIPTION

This stream is a concatenation of several other streams.

=head1 METHODS

=over 4

=item is_done

Returns true if the list of streams is empty.

=item next

Returns the next block from the next ready stream.

=item list_cat

Breaks down the internal list of streams, and delegates C<list_cat> to the
first one.

Has the effect of inlining the nested streams into the total concatenation,
allowing L<Data::Stream::Bulk::Array/list_cat> to work better.

=back

=head1 AUTHOR

Yuval Kogman <nothingmuch@woobling.org>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__

${this.title}

Code Editor : Cat.pm