Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

dzilify

  • Loading branch information...
commit 3fee2228190208d35d4a8037006a4b40e250f79d 1 parent 3cb1563
@rjbs authored
View
2  .gitignore
@@ -0,0 +1,2 @@
+.build
+Games-Dice-*
View
4 Changes
@@ -1,7 +1,7 @@
-Revision history for Perl extension Games::Dice.
+Revision history for Perl extension Games-Dice
0.02 2002-02-20
- * Added licence
+ - Added licence
0.01 Mon Apr 19 10:15:58 1999
- original version; created by h2xs 1.18
View
5 MANIFEST
@@ -1,5 +0,0 @@
-Changes
-Dice.pm
-MANIFEST
-Makefile.PL
-t/1.t
View
7 Makefile.PL
@@ -1,7 +0,0 @@
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'Games::Dice',
- 'VERSION_FROM' => 'Dice.pm', # finds $VERSION
-);
View
8 dist.ini
@@ -0,0 +1,8 @@
+name = Games-Dice
+author = Philip Newton <pne@cpan.org>
+author = Ricardo Signes <rjbs@cpan.org>
+license = MIT
+copyright_holder = Philip Newtno
+copyright_year = 1999
+
+[@RJBS]
View
66 Dice.pm → lib/Games/Dice.pm 100755 → 100644
@@ -1,19 +1,12 @@
-package Games::Dice;
-
use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+use warnings;
+package Games::Dice;
+# ABSTRACT: Perl module to simulate die rolls
require Exporter;
-@ISA = qw(Exporter);
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-@EXPORT_OK = qw(
- roll roll_array
-);
-$VERSION = '0.02';
-
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw( roll roll_array);
# Preloaded methods go here.
@@ -98,14 +91,11 @@ sub roll_array ($) {
return @throws;
}
-
-
1;
__END__
=head1 NAME
-Games::Dice - Perl module to simulate die rolls
=head1 SYNOPSIS
@@ -155,50 +145,4 @@ anyone wishes to contribute a function along the lines of roll_feng_shui
to become part of Games::Dice (or to support any other style of die
rolling), you can contribute it to the author's address, listed below.
-=head1 AUTHOR
-
-Philip Newton, <pne@cpan.org>
-
-=head1 LICENCE
-
-Copyright (C) 1999, 2002 Philip Newton
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions
-are met:
-
-=over 4
-
-=item *
-
-Redistributions of source code must retain the above copyright notice,
-this list of conditions and the following disclaimer.
-
-=item *
-
-Redistributions in binary form must reproduce the above copyright notice,
-this list of conditions and the following disclaimer in the
-documentation and/or other materials provided with the distribution.
-
-=back
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
-CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
-INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGE.
-
-=head1 SEE ALSO
-
-perl(1).
-
=cut
View
22 t/1.t
@@ -1,20 +1,8 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
+use strict;
+use warnings;
-######################### We start with some black magic to print on failure.
+use Test::More 0.96;
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Games::Dice;
-$loaded = 1;
-print "ok 1\n";
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+require_ok 'Games::Dice';
+done_testing;
Please sign in to comment.
Something went wrong with that request. Please try again.