package Iotta::Input::Meta;
use strict;
use POSIX qw(strftime);
require Iotta::Elem;
our @ISA = ("Iotta::Elem");
sub run {
my $self = shift;
my $meta = shift;
my $data = shift;
print STDERR " getting metadata...\n";
$$meta{date} = strftime '%d.%m.%Y', gmtime;
print STDERR $$meta{date} ."\n";
$$meta{time} = strftime '%H:%M:%S', gmtime;
print STDERR $$meta{time} ."\n";
$$meta{iotta} = "iotta 0.1.1";
print STDERR $$meta{iotta} ."\n";
$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/
|