Vyššie na [Platon] / iotta / Iotta

Initial revision

package Iotta::Ctrl;
use strict;
require Iotta;
our @ISA = ("Iotta");

sub main {
    print STDERR "You should create iotta.cf.\n";
    print STDERR "See documentation for details.\n";
    return 1;
}

sub config {
    my ($self, $cfg);
    $self = shift;
    $self->{"cfg"}=shift;
}
sub initialize {
    my $self=shift;
    $self->SUPER::initialize (@_);
    $self->{"cfg"}="";
    @{$self->{filter}}=();
    return 1;
}

1;