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;