File Coverage

blib/lib/App/PerlWatcher/Shelf.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	2	2	100.0
total	50	52	96.1

package App::PerlWatcher::Shelf;
{
  $App::PerlWatcher::Shelf::VERSION = '0.20';
}
# ABSTRACT: Used to stash (store) statuses for further detection weather they has been changed.

use 5.12.0;
use strict;
use warnings;

use Smart::Comments -ENV;
use Moo;
use Scalar::Util qw/refaddr/;
use Storable;

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


sub stash_status {
    my ($self, $status) = @_;
    my $same_as_previous = 0;
    if ( defined($status) ) {
        my $previous = $self->statuses->{ $status -> watcher };
        $same_as_previous = $previous && (refaddr($previous) == refaddr($status));
        $self->statuses->{ $status -> watcher } = $status;
    }
    return $same_as_previous;
}


sub status_changed {
    my ($self, $status) = @_;
    my $watcher = $status -> watcher;
    my $stashed_status = $self->statuses->{$watcher};
    return 1 unless $stashed_status;
    my $updated = $stashed_status->updated_from($status);
    # $updated
    return $updated;
}

1;

__END__