File Coverage

blib/lib/App/mirai/Watcher.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	23	24	95.8

package App::mirai::Watcher;
$App::mirai::Watcher::VERSION = '0.003';
use strict;
use warnings;

use parent qw(Mixin::Event::Dispatch);

=head1 NAME

App::mirai::Watcher - event class for L notifications

=head1 VERSION

version 0.003

=cut

use Variable::Disposition;

sub new { my $class = shift; bless { @_ }, $class }

=head2 discard

Disposes of this watcher. Will raise an exception if anything else is
holding on to it.

=cut

sub discard {
	App::mirai::Future->delete_watcher($_[0]);
	dispose $_[0];
}

1;

__END__