package Iotta::Input::File;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");
sub run {
my $self = shift;
my $meta = shift;
my $data;
my $file = $$meta{input};
print STDERR " loading...\n";
open (FILE, $file) || return 1;
while (<FILE>) {
$data .= $_;
}
close FILE;
$self->next->run ($meta, $data) if ($self->next);
return 0;
}
#sub initialize {
# my $self = shift;
# $self->SUPER::initialize (@_);
#}
1;
Platon Group <platon@platon.sk> http://platon.sk/
|