File Coverage

blib/lib/Text/Flowchart.pm

Criterion	Covered	Total	%
statement	373	442	84.3
branch	138	234	58.9
condition	62	142	43.6
subroutine	71	72	98.6
pod	5	8	62.5
total	649	898	72.2

package Text::Flowchart;

#Copyright (c) 1999 James A Thomason III ([e-mail]). All rights reserved.
#This program is free software; you can redistribute it under the terms of the licence listed at the end
#of the module.

$VERSION = "1.00";

use Carp;


{
	my $i = 0;
	foreach ($boxes, $grid, $lines, $directed){
		$_ = $i++
	};

};

sub accessor {
	my $self = shift;
	my $prop = shift;

	$self->[$prop] = shift if @_;

	return $self->[$prop];
};

sub directed{ shift->accessor($directed, @_)};

sub new {

	my $class = shift;
	my %init = @_;
	my $self = [];			#why not a hash?  An array is a smidgen bit faster and no one is gonna see the underlying structure anyway
	bless $self, $class;	#Hey!  What are you doing looking in here anyway?  Use the nice OO interface I wrote you!

	$self->size(
		"width" => $init{"width"} ? $init{"width"} : -1,
		"height" => $init{"height"} ? $init{"height"} : -1,
		"pad" => $init{"pad"},
		"debug" => $init{"debug"}
	);

	$self->directed($init{"directed"} || 0);

	return $self;

};

sub box {

	my $self = shift;

	my $box = Text::Flowchart::Shape::Box->new(@_, "parent" => $self);

	croak("Box was not created properly\n") unless $box;


	push @{$self->[$boxes]}, $box || croak("Cannot add box to flowchart stack\n");

	return $self->[$boxes]->[-1];
};

sub line {

	my $self = shift;

	my %init = @_;

	my $line;
	if ($init{"orientation"} eq "V"){
		$line = Text::Flowchart::Shape::Line::Vertical->new(@_, "parent" => $self);
	}
	elsif ($init{"orientation"} =~ m/^(T|B)C$/){
		$line = Text::Flowchart::Shape::Line::Corner->new(@_, "parent" => $self);
	}
	elsif ($init{"orientation"} eq "H"){
		$line = Text::Flowchart::Shape::Line::Horizontal->new(@_, "parent" => $self);
	}
	else {croak("Invalid orientation.  Must be 'H', 'V', 'TC', or 'BC'\n")};

	croak("Line was not created properly.\n") unless $line;



	push @{$self->[$lines]}, $line || croak("Cannot add line to flowchart stack\n");

	return $self->[$lines]->[-1];
};

sub size {

	my $self = shift;

	if (@_) {
		my $_grid = Text::Flowchart::Grid->new(@_);
		croak("Cannot create grid\n") unless $_grid;
		$self->[$grid] = $_grid;
	};

	return $self->[$grid];

};

sub draw {
	my $self = shift;

	local *OUTPUT;
	*OUTPUT = shift || *STDOUT;

	my $grid = $self->size();
	my ($x, $y, $x2, $y2) = (0,0,0,0);

	foreach $box (@{$self->[$boxes]}){
		$grid->insert($box)
	};

	foreach $line (@{$self->[$lines]}){
		$grid->insert($line)
	};

	#print OUTPUT "\n";

	$grid->repair();

	if ($grid->debug()){
		print OUTPUT " ";
		my $width = $grid->width();
		while ($width-- > 0){
			print OUTPUT ($x++ % 10 || $x2++);
		};
		print OUTPUT "\n";
	};
	foreach (0..$#{$grid->grid()}){
	print OUTPUT ($y++ % 10 || $y2++) if $grid->debug();
		if (length $grid->grid->[$_] == $grid->width()){print OUTPUT $grid->grid->[$_], "\n"}
		else {print OUTPUT $grid->pad() x $grid->width(), "\n"};
	};
};

