package Orchard::Period;

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use DateTime;

sub new {
    my $class = shift;
    my $self  = {};
    bless $self, $class;
    $self;
}

sub _init_date_ {
    my $self = shift;
    DateTime->new( 'year' => 1998, 'month' => 12 );
}

sub getDateTimeFromId {
    my $self = shift;
    my $pid  = shift;
    $self->_init_date_->clone->add( 'months' => $pid );
}

sub getIdFromDateTime {
    my $self = shift;
    my $dt   = shift;
    my $dur  = $dt->subtract_datetime( $self->_init_date_() );
    my $id   = $dur->delta_months;
    $id;
}

1;