view release on metacpan or  search on metacpan

t/lib/MyDaysInterval.pm  view on Meta::CPAN

package MyDaysInterval;                 # Silly example
sub new {
  my ($class, $days) = @_;
  bless { days => $days } => $class;
}

sub as_seconds { $_[0]{days} * 86400 }

1;