sub relate {
	my $self = shift;

	my $from_array = shift;
	my $to_array = shift;

	my %init = @_;

	my ($from, $from_side, $from_offset) = @{$from_array};
	my ($to, $to_side, $to_offset)     = @{$to_array};
	if ($from->parent() ne $self){croak("Cannot relate from a box not inside this flowchart.\n")};
	if ($to->parent()   ne $self){croak("Cannot relate to a box not inside this flowchart.\n")};
	if ($from_side !~ /^(top|bottom|right|left)$/){croak("Invalid side.  Side must be 'top', 'bottom', 'left', or 'right'.\n")};
	if ($to_side   !~ /^(top|bottom|right|left)$/){croak("Invalid side.  Side must be 'top', 'bottom', 'left', or 'right'.\n")};
	if ($from_side eq $to_side){croak("Cannot relate the same sides of boxes.  Use different sides.\n")};
	if (length $init{"reason"} > 1){croak("Reasons must be a single character.\n")};

	return $from->relate(
		"to" 			=> $to,
		"from_side"		=> $from_side,
		"to_side"		=> $to_side,
		"from_offset"	=> $from_offset,
		"to_offset"		=> $to_offset,
		"reason"		=> $init{"reason"}
	);

};

package Text::Flowchart::Grid;

use Carp;

@ISA = qw(Text::Flowchart);

$def_width = 72;
$def_height = 0;
$def_pad = " ";

{
	my $i = 0;
	foreach ($width, $height, $grid, $pad, $debug){
		$_ = $i++
	};

};

sub width 	{shift->accessor($width, @_)};
sub height 	{shift->accessor($height, @_)};
sub grid 	{shift->accessor($grid, @_)};
sub pad 	{shift->accessor($pad, @_)};
sub debug 	{shift->accessor($debug, @_)};

sub new {
	my $class = shift;
	my $self = [];
	bless $self, $class;
	my %init = @_;

	my $width = $init{"width"};
	my $height = $init{"height"};
	my $pad = $init{"pad"};
	my $debug = $init{"debug"};

	croak("Invalid dimensions.\n") unless $width =~ /^-?\d*$/ && $height =~ /^-?\d*$/;

	$self->width($width >  0 ? $width : $def_width);
	$self->height($height >= 0 ? $height : $def_height);
	$self->pad(length $pad == 1 ? $pad : $def_pad);
	$self->debug($debug || 0);
	$self->[$grid] = [];
	foreach (1..$self->height){
		push @{$self->[$grid]}, $pad x $self->width();
	};

	return $self;

};

sub insert {
	my $self = 	shift;
	my $box = shift;
	my $x = $box->x_coord();
	my $y = $box->y_coord();

	defined $box || croak("Nothing to insert.\n");
	if (($x < 0 || $x + length $box->render->[0] > $self->width)  && $self->width != 0)		{croak("Your object is too wide for the page.\n")};
	if (($y < 0 || $y + @{$box->render()}	 > $self->height) && $self->height != 0)		{croak("Your object is too tall for the page.\n")};
	foreach $entry (@{$box->render()}){
		my ($line, $offset) = @{$entry};
		$self->[$grid]->[$y] = $self->pad() x $self->width() unless $self->[$grid]->[$y];
		substr($self->[$grid]->[$y++], $x + $offset, length $line) = $line;
	};

	return 1;
};

sub repair {
	my $self = shift;


	return 1;
};



package Text::Flowchart::Shape;

use Carp;

$def_width = 15;
$def_height = 0;

$PROP_COUNT = 0;
foreach ($string, $width, $height, $x_coord, $y_coord, $parent,
			$real_width, $real_height, $rendered){
	$_ = $PROP_COUNT++;
};


sub accessor {

	my $self = shift;
	my $prop = shift;

	$self->[$prop] = shift if @_;

	return $self->[$prop];
};

