File Coverage

lib/Graph/Easy/Node/Cell.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	47	50	94.0

#############################################################################
# (c) by Tels 2004 - 2005. An empty filler cell. Part of Graph::Easy.
#
#############################################################################

package Graph::Easy::Node::Cell;

use Graph::Easy::Node;

use strict;
use warnings;

use vars qw(@ISA $VERSION);

@ISA = qw/Graph::Easy::Node/;
$VERSION = '0.75';

#############################################################################

sub _init
  {
  # generic init, override in subclasses
  my ($self,$args) = @_;

  $self->{class} = '';
  $self->{name} = '';

  $self->{'x'} = 0;
  $self->{'y'} = 0;

  # default: belongs to no node
  $self->{node} = undef;

  foreach my $k (sort keys %$args)
    {
    if ($k !~ /^(node|graph|x|y)\z/)
      {
      require Carp;
      Carp::confess ("Invalid argument '$k' passed to Graph::Easy::Node::Cell->new()");
      }
    $self->{$k} = $args->{$k};
    }

  $self;
  }

sub _correct_size
  {
  my $self = shift;

  $self->{w} = 0;
  $self->{h} = 0;

  $self;
  }

sub node
  {
  # return the node this cell belongs to
  my $self = shift;

  $self->{node};
  }

sub as_ascii
  {
  '';
  }

sub as_html
  {
  '';
  }

sub group
  {
  my $self = shift;

  $self->{node}->group();
  }

1;
__END__