File Coverage

blib/lib/LaTeX/TikZ/Set/Arrow.pm
Criterion Covered Total %
statement 30 30 100.0
branch 3 4 75.0
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 41 43 95.3


line stmt bran cond sub pod time code
1             package LaTeX::TikZ::Set::Arrow;
2              
3 10     10   64 use strict;
  10         21  
  10         338  
4 10     10   63 use warnings;
  10         22  
  10         1058  
5              
6             =head1 NAME
7              
8             LaTeX::TikZ::Set::Arrow - A combined set object representing an arrow.
9              
10             =head1 VERSION
11              
12             Version 0.02
13              
14             =cut
15              
16             our $VERSION = '0.02';
17              
18 10     10   58 use Carp;
  10         23  
  10         864  
19              
20 10     10   67 use LaTeX::TikZ::Point;
  10         32  
  10         333  
21              
22 10     10   65 use LaTeX::TikZ::Set::Line;
  10         30  
  10         343  
23              
24 10     10   59 use LaTeX::TikZ::Interface;
  10         37  
  10         309  
25              
26 10     10   67 use Any::Moose 'Util::TypeConstraints' => [ 'find_type_constraint' ];
  10         28  
  10         230  
27              
28             my $ltp_tc = find_type_constraint('LaTeX::TikZ::Point::Autocoerce');
29              
30             LaTeX::TikZ::Interface->register(
31             arrow => sub {
32 2     2 0 2437 shift;
33              
34 2 50       9 Carp::confess('Not enough arguments') unless @_ >= 2;
35              
36 2         9 my $from = $ltp_tc->coerce(shift);
37              
38 2         5 my $to;
39 2 100       11 if ($_[0] eq 'dir') {
40 1         5 my $dir = $ltp_tc->coerce($_[1]);
41 1         50 $to = LaTeX::TikZ::Point->new(
42             x => $from->x + $dir->x,
43             y => $from->y + $dir->y,
44             );
45             } else {
46 1         5 $to = $_[0];
47             }
48              
49 2         21 LaTeX::TikZ::Set::Line->new(
50             from => $from,
51             to => $to,
52             )->mod('->');
53             },
54             );
55              
56             =head1 SEE ALSO
57              
58             L<LaTeX::TikZ>, L<LaTeX::TikZ::Set>.
59              
60             =head1 AUTHOR
61              
62             Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
63              
64             You can contact me by mail or on C<irc.perl.org> (vincent).
65              
66             =head1 BUGS
67              
68             Please report any bugs or feature requests to C<bug-latex-tikz at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=LaTeX-TikZ>.
69             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
70              
71             =head1 SUPPORT
72              
73             You can find documentation for this module with the perldoc command.
74              
75             perldoc LaTeX::TikZ
76              
77             =head1 COPYRIGHT & LICENSE
78              
79             Copyright 2010 Vincent Pit, all rights reserved.
80              
81             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
82              
83             =cut
84              
85             1; # End of LaTeX::TikZ::Set::Arrow