sub string 		{shift->accessor($string, @_)};
sub width 		{shift->accessor($width, @_)};
sub height 		{shift->accessor($height, @_)};
sub x_coord		{shift->accessor($x_coord, @_)};
sub y_coord		{shift->accessor($y_coord, @_)};
sub parent 		{shift->accessor($parent, @_)};
sub real_width 	{shift->accessor($real_width, @_)};
sub real_height {shift->accessor($real_height, @_)};
sub rendered 	{shift->accessor($rendered, @_)};

sub init {
	my $class = shift;
	my $self = [];
	bless $self, $class;

	my %init = @_;

	$self->string($init{"string"} || undef);
	$self->width($init{"width"} > 0 ? $init{"width"} : $def_width);
	$self->height($init{"height"} > 0 ? $init{"height"} : $def_height);
	$self->x_coord($init{"x_coord"} >= 0 ? $init{"x_coord"} : croak("X coordinate must be specified and non-negative\n"));
	$self->y_coord($init{"y_coord"} >= 0 ? $init{"y_coord"} : croak("X coordinate must be specified and non-negative\n"));

	return $self;

};

package  Text::Flowchart::Shape::Box;

use Carp;


@ISA = qw(Text::Flowchart::Shape);

$def_x_pad = 1;
$def_y_pad = 1;

{
	my $PROP_COUNT = $Text::Flowchart::Shape::PROP_COUNT;
	foreach ($x_pad, $y_pad, $format_char, $top_links, $bottom_links, $left_links, $right_links){
		$_ = $PROP_COUNT++;
	};
};

sub x_pad 		{shift->accessor($x_pad, @_)};
sub y_pad 		{shift->accessor($y_pad, @_)};
sub format_char	{shift->accessor($format_char, @_)};
sub top_links	{shift->accessor($top_links, @_)};
sub bottom_links{shift->accessor($bottom_links, @_)};
sub left_links	{shift->accessor($left_links, @_)};
sub right_links	{shift->accessor($right_links, @_)};

sub relate 	{
	my $from = shift;

	my %init = @_;

	my $to = $init{"to"} || croak("No shape to relate to.\n");
	my $from_side = $init{"from_side"} || croak("No shape to relate from.\n");
	my $to_side = $init{"to_side"} || croak("No side to relate to.\n");
	my $from_offset = $init{"from_offset"} || 0;
	my $to_offset = $init{"to_offset"} || 0;
	my $reason = $init{"reason"} || undef;

	if ($from->parent() ne $to->parent){croak("No shape to relate to.\n")};
	if ($from_side !~ /^(top|bottom|right|left)$/){croak("Invalid side.  Side must be 'top', 'bottom', 'left', or 'right'.\n")};
	if ($to_side   !~ /^(top|bottom|right|left)$/){croak("Invalid side.  Side must be 'top', 'bottom', 'left', or 'right'.\n")};
	if ($from_side eq $to_side){croak("Cannot relate the same sides of boxes.  Use different sides.\n")};
	if (length $reason > 1){croak("Reasons must be a single character.\n")};


	my $from_coords =  $from->get_next_coord($from_side, $from_offset);
	my $to_coords   = $to->get_next_coord($to_side, $to_offset);

	my $orientation = undef;

	if 	  ($from_side =~ m/^(lef|righ)t$/ 	&& $to_side =~ m/^(lef|righ)t$/){$orientation = "H"}
	elsif ($from_side =~ m/^(top|bottom)$/ 	&& $to_side =~ m/^(top|bottom)$/){$orientation = "V"}
	elsif ($from_side eq "top" 				&& $to_side =~ m/^(lef|righ)t$/){$orientation = "TC"}
	elsif ($from_side eq "bottom" 			&& $to_side =~ m/^(lef|righ)t$/){$orientation = "BC"}
	elsif ($from_side =~ m/^(lef|righ)t$/ 	&& $to_side eq "bottom"){$orientation = "BC"}
	elsif ($from_side =~ m/^(lef|righ)t$/ 	&& $to_side eq "top"){$orientation = "TC"};
	$from->parent->line(
		"from" 			=> $from_coords,
		"to" 	 		=> $to_coords,
		"orientation" 	=> $orientation,
		"reason" 		=> $reason
	);

	return 1;

};

