File Coverage

blib/lib/Devel/Spy/TieScalar.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod			n/a
total	33	37	89.1

package Devel::Spy::TieScalar;
use strict;
use warnings;

use constant PAYLOAD => 0;
use constant CODE => 1;

sub TIESCALAR {
    my $class = shift @_;

    my @self;
    @self[ PAYLOAD, CODE, ] = @_;

    return bless \@self, $class;
}

sub FETCH {
    my $self = shift @_;

    my $value = ${ $self->[PAYLOAD] };

    my $followup = $self->[CODE]->("-> $value");

    return Devel::Spy->new( $value, $followup );
}

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

    ${ $self->[PAYLOAD] } = $value;

    my $followup = $self->[CODE]->("= $value");

    return Devel::Spy->new( $value, $followup );
}

sub UNTIE {}
sub DESTROY {}

1;

__END__