view release on metacpan or  search on metacpan

lib/Acme/Letter.pm  view on Meta::CPAN

	$self{"array_3"} = $array_3;

	my $array_4 = [['*','*','*','*','*','_','*','*','*','*','*','*','*'],
					['*','*','*','*','/','*','/','*','*','*','*','*','*'],
					['*','*','*','/','*','_','|','*','|','*','*','*','*'],
					['*','*','/','_','*','_','*','*','*','*','*','*','*'],
					['*','*','*','*','*','*','|','_','|','*','*','*','*']];
	$self{"array_4"} = $array_4;

	
	my $array_5 = [['*','*','*','_','_','_','_','*','*','*'],
					['*','*','|','*','_','_','_','|','*','*'],
					['*','*','|','_','_','*','*','*','*','*'],
					['*','*','*','*','_','\\','*','\\','*','*'],
					['*','*','/','_','_','_','*','/','*','*']];
	$self{"array_5"} = $array_5;

	my $array_6 = [['*','*','*','*','*'],
					['*','*','*','*','*'],
					['*','*','6','*','*'],
					['*','*','*','*','*'],
					['*','*','*','*','*']];
	$self{"array_6"} = $array_6;

	my $array_7 = [['*','*','*','_','_','_','_','_','_','*','*','*'],
					['*','*','|','_','_','_','*','*','*','|','*','*'],
					['*','*','*','*','*','*','/','*','/','*','*','*'],
					['*','*','*','*','*','/','*','/','*','*','*','*'],
					['*','*','*','*','/','_','/','*','*','*','*','*']];
	$self{"array_7"} = $array_7;

	
	my $array_8 = [['*','*','*','_','_','_','_','_','*','*','*'],
					['*','*','/','*','*','_','*','*','\\','*','*'],
					['*','*','\\','_','(','_',')','_','/','*','*'],
					['*','*','/','*','(','_',')','*','\\','*','*'],
					['*','*','\\','_','_','_','_','_','/','*','*']];
	$self{"array_8"} = $array_8;

	my $array_9 = [['*','*','*','*','_','_','_','_','*','*','*','*'],
					['*','*','*','/','*','*','_','*','\\','*','*','*'],
					['*','*','|','*','*','(','_',')','*','|','*','*'],
					['*','*','*','\\','*','_','_','/','*','|','*','*'],
					['*','*','*','*','_','_','/','_','/','*','*','*']];
	$self{"array_9"} = $array_9;

	#draw a space
	my $array_XYZ = [['*','*','*'],['*','*','*'],['*','*','*'],['*','*','*'],['*','*','*']];
	$self{"array_XYZ"} = $array_XYZ;
	
	#draw a colon
	my $array_colon =[['*','*','*','*','*','*','*'],['*','*','*','_','*','*','*'],['*','*','(','_',')','*','*'],['*','*','*','_','*','*','*'],['*','*','(','_',')','*','*']];
	$self{"array_colon"} = $array_colon;
	
	#draw a dot
	my $array_dot =[['*','*','*','*','*','*'],['*','*','*','*','*','*'],['*','*','*','*','*','*'],['*','*','_','*','*','*'],['*','(','_',')','*','*']];
	$self{"array_dot"} = $array_dot;

	my $lines = [];
	$self{"lines"} = $lines;
	return bless(\%self,$package);
}

sub printString()
{
	my $self = shift;
	my $string = shift;

	$self->_createString($string);

	my $lines_ref = $self->{"lines"};
	
	for(my $i = 0; $i <= 4; $i++)
	{
		my $temps=$$lines_ref[$i];
		foreach my $temp (@$temps)
		{
			if(not defined $temp){
				print " ";
			}
			elsif($temp eq "*")
			{
				print " ";
			}
			else{
				print $temp;
			}
		}
		print "\n";
	}
}

sub _createString()
{
	my $self = shift;
	my $words = shift;

	$self->{"lines"} = $self->_createWord($words);
}

#output a word
sub printWord()
{
	my $self = shift;
	my $word = shift;

	$self->_createWord($word);
	my $lines_ref = $self->{"lines"};
	
	for(my $i = 0; $i <= 4; $i++)
	{
		my $temps=$$lines_ref[$i];
		foreach my $temp (@$temps)
		{
			if(not defined $temp){
				print " ";
			}
			elsif($temp eq "*")
			{
				print " ";
			}