sub get_next_coord {
	my $self = shift;
	$i =0;
	my $side = shift || return "SIDE";
	my $offset = shift || "0";
	my %map = ("top" => $top_links, "bottom" => $bottom_links,
			"left" => $left_links, "right" => $right_links);

	my $side_num = $map{$side};
	return "COUNT $side" if scalar $self->[$side_num] <= 0;


	if ($side eq "top"){
		return [$self->x_coord() + $self->_get_offset($self->top_links(), $offset), $self->y_coord()];

	}
	elsif ($side eq "bottom"){
		return [$self->x_coord() + $self->_get_offset($self->bottom_links(), $offset), $self->y_coord() + $self->real_height() - 1];
	}
	elsif ($side eq "left"){
		return [$self->x_coord(), $self->y_coord() + $self->_get_offset($self->left_links(), $offset)];
	}
	elsif ($side eq "right"){
		return [$self->x_coord() + $self->real_width() - 1, $self->y_coord() + $self->_get_offset($self->right_links(), $offset)];
	}
	else {return "ORIENT"};

};

sub _get_offset {
	my $self = shift;
	my $side = shift || croak("No side supplied to _get_offset.\n");
	my $offset = shift;
	my $real_offset = 0;

	if ($offset == 0){$real_offset = shift @{$side}; $real_offset++}
	elsif ($offset == -1){$real_offset = pop @{$side};}
	else {
		my ($i, $found) = (0,0);
		foreach $i (0.. $#{$side}){
			if ($side->[$i] == $offset){
				$found++;
				$real_offset = $side->[$i] + 1;
				splice(@{$side}, $i, 1);
				last;
			};
		};
		unless ($found){$real_offset = shift @{$side}; $real_offset++};

	};

	return $real_offset;
};

sub new {
	my $class = shift;
	my $self = $class->init(@_);

	my %init = @_;

	$self->x_pad(defined $init{"x_pad"} && $init{"x_pad"} >= 0 ? $init{"x_pad"} : $def_x_pad);
	$self->y_pad(defined $init{"y_pad"} && $init{"y_pad"} >= 0 ? $init{"y_pad"} : $def_y_pad);
	$self->format_char(defined $init{"format_char"} ? $init{"format_char"} : undef);
	$self->parent($init{"parent"} || undef);

	croak("Invalid width.\n") 	if $self->width()  - 2 - $self->x_pad() * 2 < 1 && $self->width()  > 0;
	croak("Invalid height.\n")	if $self->height() - 2 - $self->y_pad() * 2 < 1 && $self->height() > 0;

	$self->render();

	my @top_links = ();
	my @bottom_links = ();
	my @left_links = ();
	my @right_links = ();

	foreach my $i (0..$self->real_width() - 2){push @top_links, $i};
	foreach my $i (0..$self->real_width() - 2){push @bottom_links, $i};
	foreach my $i (0..$self->real_height() - 2){push @left_links, $i};
	foreach my $i (0..$self->real_height() - 2){push @right_links, $i};

	$self->top_links(\@top_links);
	$self->bottom_links(\@bottom_links);
	$self->left_links(\@left_links);
	$self->right_links(\@right_links);

	return $self;

};

