File Coverage

blib/lib/GraphViz/Graph/Label.pm

Criterion	Covered	Total	%
statement	9	37	24.3
branch	0	16	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	62	19.3

package GraphViz::Graph::Label;

use warnings;
use strict;

use Carp;

#_{ Methods
#_{ POD
=encoding utf8

=head1 METHODS

=cut

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

=cut
 #_}
  my $class = shift;
  my $opts  = shift;
  my $self = {};

  croak 'Options expected'       unless defined $opts;
  croak 'Options must be a HASH' unless ref $opts eq 'HASH';

  if ($opts->{text}) {
      $self->{type} = 'text';
      $self->{text_or_html} = delete $opts->{text};
  }
  elsif ($opts->{html}) {
      $self->{type} = 'html';
      $self->{text_or_html} = delete $opts->{html};
  }
  else {
      croak "A label must be either a text or a html label";
  }

  croak "Unrecognized opts " . join "/", keys %$opts if keys %$opts;

  bless $self, $class;
  return $self;

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

    my $label = $graph -> label(…);
    $label->loc('t'); # put label to top of graph

For I, only C<"t"> (I)and C<"b"> (I, default) are allowed.

Possible values for I seem to be C<"t">, C<"b"> and C<"c"> (I, default). The value is only used when the height of the node is larger than the height of its label.

=cut
 #_}
  my $self = shift;
  my $loc  = shift;

  carp "$loc is not in c, b, t" unless grep { $_ eq $loc} qw(c b t);

  $self->{loc} = $loc;

  return $self;

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

=cut
 #_}

  my $self = shift;

  my $ret = '';

  if ($self->{type} eq 'text') {

     $ret = "
  label=\"$self->{text_or_html}\"
";

  }
  else {
     $ret = "
  label=<$self->{text_or_html}>
";

  }
  if ($self->{loc}) {
    $ret .= "  labelloc=$self->{loc}
";
  }

  return $ret;

} #_}

#_}

'tq84';