File Coverage

blib/lib/Bolts/Role/SelfLocator.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 1 1 100.0
total 7 7 100.0


line stmt bran cond sub pod time code
1             package Bolts::Role::SelfLocator;
2             $Bolts::Role::SelfLocator::VERSION = '0.142930';
3             # ABSTRACT: Makes a Moose object into a locator
4              
5 8     8   46356 use Moose::Role;
  8         17  
  8         58  
6              
7             with 'Bolts::Role::RootLocator';
8              
9              
10 77     77 1 141 sub root { $_[0] }
11              
12             1;
13              
14             __END__
15              
16             =pod
17              
18             =encoding UTF-8
19              
20             =head1 NAME
21              
22             Bolts::Role::SelfLocator - Makes a Moose object into a locator
23              
24             =head1 VERSION
25              
26             version 0.142930
27              
28             =head1 DESCRIPTION
29              
30             Any Moose object can turned into a L<Bolts::Role::Locator> easily just by implementing this role.
31              
32             =head1 ROLES
33              
34             =over
35              
36             =item *
37              
38             L<Bolts::Role::Locator>
39              
40             =back
41              
42             =head1 METHODS
43              
44             =head2 root
45              
46             Returns the invocant.
47              
48             =head1 AUTHOR
49              
50             Andrew Sterling Hanenkamp <hanenkamp@cpan.org>
51              
52             =head1 COPYRIGHT AND LICENSE
53              
54             This software is copyright (c) 2014 by Qubling Software LLC.
55              
56             This is free software; you can redistribute it and/or modify it under
57             the same terms as the Perl 5 programming language system itself.
58              
59             =cut