diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-11-16 23:59:45 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-11-16 23:59:45 -0600 |
| commit | b26a073d490419d0619fd4e4381fc4a733a5dcbc (patch) | |
| tree | dad5d00703ed2a1d5497eae998ba21e6fb258405 | |
| parent | 0227771c71901c499fef7166f8d6c25df818991c (diff) | |
| download | games-word-b26a073d490419d0619fd4e4381fc4a733a5dcbc.tar.gz games-word-b26a073d490419d0619fd4e4381fc4a733a5dcbc.zip | |
a few minor cleanups
| -rw-r--r-- | lib/Games/Word.pm | 19 | ||||
| -rw-r--r-- | lib/Games/Word/Wordlist.pm | 4 |
2 files changed, 9 insertions, 14 deletions
diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm index 8f815fc..479d06d 100644 --- a/lib/Games/Word.pm +++ b/lib/Games/Word.pm @@ -1,15 +1,13 @@ -#!perl package Games::Word; -require Exporter; -@ISA = qw/Exporter/; -@EXPORT_OK = qw/random_permutation is_permutation all_permutations - shared_letters shared_letters_by_position - random_string_from - is_substring all_substrings - is_subpermutation all_subpermutations/; - use strict; use warnings; +use base 'Exporter'; +our @EXPORT_OK = qw/random_permutation is_permutation all_permutations + shared_letters shared_letters_by_position + random_string_from + is_substring all_substrings + is_subpermutation all_subpermutations/; + use Math::Combinatorics qw/factorial/; use Test::Deep::NoTest; @@ -300,7 +298,7 @@ L<http://search.cpan.org/dist/Games-Word> =head1 COPYRIGHT AND LICENSE -Copyright 2008 Jesse Luehrs. +Copyright 2008-2009 Jesse Luehrs. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -308,4 +306,3 @@ under the same terms as Perl itself. =cut 1; - diff --git a/lib/Games/Word/Wordlist.pm b/lib/Games/Word/Wordlist.pm index 3a33044..9245442 100644 --- a/lib/Games/Word/Wordlist.pm +++ b/lib/Games/Word/Wordlist.pm @@ -1,4 +1,3 @@ -#!perl package Games::Word::Wordlist; use strict; use warnings; @@ -376,7 +375,7 @@ L<http://search.cpan.org/dist/Games-Word> =head1 COPYRIGHT AND LICENSE -Copyright 2008 Jesse Luehrs. +Copyright 2008-2009 Jesse Luehrs. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -384,4 +383,3 @@ under the same terms as Perl itself. =cut 1; - |