File Coverage

lib/Tie/Scalar/Ratio.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	6	6	100.0
pod			n/a
total	30	31	96.7

use strict;
use warnings;
package Tie::Scalar::Ratio;
$Tie::Scalar::Ratio::VERSION = '0.01';
use parent 'Tie::Scalar';

#ABSTRACT: a scalar which multiplies in value every time it is accessed.

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

  die 'Must provide ratio argument, a number to multiply the scalar value by'
    unless $ratio && $ratio =~ /^[\d.]+$/;

  bless {
    ratio => $ratio,
    value => $value,
  }, $class;
}

sub STORE {
  my ($self, $value) = @_;
  $self->{value} = $value;
}

sub FETCH {
  my ($self) = @_;
  my $old_value = $self->{value};
  $self->{value} *= $self->{ratio} if $self->{value};
  return $old_value;
}

1;

__END__