]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/blob - lib/LaTeX/TikZ/Set/Line.pm
Make Set::Point delegates ->x and ->y to the underlying point
[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Line.pm
1 package LaTeX::TikZ::Set::Line;
2
3 use strict;
4 use warnings;
5
6 =head1 NAME
7
8 LaTeX::TikZ::Set::Line - A set object representing a line.
9
10 =head1 VERSION
11
12 Version 0.01
13
14 =cut
15
16 our $VERSION = '0.01';
17
18 use LaTeX::TikZ::Set::Point;
19
20 use Any::Moose;
21
22 with 'LaTeX::TikZ::Set::Op';
23
24 has 'from' => (
25  is       => 'ro',
26  isa      => 'LaTeX::TikZ::Set::Point',
27  required => 1,
28  coerce   => 1,
29 );
30
31 has 'to' => (
32  is       => 'ro',
33  isa      => 'LaTeX::TikZ::Set::Point',
34  required => 1,
35  coerce   => 1,
36 );
37
38 sub path {
39  my $set = shift;
40
41  $set->from->path(@_) . ' -- ' . $set->to->path(@_);
42 }
43
44 use LaTeX::TikZ::Interface line => sub {
45  shift;
46
47  __PACKAGE__->new(from => $_[0], to => $_[1]);
48 };
49
50 __PACKAGE__->meta->make_immutable;
51
52 =head1 AUTHOR
53
54 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
55
56 You can contact me by mail or on C<irc.perl.org> (vincent).
57
58 =head1 BUGS
59
60 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>.
61 I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
62
63 =head1 SUPPORT
64
65 You can find documentation for this module with the perldoc command.
66
67     perldoc LaTeX::TikZ
68
69 =head1 COPYRIGHT & LICENSE
70
71 Copyright 2010 Vincent Pit, all rights reserved.
72
73 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
74
75 =cut
76
77 1; # End of LaTeX::TikZ::Set::Line