sub render {
	my $self = shift;

	return $self->rendered() if $self->rendered();

	my $string = $self->string();
	my $width = $self->width();
	my $height = $self->height();
	my $x_pad = $self->x_pad();
	my $y_pad = $self->y_pad();
	my $page_width =  $self->parent->size->[0];
	my $page_height = $self->parent->size->[1];

	my $box_width  = ($width  < $page_width  || $page_width == 0 ? $width  : $page_width );
	my $box_height = ($height < $page_height || $page_height == 0 ? $height : $page_height);

	my $wrap_width  = $box_width  - 2 - $x_pad * 2;
	my $wrap_height = $box_height - 2 - $y_pad * 2;



	$string =~ s/(.{1,$wrap_width}(?:\b|$)|\S{$wrap_width})\s*/$1\n$2/g unless $box_width == 0;
	my @string = split(/\n/, $string);
	foreach (@string){
		if (length $_ + 2 * $x_pad < $wrap_width) {
			$_ .= " " x ($wrap_width - (length $_));
		};
		s/^/"|" . " " x $x_pad/gme;
		s/$/(" " x $x_pad) . "|"/gme;
		$_ = [$_, 0];
	};
	@string = splice(@string, 0, $wrap_height) unless $box_height == 0;

	while ($y_pad-- > 0) {
		push 	@string, ["|" . " " x ($box_width ? $box_width - 2 : (length $string) + $x_pad * 2) . "|", 0];
		unshift @string, ["|" . " " x ($box_width ? $box_width - 2 : (length $string) + $x_pad * 2) . "|", 0];
	};

	my $remaining_height = $box_height - @string - 2;	#don't forget to drop 2 for the top and bottom lines!

	while ($remaining_height-- > 0) {
		push 	@string, ["|" . " " x ($box_width ? $box_width - 2 : (length $string) + $x_pad * 2) . "|", 0];
	};

	push 	@string, ["+" . "-" x ($box_width ? $box_width - 2 : (length $string) + $x_pad * 2) . "+", 0];
	unshift @string, ["+" . "-" x ($box_width ? $box_width - 2 : (length $string) + $x_pad * 2) . "+", 0];

	$self->real_width($box_width ? $box_width : (length $string) + $x_pad * 2 + 2);
	$self->real_height(scalar @string);

	return $self->rendered(\@string);


};



package  Text::Flowchart::Shape::Line;

use Carp;


@ISA = qw(Text::Flowchart::Shape);

{
	my $PROP_COUNT = $Text::Flowchart::Shape::PROP_COUNT;
	foreach ($from, $to, $reason, $orientation, $xfrom, $xto, $yfrom, $yto, $xdistance, $ydistance,
				$xleft, $xright, $ytop, $ybottom, $xmiddle, $ymiddle, $width, $height){
		$_ = $PROP_COUNT++;
	};

};

sub from 		{shift->accessor($from, @_)};
sub to 			{shift->accessor($to, @_)};
sub reason 		{shift->accessor($reason, @_)};
sub orientation {shift->accessor($orientation, @_)};
sub xfrom 		{shift->accessor($xfrom, @_)};
sub xto 		{shift->accessor($xto, @_)};
sub yfrom 		{shift->accessor($yfrom, @_)};
sub yto 		{shift->accessor($yto, @_)};
sub xdistance 	{shift->accessor($xdistance, @_)};
sub ydistance 	{shift->accessor($ydistance, @_)};
sub xleft 		{shift->accessor($xleft, @_)};
sub xright 		{shift->accessor($xright, @_)};
sub ytop 		{shift->accessor($ytop, @_)};
sub ybottom 	{shift->accessor($ybottom, @_)};
sub xmiddle 	{shift->accessor($xmiddle, @_)};
sub ymiddle 	{shift->accessor($ymiddle, @_)};
sub width 		{shift->accessor($width, @_)};
sub height 		{shift->accessor($height, @_)};

