Devel::Spy::TieScalar - Tied logging wrapper for scalars

Devel-Spy documentation

Contained in the Devel-Spy distribution.

Index

NAME
SYNOPSIS
CAVEATS
SEE ALSO

Code Index:

package Devel::Spy::TieScalar
- TIESCALAR
- FETCH
- STORE
- UNTIE
- DESTROY
__END__
EOF

NAME

Devel::Spy::TieScalar - Tied logging wrapper for scalars

SYNOPSIS

  tie my $pretend_guts, 'Devel::Spy::TieScalar', \ $real_guts, $logging_function
    or croak;

  # Passed operation through to $real_guts and tattled about the
  # operation to $logging_function.
  $pretend_guts = 42;

CAVEATS

Most functions have not been implemented. I implemented only the ones I needed. Feel free to add more and send me patches. I'll also grant you permission to upload into the Devel::Spy namespace if you're a clueful developer.

SEE ALSO

Devel::Spy, Devel::Spy::_obj, Devel::Spy::Util, Devel::Spy::TieHash, Devel::Spy::TieArray, Devel::Spy::TieHandle.

Devel-Spy documentation

Contained in the Devel-Spy distribution.

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__