File Coverage

blib/lib/Bot/Backbone/Meta/Class/DispatchBuilder.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Bot::Backbone::Meta::Class::DispatchBuilder;
2             $Bot::Backbone::Meta::Class::DispatchBuilder::VERSION = '0.160630';
3 4     4   1833 use Moose::Role;
  4         5  
  4         26  
4              
5             # ABSTRACT: Metaclass role providing dispatcher setup helps
6              
7              
8             has dispatch_builder => (
9                 is => 'rw',
10                 isa => 'CodeRef',
11                 predicate => 'has_dispatch_builder',
12                 traits => [ 'Code' ],
13                 handles => {
14                     run_dispatch_builder => 'execute',
15                 },
16             );
17              
18             has building_dispatcher => (
19                 is => 'rw',
20                 isa => 'Bot::Backbone::Dispatcher',
21                 clearer => 'no_longer_building_dispatcher',
22             );
23              
24             1;
25              
26             __END__
27            
28             =pod
29            
30             =encoding UTF-8
31            
32             =head1 NAME
33            
34             Bot::Backbone::Meta::Class::DispatchBuilder - Metaclass role providing dispatcher setup helps
35            
36             =head1 VERSION
37            
38             version 0.160630
39            
40             =head1 DESCRIPTION
41            
42             This metaclass role is used to help the sugar subroutines setup a dispatcher. That is all. There are no additional services provided here that should be used directly.
43            
44             =head1 AUTHOR
45            
46             Andrew Sterling Hanenkamp <hanenkamp@cpan.org>
47            
48             =head1 COPYRIGHT AND LICENSE
49            
50             This software is copyright (c) 2016 by Qubling Software LLC.
51            
52             This is free software; you can redistribute it and/or modify it under
53             the same terms as the Perl 5 programming language system itself.
54            
55             =cut
56