File Coverage

blib/lib/Time/Duration/Object.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	2	100.0
condition			n/a
subroutine	11	11	100.0
pod	2	2	100.0
total	47	47	100.0

use strict;
use warnings;
package Time::Duration::Object;
{
  $Time::Duration::Object::VERSION = '0.301';
}
# ABSTRACT: Time::Duration, but an object

use Time::Duration 1.02;


sub new {
	my ($class, $duration) = @_;
	return unless defined $duration;
	bless \$duration => $class;
}


sub seconds {
	return ${(shift)};
}


{
  ## no critic (ProhibitNoStrict ProhibitNoWarnings)
  no strict 'refs';
  no warnings 'redefine';
  my @methods = map { $_, "$_\_exact" } qw(duration ago from_now later earlier);
  for (@methods) {
    my $method = \&{"Time::Duration::$_"};
    *{$_} = sub {
      unshift @_, ${(shift)};
      my $result = &$method(@_);
      bless \$result => 'Time::Duration::_Result';
    }
  }
}

package Time::Duration::_Result;
{
  $Time::Duration::_Result::VERSION = '0.301';
}


sub as_string { ${ $_[0] } }


sub concise {
	my $self = shift;
	Time::Duration::concise(${$self});
}

use overload
	'""' => 'as_string',
	fallback => 1;


1;

__END__