The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

FSEITZ / Quiq-1.225 / lib / Quiq / Gnuplot / Arrow.pm 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
—
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
—
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

              
# -----------------------------------------------------------------------------
=encoding utf8
=head1 NAME
Quiq::Gnuplot::Arrow - Gnuplot-Arrow
=head1 BASE CLASS
L<Quiq::Hash>
=head1 DESCRIPTION
Ein Objekt der Klasse repräsentiert einen Arrow, also eine Linie
zwischen zwei Punkten mit optionaler Dekoration.
=cut
# -----------------------------------------------------------------------------
package Quiq::Gnuplot::Arrow;
use base qw/Quiq::Hash/;
use v5.10;
use strict;
use warnings;
our $VERSION = '1.225';
# -----------------------------------------------------------------------------
=head1 METHODS
=head2 Konstruktor
=head3 new() - Instantiiere Arrow-Objekt
=head4 Synopsis
  $aow = Quiq::Gnuplot::Arrow->new(@keyVal);
=cut
# -----------------------------------------------------------------------------
sub new {
    my $class = shift;
    # @_: @keyVal
    my $self = $class->SUPER::new(
        from => [], # [$x,$y]
        to => [],   # [$x,$y]
        heads => undef, # nohead, head, backhead, heads
        lineType => undef,
        lineWidth => undef,
        lineStyle => undef,
    );
    $self->set(@_);
     
    return $self;
}
# -----------------------------------------------------------------------------
=head1 VERSION
1.225
=head1 AUTHOR
Frank Seitz, L<http://fseitz.de/>
=head1 COPYRIGHT
Copyright (C) 2025 Frank Seitz
=head1 LICENSE
This code is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
# -----------------------------------------------------------------------------
1;
# eof