package Ernad::Shoda;

use strict;
use warnings;

use Carp qw(confess);
use Ernad::Dates;

use Krichel::Shonu;

sub make {
  my $date=shift // confess "I need a date here.";
  if(not Ernad::Dates::is($date)) {
    confess "I don't take $date as a date.";
  }
  my $e=$main::e // confess "Where is my erimp?";
  my $first_issuedate=$e->{'conf'}->{'first_issuedate'};
  my $diff = &Ernad::Dates::diff_dates($first_issuedate,$date);
  $diff=&Krichel::Shonu::make($diff);
  return $diff;
}


1;