The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package App::PipeFilter::Role::Input::ArrayBuffer;
{
  $App::PipeFilter::Role::Input::ArrayBuffer::VERSION = '0.005';
}

use Moose::Role;

sub decode_input {
  my ($self, $buffer_ref) = @_;

	my @return = @$$buffer_ref;
	$$buffer_ref = "";

	return @return;
}

no Moose::Role;
1;

__END__

# vim: ts=2 sw=2 expandtab