package Language::Flow::Simple::Sprintf;

use Language::Flow::Base::Component;
use Data::Dumper;

BEGIN {
  @ISA = qw( Language::Flow::Base::Component );
}

my $counter = 0;

sub recieve_chunk {
  my $self = shift;
  my $chunk = shift;
  
  my $data = $chunk->get_data();
  $self->emit_chunk( sprintf( "%4d", $data ), "string", 
		     $chunk->get_history(), 
		     { node=>"LFSSprintf", id=>$counter++ } );
}

1;