Sha256: b2c72954027cc41b78fb7cc295b9928f402d270119bd64cb7d8cee6eabeb83ce

Contents?: true

Size: 394 Bytes

Versions: 73

Compression:

Stored size: 394 Bytes

Contents

package Gigasecond;

use strict;
use warnings;

use DateTime;

sub new {
  my ($class, $year, $month, $day) = @_;

  my $date = DateTime->new(year => $year, month => $month, day => $day);
  my $giga = DateTime::Duration->new(seconds => 1_000_000_000);
  bless { date => $date->add_duration($giga) }, $class;
}

sub date {
  my ($self) = @_;
  return $self->{date}->truncate(to => 'day');
}

1;

Version data entries

73 entries across 73 versions & 1 rubygems

Version Path
trackler-2.2.1.159 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.158 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.157 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.156 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.155 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.154 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.153 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.152 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.151 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.150 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.149 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.148 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.147 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.146 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.145 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.144 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.143 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.142 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.141 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm
trackler-2.2.1.140 tracks/perl5/exercises/gigasecond/.meta/solutions/Gigasecond.pm