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.161950';
3 4     4   1883 use Moose::Role;
  4         7  
  4         24  
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.161950
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