File Coverage

blib/lib/LaTeX/TikZ/Point/Math/Complex.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package LaTeX::TikZ::Point::Math::Complex;
2              
3 3     3   2931 use strict;
  3         4  
  3         98  
4 3     3   13 use warnings;
  3         5  
  3         125  
5              
6             =head1 NAME
7              
8             LaTeX::TikZ::Point::Math::Complex - Coerce Math::Complex points into LaTeX::TikZ::Point objects.
9              
10             =head1 VERSION
11              
12             Version 0.03
13              
14             =cut
15              
16             our $VERSION = '0.03';
17              
18 3     3   19 use Math::Complex;
  3         3  
  3         677  
19              
20 3     3   16 use LaTeX::TikZ::Point;
  3         4  
  3         67  
21              
22 3     3   12 use Mouse::Util::TypeConstraints qw;
  3         7  
  3         24  
23              
24             my $mc_tc = class_type 'Math::Complex';
25              
26             coerce 'LaTeX::TikZ::Point::Autocoerce'
27             => from 'Math::Complex'
28             => via { LaTeX::TikZ::Point->new(x => $_->Re, y => $_->Im); };
29              
30             =head1 AUTHOR
31              
32             Vincent Pit, C<< >>, L.
33              
34             You can contact me by mail or on C (vincent).
35              
36             =head1 BUGS
37              
38             Please report any bugs or feature requests to C, or through the web interface at L.
39             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
40              
41             =head1 SUPPORT
42              
43             You can find documentation for this module with the perldoc command.
44              
45             perldoc LaTeX::TikZ
46              
47             =head1 COPYRIGHT & LICENSE
48              
49             Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved.
50              
51             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
52              
53             =cut
54              
55             1; # End of LaTeX::TikZ::Point::Math::Complex