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


line stmt bran cond sub pod time code
1             package App::mirai::Watcher;
2             $App::mirai::Watcher::VERSION = '0.002';
3 1     1   6 use strict;
  1         2  
  1         41  
4 1     1   12 use warnings;
  1         2  
  1         61  
5              
6 1     1   1868 use parent qw(Mixin::Event::Dispatch);
  1         348  
  1         5  
7              
8             =head1 NAME
9              
10             App::mirai::Watcher - event class for L notifications
11              
12             =head1 VERSION
13              
14             Version 0.002
15              
16             =cut
17              
18 1     1   7116 use Variable::Disposition;
  1         234  
  1         101  
19              
20 5     5 0 6 sub new { my $class = shift; bless { @_ }, $class }
  5         17  
21              
22             =head2 discard
23              
24             Disposes of this watcher. Will raise an exception if anything else is
25             holding on to it.
26              
27             =cut
28              
29             sub discard {
30 3     3 1 1725 App::mirai::Future->delete_watcher($_[0]);
31 3         12 dispose $_[0];
32             }
33              
34             1;
35              
36             __END__