#!/usr/bin/perl -w package Cellular::Automata::1D; #===================================================================== +======== # # $Id: 1D.pm,v 0.01 2001/07/05 20:37:34 mneylon Exp $ # $Revision: 0.01 $ # $Author: mneylon $ # $Date: 2001/07/05 20:37:34 $ # $Log: 1D.pm,v $ # Revision 0.01 2001/07/05 20:37:34 mneylon # Initial Release # # #===================================================================== +======== use strict; use Exporter; use Carp; use Data::Dumper; BEGIN { use Exporter (); use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS); $VERSION = sprintf( "%d.%02d", q($Revision: 0.01 $) =~ /\s(\d+ +)\.(\d+)/ ); @ISA = qw(Exporter); @EXPORT = qw(); %EXPORT_TAGS = ( ); }