File Coverage

blib/lib/LaTeX/TikZ/Mod/Raw.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 4 5 80.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package LaTeX::TikZ::Mod::Raw;
2              
3 10     10   34 use strict;
  10         15  
  10         258  
4 10     10   35 use warnings;
  10         15  
  10         297  
5              
6             =head1 NAME
7              
8             LaTeX::TikZ::Mod::Raw - A literal TikZ modifier.
9              
10             =head1 VERSION
11              
12             Version 0.03
13              
14             =cut
15              
16             our $VERSION = '0.03';
17              
18 10     10   38 use LaTeX::TikZ::Interface;
  10         18  
  10         135  
19              
20 10     10   37 use Mouse;
  10         10  
  10         44  
21              
22             =head1 RELATIONSHIPS
23              
24             This class consumes the L role, and as such implements the L, L, L and L methods.
25              
26             =cut
27              
28             with 'LaTeX::TikZ::Mod';
29              
30             =head1 ATTRIBUTES
31              
32             =head2 C
33              
34             The bare string the raw mod is made of.
35              
36             =cut
37              
38             has 'content' => (
39             is => 'ro',
40             isa => 'Str',
41             required => 1,
42             );
43              
44             =head1 METHODS
45              
46             =head2 C
47              
48             =cut
49              
50             sub tag {
51 26     26 1 36 my ($self) = @_;
52              
53 26         109 ref($self) . '/' . $self->content;
54             }
55              
56             =head2 C
57              
58             =cut
59              
60 2     2 1 9 sub covers { 0 }
61              
62             =head2 C
63              
64             =cut
65              
66 11     11 1 34 sub declare { }
67              
68             =head2 C
69              
70             =cut
71              
72 13     13 1 116 sub apply { $_[0]->content }
73              
74             LaTeX::TikZ::Interface->register(
75             raw_mod => sub {
76 4     4 0 2959 shift;
77              
78 4         48 __PACKAGE__->new(content => $_[0]);
79             },
80             );
81              
82             __PACKAGE__->meta->make_immutable;
83              
84             =head1 SEE ALSO
85              
86             L, L.
87              
88             =head1 AUTHOR
89              
90             Vincent Pit, C<< >>, L.
91              
92             You can contact me by mail or on C (vincent).
93              
94             =head1 BUGS
95              
96             Please report any bugs or feature requests to C, or through the web interface at L.
97             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
98              
99             =head1 SUPPORT
100              
101             You can find documentation for this module with the perldoc command.
102              
103             perldoc LaTeX::TikZ
104              
105             =head1 COPYRIGHT & LICENSE
106              
107             Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved.
108              
109             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
110              
111             =cut
112              
113             1; # End of LaTeX::TikZ::Mod::Raw