File Coverage

blib/lib/MooseX/ChainedAccessors/Accessor.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1             #
2             # This file is part of MooseX-Attribute-Chained
3             #
4             # This software is copyright (c) 2017 by Tom Hukins.
5             #
6             # This is free software; you can redistribute it and/or modify it under
7             # the same terms as the Perl 5 programming language system itself.
8             #
9             package MooseX::ChainedAccessors::Accessor;
10             $MooseX::ChainedAccessors::Accessor::VERSION = '1.0.3';
11             # ABSTRACT: DEPRECATED
12 1     1   1602 use strict;
  1         5  
  1         43  
13 1     1   10 use warnings;
  1         3  
  1         46  
14 1     1   9 use base 'Moose::Meta::Method::Accessor';
  1         3  
  1         153  
15              
16             sub _inline_post_body {
17 0     0     return 'return $_[0] if (scalar(@_) >= 2);' . "\n";
18             }
19             1;
20              
21             __END__
22              
23             =pod
24              
25             =encoding UTF-8
26              
27             =head1 NAME
28              
29             MooseX::ChainedAccessors::Accessor - DEPRECATED
30              
31             =head1 VERSION
32              
33             version 1.0.3
34              
35             =head1 AUTHORS
36              
37             =over 4
38              
39             =item *
40              
41             Tom Hukins <tom@eborcom.com>
42              
43             =item *
44              
45             Moritz Onken <onken@netcubed.de>
46              
47             =item *
48              
49             David McLaughlin <david@dmclaughlin.com>
50              
51             =back
52              
53             =head1 COPYRIGHT AND LICENSE
54              
55             This software is copyright (c) 2017 by Tom Hukins.
56              
57             This is free software; you can redistribute it and/or modify it under
58             the same terms as the Perl 5 programming language system itself.
59              
60             =head1 BUGS
61              
62             Please report any bugs or feature requests on the bugtracker website
63             L<http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Attribute-Chained>
64             or by email to L<bug-moosex-attribute-chained at
65             rt.cpan.org|mailto:bug-moosex-attribute-chained at rt.cpan.org>.
66              
67             When submitting a bug or request, please include a test-file or a
68             patch to an existing test-file that illustrates the bug or desired
69             feature.
70              
71             =cut