File Coverage

blib/lib/GraphViz/Graph/Edge.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	31	51.6

package GraphViz::Graph::Edge;

use warnings;
use strict;

use GraphViz::Graph;

use Carp;

#_{ Methods

=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 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 $ret = "$self->{from} -> $self->{to};\n";

  return $ret;

}

#_}

'tq84';