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

package Meta::Grapher::Moose::Constants;

use strict;
use warnings;

our $VERSION = '1.02';

use Exporter qw( import );

our @EXPORT_OK = qw( CLASS ROLE P_ROLE ANON_ROLE );

# Note that these constants need to have actual human readable values because
# they allow the user to configure things like the color of output from the
# command line in the plantuml renderer.
sub CLASS ()     { return 'class'; }
sub ROLE ()      { return 'role'; }
sub P_ROLE ()    { return 'prole'; }
sub ANON_ROLE () { return 'anonrole'; }

1;

# ABSTRACT: Internal constants used by Meta::Grapher::Moose

__END__

=pod

=encoding UTF-8

=head1 NAME

Meta::Grapher::Moose::Constants - Internal constants used by Meta::Grapher::Moose

=head1 VERSION

version 1.02

=head1 SYNOPSIS

    use Meta::Grapher::Moose::Constants qw(
        CLASS ROLE P_ROLE
    );

=head1 DESCRIPTION

This module allows you to import several constants that are used throughout
the L<Meta::Grapher::Moose> code base.

=head2 CLASS

Constant representing that the package is a Moose class.

=head2 ROLE

Constant representing that the package is a parameterized Moose role.

=head2 P_ROLE

Constant representing that the package is a non-parameterized Moose role.

=head2 ANON_ROLE

Constant representing that the package is an anonymous role created by a
parameterized role

=head1 SUPPORT

Bugs may be submitted through L<the RT bug tracker|http://rt.cpan.org/Public/Dist/Display.html?Name=Meta-Grapher-Moose>
(or L<[e-mail]|mailto:[e-mail]>).

I am also usually active on IRC as 'drolsky' on C<irc://irc.perl.org>.

=head1 AUTHOR

Dave Rolsky <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2016 by Dave Rolsky.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut