Permalink
Browse files

* 0.02; no functional changes, just POD update and trigger PAUSE rein…

…dex.
  • Loading branch information...
1 parent d815fa2 commit 0f2645c30f2d3a55a4a8ee4e052527b743e9d947 @audreyt committed Jul 5, 2011
Showing with 39 additions and 1 deletion.
  1. +3 −0 README
  2. +3 −0 README.mkdn
  3. +4 −1 lib/use.pm
  4. +27 −0 t/0-signature.t
  5. +2 −0 t/1-basic.t
View
3 README
@@ -2,6 +2,9 @@ NAME
use - Import several modules with a single use statement
SYNOPSIS
+ # Use several modules in command line:
+ % perl -Muse=CGI,DBI,PPI -e '...'
+
# Import several modules at once
use use qw[ strict warnings methods invoker ];
View
3 README.mkdn
@@ -4,6 +4,9 @@ use - Import several modules with a single use statement
# SYNOPSIS
+ # Use several modules in command line:
+ % perl -Muse=CGI,DBI,PPI -e '...'
+
# Import several modules at once
use use qw[ strict warnings methods invoker ];
View
5 lib/use.pm
@@ -2,7 +2,7 @@ package use;
use strict;
use warnings;
use 5.008;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
use base 'rig::engine::base';
use version 0.86 'is_lax';
@@ -59,6 +59,9 @@ use - Import several modules with a single use statement
=head1 SYNOPSIS
+ # Use several modules in command line:
+ % perl -Muse=CGI,DBI,PPI -e '...'
+
# Import several modules at once
use use qw[ strict warnings methods invoker ];
View
27 t/0-signature.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+print "1..1\n";
+
+if (!$ENV{TEST_SIGNATURE}) {
+ print "ok 1 # skip set the environment variable TEST_SIGNATURE to enable this test\n";
+}
+elsif (!-s 'SIGNATURE') {
+ print "ok 1 # skip No signature file found\n";
+}
+elsif (!eval { require Module::Signature; 1 }) {
+ print "ok 1 # skip ",
+ "Next time around, consider install Module::Signature, ",
+ "so you can verify the integrity of this distribution.\n";
+}
+elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
+ print "ok 1 # skip ",
+ "Cannot connect to the keyserver\n";
+}
+else {
+ (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
+ or print "not ";
+ print "ok 1 # Valid signature\n";
+}
+
+__END__
View
2 t/1-basic.t
@@ -0,0 +1,2 @@
+use use 'Test::Simple' => [tests => 1];
+ok( Test::Simple->VERSION, 'Test Simple loaded' );

0 comments on commit 0f2645c

Please sign in to comment.