File Coverage

blib/lib/App/PerlWatcher/Memory.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	2	2	100.0
condition			n/a
subroutine	11	11	100.0
pod	1	1	100.0
total	50	50	100.0

package App::PerlWatcher::Memory;
{
  $App::PerlWatcher::Memory::VERSION = '0.20';
}
# ABSTRACT: Represents memory, which can be persisted (detached) for it's owner

use 5.12.0;
use strict;
use warnings;

use Carp;
use Moo;

use parent qw/Exporter/;

our @EXPORT_OK = qw/memory_patch/;



has 'data' => (is => 'rw', default => sub { {}; });

sub _monkey_patch {
    my ($class, %patch) = @_;
    no strict 'refs';
    no warnings 'redefine';
    *{"${class}::$_"} = $patch{$_} for keys %patch;
}


sub memory_patch {
    my ($class, @attributes) = @_;
    my %patch;
    for my $a (@attributes) {
        $patch{$a} = sub {
            my ($self, $value) = @_;
            my $memory = $self->memory;
            $memory->data->{$a} = $value
                if(defined $value);
            $memory->data->{$a};
        }
    }
    _monkey_patch $class, %patch;
}


1;

__END__