File Coverage

blib/lib/Tie/Timely.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Tie::Timely;
use strict;

our $VERSION = '1.023';

sub TIESCALAR {
	my( $class, $value, $lifetime ) = @_;

	my $self = bless [ undef, $lifetime, time ], $class;

	$self->STORE( $value );

	return $self;
	}

sub FETCH { time - $_[0]->[2] > $_[0]->[1] ? () : $_[0]->[0] }

sub STORE { @{ $_[0] }[0,2] = ( $_[1], time ) }

1;

__END__