# using Test::More...

my $input_string = "some input data";
my $proc = Data::Processor->new( string => $input_string );

my @out_filenames = $proc->names;

is_deeply(\@out_filenames,[qw(some list of filenames)]);

is($proc->data($some_filename),"data for filename");

$proc->close();

##</code><code>##

my $proc = Data::Processor->( file => "some filename");
# or                          handle => \*DATA

for my $name ($proc->names) {
  $proc->write( $some_filename, file => $name      );
# or                            handle => \*STDOUT
}