package Ernad::Presort::Learn;

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;

sub model {
  my $repcode=shift // confess "I need a repcode here.";
  my $e=shift // '';
  if(not $e) {
    $e=$main::e;;
    if(not $e) {
      confess "I need an erimp here";
    }
  }
  ## exfits
  use Ernad::Presort::Exfit;
  my $f=Ernad::Presort::Exfit->new({'e'=>$e});
  ##$e->{'repcode'}=$repcode;
  $f->set_report($repcode);
  $f->update($repcode);

  ## must be set again
  $e->{'repcode'}=$repcode;

  ## fideks
  use Ernad::Presort::Fidek;
  my $k=Ernad::Presort::Fidek->new({'e'=>$e});
  $k->motto('train');
  $k->update_for_report($repcode);

  ## ranfis
  my $r=Ernad::Presort::Ranfi->new({'e'=>$e});
  $r->update_for_report($repcode);

  ## vemlis
  my $v=Ernad::Presort::Vemli->new({'e'=>$e});
  $v->motto('train');
  $v->update_for_report($repcode);

  ## chopas
  my $h=Ernad::Presort::Chopa->new({'e'=>$e});
  $h->set_report($repcode);
  $h->update();

  ## train
  use Ernad::Presort::Train;
  my $t=Ernad::Presort::Train->new({'e'=>$e});
  $t->build_file($repcode);

  ## model
  my $m=Ernad::Presort::Model->new({'e'=>$e});
  $m->run();

  $e->echo(__LINE__,"I'm done with training.");
}

sub class {
  my $repcode=shift // confess "I need a repcode here.";
  my $e=shift // '';
  if(not $e) {
    $e=$main::e;
    if(not $e) {
      confess "I need an erimp here";
    }
  }

  ## exfits
  use Ernad::Presort::Exfit;
  my $f=Ernad::Presort::Exfit->new({'e'=>$e});
  ##$e->{'repcode'}=$repcode;
  $f->set_report($repcode);
  $f->update($repcode);

  ## must be set again
  $e->{'repcode'}=$repcode;

  ## fideks
  use Ernad::Presort::Fidek;
  my $k=Ernad::Presort::Fidek->new({'e'=>$e});
  $k->motto('class');
  $k->update_for_report($repcode);

  ## vemlis
  my $v=Ernad::Presort::Vemli->new({'e'=>$e});
  $v->motto('class');
  $v->update_for_report($repcode);

  ## class
  use Ernad::Presort::Class;
  my $t=Ernad::Presort::Class->new({'e'=>$e});
  $t->update_for_report($repcode);

  ## predi
  use Ernad::Presort::Predi;
  my $p=Ernad::Presort::Predi->new({'e'=>$e});
  $p->run();
  $e->echo(__LINE__,"I'm done with classifying.");

}


1;