File Coverage

blib/lib/LaTeX/TikZ/Mod/Formatted.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package LaTeX::TikZ::Mod::Formatted;
2              
3 10     10   33 use strict;
  10         11  
  10         225  
4 10     10   32 use warnings;
  10         8  
  10         265  
5              
6             =head1 NAME
7              
8             LaTeX::TikZ::Mod::Formatted - Intermediate object between a modifier object and its code representation.
9              
10             =head1 VERSION
11              
12             Version 0.03
13              
14             =cut
15              
16             our $VERSION = '0.03';
17              
18 10     10   30 use Mouse;
  10         8  
  10         41  
19 10     10   2131 use Mouse::Util::TypeConstraints qw;
  10         15  
  10         44  
20              
21             =head1 ATTRIBUTES
22              
23             =head2 C
24              
25             =cut
26              
27             has 'type' => (
28             is => 'ro',
29             isa => enum([ qw ]),
30             required => 1,
31             );
32              
33             =head2 C
34              
35             =cut
36              
37             has 'content' => (
38             is => 'ro',
39             isa => 'Str',
40             required => 1,
41             );
42              
43             coerce 'LaTeX::TikZ::Mod::Formatted'
44             => from 'Str'
45             => via { LaTeX::TikZ::Mod::Formatted->new(type => 'raw', content => $_) };
46              
47             =head1 METHODS
48              
49             =head2 C
50              
51             =cut
52              
53             sub tag {
54 232     232 1 239 my ($self) = @_;
55              
56 232         901 ref($self) . '/' . $self->type . '/' . $self->content;
57             }
58              
59             __PACKAGE__->meta->make_immutable;
60              
61             =head1 SEE ALSO
62              
63             L.
64              
65             =head1 AUTHOR
66              
67             Vincent Pit, C<< >>, L.
68              
69             You can contact me by mail or on C (vincent).
70              
71             =head1 BUGS
72              
73             Please report any bugs or feature requests to C, or through the web interface at L.
74             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
75              
76             =head1 SUPPORT
77              
78             You can find documentation for this module with the perldoc command.
79              
80             perldoc LaTeX::TikZ
81              
82             =head1 COPYRIGHT & LICENSE
83              
84             Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved.
85              
86             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
87              
88             =cut
89              
90             1; # End of LaTeX::TikZ::Mod::Formatted