File Coverage

blib/lib/GraphViz/Graph/Edge.pm

Criterion	Covered	Total	%
statement	12	37	32.4
branch	0	8	0.0
condition	0	4	0.0
subroutine	4	8	50.0
pod	0	4	0.0
total	16	61	26.2

package GraphViz::Graph::Edge;
#_{ Use
use warnings;
use strict;

use Carp;
use GraphViz::Graph;
#_}
#_{ Version
our $VERSION = $GraphViz::Graph::Version;
#_}
#_{ Methods
#_{ POD
=head1 METHODS

=cut
#_}
sub new { #_{
#_{ POD
=head2 new

=cut
#_}

  my $class = shift;
  my $from  = shift;
  my $to    = shift;

# my $opts  = shift;
  my $self = {};

  $self->{from} = GraphViz::Graph::node_or_port_to_string_($from);
  $self->{to  } = GraphViz::Graph::node_or_port_to_string_($to  );

  bless $self, $class;
  return $self;

} #_}
sub arrow_end { #_{

#_{ POD
=head2 arrow_end

    $edge_one->arrow_end('normal');
    $edge_two->arrow_end('none');

Sets the shape of the edge's end. L.
Technically, it sets the C attribute. But because C is
confusing, the method is named C.

TODO: L

=cut
#_}

  my $self  = shift;
  my $arrow = shift;
  $self->{arrow}->{head}=$arrow;

} #_}
sub arrow_start { #_{

#_{ POD
=head2 arrow_start

    $edge_one->arrow_start('normal');
    $edge_two->arrow_start('none'  );

Sets the shape of the edge's start. L.

=cut
#_}

  my $self  = shift;
  my $arrow = shift;
  $self->{arrow}->{tail}=$arrow;

} #_}
sub dot_text { #_{
#_{ POD
=head2 dot_text

Returns the dot-text that represents the edge on which it was called.

Called by L's C.

=cut
#_}

  my $self = shift;

  my $arrow_head = $self->{arrow}->{head} // '';
  my $arrow_tail = $self->{arrow}->{tail} // '';

  my @attributes;

# Apparently, if arrowtail is set, it also needs 'dir=both'
  push @attributes, "dir=both"              if $arrow_tail ;#or $arrow_tail;
  push @attributes, "arrowhead=$arrow_head" if $arrow_head;
  push @attributes, "arrowtail=$arrow_tail" if $arrow_tail;

  my $attributes=join ' ', @attributes;
  $attributes = " [$attributes]" if $attributes;

  my $ret = "$self->{from} -> $self->{to}$attributes;\n";

  return $ret;
} #_}

#_}

'tq84';