File Coverage

lib/Tie/Scalar/Callback.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	7	9	77.7
pod			n/a
total	31	34	91.1

use v5.10;
use strict;
use warnings;
package Tie::Scalar::Callback;
$Tie::Scalar::Callback::VERSION = '0.07';
use parent 'Tie::Scalar';
use Carp qw(carp);

#ABSTRACT: a tied scalar which executes a callback everytime it is used

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

  die 'Must provide subroutine reference argument'
    unless $sub && ref $sub eq ref sub {};

  bless $sub, $class;
}

sub STORE {
  carp "You can't assign to this tied scalar";
}

sub FETCH {
  my ($self) = @_;
  return $self->();
}


1;

__END__