Introduce the ->begin and ->end path methods

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Line.pm

diff --git a/lib/LaTeX/TikZ/Set/Line.pm b/lib/LaTeX/TikZ/Set/Line.pm
index 4054bfd1d282eb380dad5f5758402b5bbe9665e8..faa4ccb22f018411b8febb610874b0761e9b2327 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Line.pm
+++ b/lib/LaTeX/TikZ/Set/Line.pm
@@ -70,6 +70,18 @@ sub path {
  $set->from->path(@_) . ' -- ' . $set->to->path(@_);
 }
 
+=head2 C<begin>
+
+=cut
+
+sub begin { $_[0]->from->begin }
+
+=head2 C<end>
+
+=cut
+
+sub end { $_[0]->to->end }
+
 LaTeX::TikZ::Interface->register(
  line => sub {
   shift;