sub new {

	my $class = shift;
	my $self = $class->init(@_);

	if ($class eq "Text::Flowchart::Shape::Line"){
		if ($class eq "Text::Flowchart::Shape::Line::Horizontal"){
			return Text::Flowcahrt::Shape::Line::Horizontal->new(@_);
		}
		elsif ($class eq "Text::Flowchart::Shape::Line::Vertical"){
			return Text::Flowcahrt::Shape::Line::Vertical->new(@_);
		}
		elsif ($class eq "Text::Flowchart::Shape::Line::Corner"){
			return Text::Flowcahrt::Shape::Line::Corner->new(@_);
		};
	}
	else {

		my %init = @_;


		if (ref $init{"from"} eq "ARRAY" && @{$init{"from"}} == 2){
			$self->from($init{"from"});
		}
		else {
			croak("Invalid from coordinates, should be [x,y]");
		};

		if (ref $init{"to"} eq "ARRAY" && @{$init{"from"}} == 2){
			$self->to($init{"to"});
		}
		else {
			croak("Invalid to coordinates, should be [x,y]");
		};

		$self->reason($init{"reason"} || undef);
		$self->orientation($init{"orientation"} || croak("I require an orientation.  'HR', 'HL', 'VT', 'VB' please.\n"));
		$self->parent($init{"parent"} || undef);

		$self->xfrom($self->from->[0]);
		$self->yfrom($self->from->[1]);

		$self->xto($self->to->[0]);
		$self->yto($self->to->[1]);

		$self->width(abs ($self->xfrom() - $self->xto()) + 1);
		$self->height(abs ($self->yfrom() - $self->yto()) + 1);

		unless ($self->width() == 1 || $self->width() > 2){croak("Invalid width.  Make your shape wider.\n")};

		$self->xdistance($self->width()  - 2);
		$self->ydistance($self->height() - 2);

		$self->xleft(int ($self->xdistance() / 2));
		$self->ytop(int ($self->ydistance() / 2));

		$self->xright($self->xdistance() - $self->xleft() - 1);
		$self->ybottom($self->ydistance() - $self->ytop() - 1);


		$self->xmiddle(1 + ($self->offset() ? $self->xleft() : $self->xright()));
		$self->ymiddle(1 + ($self->offset() ? $self->ytop() : $self->ybottom()));

		$self->render();

		return $self;

	};

};

sub offset {
	my $self = shift;

	return (($self->xfrom() > $self->xto()) xor ($self->yto() > $self->yfrom())) ||
			(($self->xfrom() < $self->xto()) xor ($self->yto() < $self->yfrom()));
};

sub end_char {
	my $self = shift;

	my $direction = shift;
	if ($direction =~ /V/){
		if ($self->reason()){
			if (($self->yfrom() < $self->yto() && $direction eq "VT")
				|| ($self->yfrom() > $self->yto() && $direction eq "VB")){
					return $self->reason()};
		};

		if ($self->yfrom() < $self->yto()){return "V"}
		else {return "^"};
	}
	elsif ($direction =~ /H/){
		if ($self->reason()){
			if (($self->xfrom() < $self->xto() && $direction eq "HL")
				|| ($self->xfrom() > $self->xto() && $direction eq "HR")){
					return $self->reason()};
		};

		if ($self->xfrom() < $self->xto()){return ">"}
		else {return "<"};
	}
	else {croak("Invalid direction for end_char.  Must be 'HR', 'HL', 'VT', or 'VB'.\n")};
};

sub end {
	my $self = shift;

	return "+" unless $self->parent->directed();

	my $arg = shift;
	my $direction = shift;

	if ($self->xdistance >= 0 && $self->ydistance >= 0){

		if 		($arg == 1)		{return $self->offset() ? "+" : $self->end_char($direction)}
		elsif   ($arg == 2) 	{return $self->offset() ? $self->end_char($direction) : "+"}
		else 					{return $self->end_char($direction)};
	}
	else {return $self->end_char($direction)};

};

package  Text::Flowchart::Shape::Line::Horizontal;

use Carp;


@ISA = qw(Text::Flowchart::Shape::Line);

