File Coverage

blib/lib/App/PerlWatcher/UI/Gtk2/URLOpener.pm

Criterion	Covered	Total	%
statement	18	27	66.6
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	25	36	69.4

package App::PerlWatcher::UI::Gtk2::URLOpener;
{
  $App::PerlWatcher::UI::Gtk2::URLOpener::VERSION = '0.09';
}
# ABSTRACT: The class is responsible for opening urls after a shord idle.

use 5.12.0;
use strict;
use warnings;

use AnyEvent;
use Moo;
use Scalar::Util qw/weaken/;



has 'openables'  => ( is => 'rw', default => sub{ []; } );


has 'timer' => (is => 'rw');


has 'delay' => (is => 'rw', required => 1);


has 'callback' => (is => 'rw', required => 1);


sub delayed_open {
    my ($self, $openable) = @_;
    push @{ $self->openables }, $openable;

    weaken $self;
    $self->timer(
        AnyEvent->timer(
            after => $self->delay,
            cb => sub {
                my $openables = $self->openables;
                $_->open_url for( @$openables );
                $self->openables([]);
                $self->callback->($openables);
            }
        )
    );
}

1;

__END__