view release on metacpan or  search on metacpan

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

package Acme::Letter;

use 5.010001;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Acme::Letter ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
	
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
	
);

our $VERSION = '0.01';


# TODO:Preloaded methods go here.
sub new {
	my $package = shift;

	my %self = ();
	#inital each letter
	my $array_A = [['*','*','*','*','_','*', '*', '*', '*'],
					['*','*','*','/','*','\\','*','*','*'],
					['*','*','/','*','_','*','\\','*','*'],
					['*','/','*','_','_','_','*','\\','*'],
					['/','_','/','*','*','*','\\','_','\\']];
	$self{"array_A"} = $array_A;	
	my $array_B = [['*','_','_','_','_','_','*'],
				   ['|','*','*','_','*','*','\\'],
				   ['|','*','|','_',')','_','/'],
				   ['|','*','|','_',')','*','\\'],
				   ['|','_','_','_','_','_','/']];
	$self{"array_B"} = $array_B;
	my $array_C = [['*','*','_','_','_','_','_','*'],
				   ['*','/','*','*','_','_','_','|'],
				   ['|','*','*','/','*','*','*','*'],
				   ['|','*','*','\\','_','_','_','*'],
				   ['*','\\','_','_','_','_','_','|']];
	$self{"array_C"} = $array_C;
	my $array_D = [['*','_','_','_','_','_','*','*'],
				   ['|','*','*','_','*','*','\\','*'],
				   ['|','*','|','*','\\','*','*','|'],
				   ['|','*','|','_','/','*','*','|'],
				   ['|','_','_','_','_','_','/','*']];
	$self{"array_D"} = $array_D;

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

	my $array_F = [['*','_','_','_','_','_','*'],
					['|','*','*','_','_','_','|'],
					['|','*','|','_','*','*','*'],
					['|','*','*','_','|','*','*'],