sub render {
	my $self = shift;

	return $self->rendered() if $self->rendered();


	my @string = ();

	if ($self->xdistance() >= 0 && $self->ydistance() >= 0){
		push @string, [$self->end(2, "HL") . ("-" x $self->xleft()) . $self->end(1, "HR"), $self->offset() ? 0 : $self->xmiddle()];
		my $yd2 = $self->ydistance();
		while ($yd2-- > 0){
			push @string, ["|", $self->xmiddle()];
		};

		push @string, [$self->end(1, "HL") . ("-" x $self->xright()) . $self->end(2, "HR"), $self->offset()  ? $self->xmiddle() : 0];

	}
	elsif ($self->xdistance() > 0) {
		push @string, [$self->end(0, "HL") . ("-" x $self->xdistance()) . $self->end(0, "HR"), 0];
	}
	else {croak("You're trying to draw a vertical line with a horizontal object.  Use a Vertical line.\n")};

	$self->x_coord($self->xfrom() > $self->xto() ? $self->xto() : $self->xfrom());
	$self->y_coord($self->yfrom() > $self->yto() ? $self->yto() : $self->yfrom());
	return $self->rendered(\@string);
};

package  Text::Flowchart::Shape::Line::Vertical;

use Carp;


@ISA = qw(Text::Flowchart::Shape::Line);

sub render {
	my $self = shift;

	return $self->rendered() if $self->rendered();

	my @string = ();

	if ($self->xdistance() >= 0 && $self->ydistance() >= 0){
		push @string, [$self->end(0, "VT"), $self->offset() ? 0 : $self->xdistance() + 1];
		my $yd2 = $self->ytop();
		while ($yd2-- > 0){
			push @string, ["|", $self->offset() ? 0 : $self->xdistance() + 1];
		};

		push @string, ["+" . ("-" x $self->xdistance()) . "+", 0];

		$yd2 = $self->ybottom();
		while ($yd2-- > 0){
			push @string, ["|", $self->offset() ? $self->xdistance() + 1: 0];
		};

		push @string, [$self->end(0, "VB"), $self->offset() ? $self->xdistance() + 1 : 0];

	}
	elsif ($self->ydistance() > 0 ) {
		push @string, [$self->end(0, "VT"), 0];
		my $yd2 = $self->ydistance();
		while ($yd2-- > 0){
			push @string, ["|", 0];
		};
		push @string, [$self->end(0, "VB"), 0];
	}
	else {croak("You're trying to draw a horizontal line with a hertical object.  Use a Vertical line.\n")};

	$self->x_coord($self->xfrom() > $self->xto() ? $self->xto() : $self->xfrom());
	$self->y_coord($self->yfrom() > $self->yto() ? $self->yto() : $self->yfrom());
	return $self->rendered(\@string);
};

package  Text::Flowchart::Shape::Line::Corner;

use Carp;


@ISA = qw(Text::Flowchart::Shape::Line);

sub render {
	my $self = shift;

	return $self->rendered() if $self->rendered();


	my @string = ();

	if ($self->orientation() eq "BC"){
			my $yd2 = $self->ydistance();
			while ($yd2-- > 0){
				push @string, ["|", $self->offset() ? 0 : $self->xdistance() + 1];
			};
		push @string, [$self->end(1, "HL") . ("-" x $self->xdistance()) . $self->end(2, "HR"), 0];
		unshift @string, [$self->end(0, "VT"), $self->offset() ? 0 : $self->xdistance() + 1];

	}
	elsif ($self->orientation() eq "TC") {
		my $yd2 = $self->ydistance();
		while ($yd2-- > 0){
			push @string, ["|", $self->offset() ? $self->xdistance() + 1: 0];
		};
		unshift @string, [$self->end(2, "HL") . ("-" x $self->xdistance()) . $self->end(1, "HR"), 0];
		push @string, [$self->end(0, "VB"), $self->offset() ? $self->xdistance() + 1: 0];
	}
	else {croak("Invalid orientation for Line::Corner::render.  Must be 'TC' or 'BC'.\n")}


	$self->x_coord($self->xfrom() > $self->xto() ? $self->xto() : $self->xfrom());
	$self->y_coord($self->yfrom() > $self->yto() ? $self->yto() : $self->yfrom());
	return $self->rendered(\@string);
};

1;

__END__