File Coverage

blib/lib/Articulate/Enrichment/DateCreated.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	31	33	93.9

package Articulate::Enrichment::DateCreated;
use strict;
use warnings;

use Text::Markdown;
use Moo;


=head1 NAME

Articulate::Enrichment::DateCreated - add a creation date to the meta

=head1 METHODS

=head3 enrich

Sets the creation date (C) to the current time, unless it already has a defined value.

=cut

use DateTime;

sub _now {
  DateTime->now;
}

sub enrich {
  my $self    = shift;
  my $item    = shift;
  my $request = shift;
  my $now = _now;
  $item->meta->{schema}->{core}->{dateCreated} //= "$now";
  return $item;
}

1;