#!perl -w
# Morse::Code
#
# Provides for translating between text and morsecode.
# Author: crazyinsomniac at perlmonks.org(10277) aka crazyinsomniac @ yahoo.com

# $Id: Morse::Code.pm,v 0.1 2001/04/14 07:28:35 crazyinsomniac Exp $

# the above $Id statement i emulated from zzamboni at perlmonks.org

package Morse::Code;

require 5;
# modified to work without the keyword our

use strict;
use warnings;

BEGIN # why in a begin block, I saw it in perlmod
{
    require Exporter;

    my ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
    # set the version for version checking
    $VERSION     = 0.01;
    # if using RCS/CVS, this may be preferred
    $VERSION = do { my @r = (q$Revision: 0.01 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
    # must be all one line, for MakeMaker

    @ISA = qw(Exporter);
    # need to inherit from Exporter


    # This allows declaration	use Morse::Code ':all';
    # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
    # will save memory.
    %EXPORT_TAGS = ('all'=>[ qw(&debug
                                &morsify
                                &toMorse
                                &toText
                                $DEFAULTS
                                &resetDefaults) ]);

    @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
}
# our @EXPORT_OK;
# i don't remember why i had to include this after BEGIN, so i'm not anymore