# Genpw.pm - Perl module template (based on Module::Starter)
#
# Copyright 2015 David Meyer <papa@sdf.org> +JMJ
# 
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
# 
#     http://www.apache.org/licenses/LICENSE-2.0
# 
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

package Genpw;

use strict;
use warnings;
require Exporter;
@ISA = qw(Exporter);

=head1 NAME

Template - Perl module template

=head1 VERSION

Version 0.0

=cut

our $VERSION = '0.0';

=head1 SYNOPSIS

Module summary ....

    use Template;

    my $foo = $Template->new ();
    ...

=head1 EXPORT

(List of functions exported)

=cut

@EXPORT_OK = qw ();

my %szone = ( I => '12345',
	      II => 'qwert',
	      III => 'asdfgzxcvb',
	      IV => '67890',
	      V => 'yuiop',
	      VI    => 'hjklnm',
	      VII   => '-^\\',
	      VIII  => '@[',
	      IX    => ';:],./',
	      X     => '!"#$%',
	      XI    => 'QWERT',
	      XII   => 'ASDFGZXCVB',
	      XIII  => '&\'()',
	      XIV   => 'YUIOP',
	      XV    => 'HJKLNM',
	      XVI   => '=~|',
	      XVII  => '`{',
	      XVIII => '+*}<>?_'
    );



=head1 SUBROUTINES

=head2 function1

=cut

sub function1
{

}

=head1 AUTHOR

David Meyer <papa AT sdf.org> +JMJ

=head1 COPYRIGHT AND LICENSE

Copyright 20nn David Meyer

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.

=cut

1; # End of Template

# Emacs control #####################################################
#Local variables:
#mode: perl
#End: