From b26a073d490419d0619fd4e4381fc4a733a5dcbc Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 16 Nov 2009 23:59:45 -0600 Subject: a few minor cleanups --- lib/Games/Word.pm | 19 ++++++++----------- 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 =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 =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; - -- cgit v1.2.3