File Coverage

blib/lib/Meta/Grapher/Moose/Constants.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 4 4 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Meta::Grapher::Moose::Constants;
2              
3 2     2   402961 use strict;
  2         3  
  2         41  
4 2     2   7 use warnings;
  2         2  
  2         61  
5              
6             our $VERSION = '1.02';
7              
8 2     2   6 use Exporter qw( import );
  2         1  
  2         170  
9              
10             our @EXPORT_OK = qw( CLASS ROLE P_ROLE ANON_ROLE );
11              
12             # Note that these constants need to have actual human readable values because
13             # they allow the user to configure things like the color of output from the
14             # command line in the plantuml renderer.
15 7     7 1 19 sub CLASS () { return 'class'; }
16 9     9 1 147 sub ROLE () { return 'role'; }
17 4     4 1 647 sub P_ROLE () { return 'prole'; }
18 4     4 1 5 sub ANON_ROLE () { return 'anonrole'; }
19              
20             1;
21              
22             # ABSTRACT: Internal constants used by Meta::Grapher::Moose
23              
24             __END__
25              
26             =pod
27              
28             =encoding UTF-8
29              
30             =head1 NAME
31              
32             Meta::Grapher::Moose::Constants - Internal constants used by Meta::Grapher::Moose
33              
34             =head1 VERSION
35              
36             version 1.02
37              
38             =head1 SYNOPSIS
39              
40             use Meta::Grapher::Moose::Constants qw(
41             CLASS ROLE P_ROLE
42             );
43              
44             =head1 DESCRIPTION
45              
46             This module allows you to import several constants that are used throughout
47             the L<Meta::Grapher::Moose> code base.
48              
49             =head2 CLASS
50              
51             Constant representing that the package is a Moose class.
52              
53             =head2 ROLE
54              
55             Constant representing that the package is a parameterized Moose role.
56              
57             =head2 P_ROLE
58              
59             Constant representing that the package is a non-parameterized Moose role.
60              
61             =head2 ANON_ROLE
62              
63             Constant representing that the package is an anonymous role created by a
64             parameterized role
65              
66             =head1 SUPPORT
67              
68             Bugs may be submitted through L<the RT bug tracker|http://rt.cpan.org/Public/Dist/Display.html?Name=Meta-Grapher-Moose>
69             (or L<bug-meta-grapher-moose@rt.cpan.org|mailto:bug-meta-grapher-moose@rt.cpan.org>).
70              
71             I am also usually active on IRC as 'drolsky' on C<irc://irc.perl.org>.
72              
73             =head1 AUTHOR
74              
75             Dave Rolsky <autarch@urth.org>
76              
77             =head1 COPYRIGHT AND LICENSE
78              
79             This software is Copyright (c) 2016 by Dave Rolsky.
80              
81             This is free software, licensed under:
82              
83             The Artistic License 2.0 (GPL Compatible)
84              
85             =cut