r54015 - in /branches/upstream/liborlite-perl/current: ./ inc/Module/ inc/Module/Install/ lib/ t/ t/lib/ xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Mar 10 01:12:33 UTC 2010
Author: jawnsy-guest
Date: Wed Mar 10 01:12:24 2010
New Revision: 54015
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54015
Log:
[svn-upgrade] Integrating new upstream version, liborlite-perl (1.41)
Added:
branches/upstream/liborlite-perl/current/xt/
branches/upstream/liborlite-perl/current/xt/meta.t
branches/upstream/liborlite-perl/current/xt/pmv.t
branches/upstream/liborlite-perl/current/xt/pod.t
Removed:
branches/upstream/liborlite-perl/current/t/97_meta.t
branches/upstream/liborlite-perl/current/t/98_pod.t
branches/upstream/liborlite-perl/current/t/99_pmv.t
Modified:
branches/upstream/liborlite-perl/current/Changes
branches/upstream/liborlite-perl/current/MANIFEST
branches/upstream/liborlite-perl/current/META.yml
branches/upstream/liborlite-perl/current/Makefile.PL
branches/upstream/liborlite-perl/current/README
branches/upstream/liborlite-perl/current/inc/Module/Install.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/liborlite-perl/current/lib/ORLite.pm
branches/upstream/liborlite-perl/current/t/02_basics.t
branches/upstream/liborlite-perl/current/t/08_prune.pl
branches/upstream/liborlite-perl/current/t/lib/Test.pm
Modified: branches/upstream/liborlite-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/Changes?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/Changes (original)
+++ branches/upstream/liborlite-perl/current/Changes Wed Mar 10 01:12:24 2010
@@ -1,4 +1,12 @@
Changes for Perl extension ORLite
+
+1.41 Tue 9 Mar 2010
+ - Added the root ->connected method to allow for some
+ light introspection in unusual situations (such as
+ knowing if it's safe to spawn an off-the-books
+ ->connect'tion, or to detect if we are in a transaction).
+ - Added documentation for the ->connect method, with suitably
+ strident warnings about the dangers of deadlocking.
1.40 Mon 1 Fed 2010
- Fixed backwards test skipping logic
Modified: branches/upstream/liborlite-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/MANIFEST?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/MANIFEST (original)
+++ branches/upstream/liborlite-perl/current/MANIFEST Wed Mar 10 01:12:24 2010
@@ -36,7 +36,7 @@
t/14_array_fk.t
t/15_array_xs.t
t/16_array_create.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
t/lib/Test.pm
+xt/meta.t
+xt/pmv.t
+xt/pod.t
Modified: branches/upstream/liborlite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/META.yml?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/META.yml (original)
+++ branches/upstream/liborlite-perl/current/META.yml Wed Mar 10 01:12:24 2010
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.92'
+generated_by: 'Module::Install version 0.94'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,6 +20,7 @@
directory:
- inc
- t
+ - xt
requires:
DBD::SQLite: 1.27
DBI: 1.607
@@ -34,4 +35,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/ORLite
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/ORLite
-version: 1.40
+version: 1.41
Modified: branches/upstream/liborlite-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/Makefile.PL?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/Makefile.PL (original)
+++ branches/upstream/liborlite-perl/current/Makefile.PL Wed Mar 10 01:12:24 2010
@@ -1,4 +1,4 @@
-use inc::Module::Install::DSL 0.92;
+use inc::Module::Install::DSL 0.94;
all_from lib/ORLite.pm
requires_from lib/ORLite.pm
Modified: branches/upstream/liborlite-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/README?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/README (original)
+++ branches/upstream/liborlite-perl/current/README Wed Mar 10 01:12:24 2010
@@ -301,6 +301,29 @@
The "dbh" method returns a DBI::db object, or throws an exception on
error.
+ connect
+ my $dbh = Foo::Bar->connect;
+
+ The "connect" method is provided for the (extremely rare) situation in
+ which you need a raw connection to the database, evading the normal
+ tracking and management provided of the ORM.
+
+ The use of raw connections in this manner is strongly discouraged, as
+ you can create fatal deadlocks in SQLite if either the core ORM or the
+ raw connection uses a transaction at any time.
+
+ To summarise, do not use this method unless you REALLY know what you are
+ doing.
+
+ YOU HAVE BEEN WARNED!
+
+ connected
+ my $active = Foo::Bar->connected;
+
+ The "connected" method provides introspection of the connection status
+ of the library. It returns true if there is any connection or
+ transaction open to the database, or false otherwise.
+
begin
Foo::Bar->begin;
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install.pm Wed Mar 10 01:12:24 2010
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.92';
+ $VERSION = '0.94';
# Storage for the pseudo-singleton
$MAIN = undef;
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm Wed Mar 10 01:12:24 2010
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
}
# Suspend handler for "redefined" warnings
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm Wed Mar 10 01:12:24 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm Wed Mar 10 01:12:24 2010
@@ -4,7 +4,7 @@
use strict;
use vars qw{$VERSION $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
$ISCORE = 1;
*inc::Module::Install::DSL::VERSION = *VERSION;
@inc::Module::Install::DSL::ISA = __PACKAGE__;
@@ -39,9 +39,11 @@
}
# Convert the basic syntax to code
- my $code = "package main;\n\n"
+ my $code = "INIT {\n"
+ . "package main;\n\n"
. dsl2code($dsl)
- . "\n\nWriteAll();\n";
+ . "\n\nWriteAll();\n"
+ . "}\n";
# Execute the script
eval $code;
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm Wed Mar 10 01:12:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm Wed Mar 10 01:12:24 2010
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -118,6 +118,9 @@
%test_dir = ();
require File::Find;
File::Find::find( \&_wanted_t, $dir );
+ if ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+ File::Find::find( \&_wanted_t, 'xt' );
+ }
$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}
@@ -157,15 +160,23 @@
$args->{NAME} = $self->module_name || $self->name;
$args->{VERSION} = $self->version;
$args->{NAME} =~ s/-/::/g;
+ $DB::single = 1;
if ( $self->tests ) {
- $args->{test} = { TESTS => $self->tests };
+ $args->{test} = {
+ TESTS => $self->tests,
+ };
+ } elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+ $args->{test} = {
+ TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
+ };
}
if ( $] >= 5.005 ) {
$args->{ABSTRACT} = $self->abstract;
$args->{AUTHOR} = $self->author;
}
if ( $self->makemaker(6.10) ) {
- $args->{NO_META} = 1;
+ $args->{NO_META} = 1;
+ #$args->{NO_MYMETA} = 1;
}
if ( $self->makemaker(6.17) and $self->sign ) {
$args->{SIGN} = 1;
@@ -224,10 +235,12 @@
$args->{INSTALLDIRS} = $self->installdirs;
- my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
+ my %args = map {
+ ( $_ => $args->{$_} ) } grep {defined($args->{$_} )
+ } keys %$args;
my $user_preop = delete $args{dist}->{PREOP};
- if (my $preop = $self->admin->preop($user_preop)) {
+ if ( my $preop = $self->admin->preop($user_preop) ) {
foreach my $key ( keys %$preop ) {
$args{dist}->{$key} = $preop->{$key};
}
@@ -297,4 +310,4 @@
__END__
-#line 426
+#line 439
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm Wed Mar 10 01:12:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -230,7 +230,7 @@
die("The path '$file' does not exist, or is not a file");
}
- $self->{values}{all_from} = $file;
+ $self->{values}{all_from} = $file;
# Some methods pull from POD instead of code.
# If there is a matching .pod, use that instead
@@ -451,6 +451,7 @@
my @phrases = (
'under the same (?:terms|license) as (?:perl|the perl programming language)' => 'perl', 1,
'under the terms of (?:perl|the perl programming language) itself' => 'perl', 1,
+ 'Artistic and GPL' => 'perl', 1,
'GNU general public license' => 'gpl', 1,
'GNU public license' => 'gpl', 1,
'GNU lesser general public license' => 'lgpl', 1,
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm Wed Mar 10 01:12:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm Wed Mar 10 01:12:24 2010
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm Wed Mar 10 01:12:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';;
+ $VERSION = '0.94';;
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/lib/ORLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/lib/ORLite.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/lib/ORLite.pm (original)
+++ branches/upstream/liborlite-perl/current/lib/ORLite.pm Wed Mar 10 01:12:24 2010
@@ -15,7 +15,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.40';
+ $VERSION = '1.41';
}
# Support for the 'prune' option
@@ -157,6 +157,10 @@
} );
}
+sub connected {
+ defined \$DBH;
+}
+
sub prepare {
shift->dbh->prepare(\@_);
}
@@ -938,6 +942,31 @@
The C<dbh> method returns a L<DBI::db> object, or throws an exception on
error.
+=head2 connect
+
+ my $dbh = Foo::Bar->connect;
+
+The C<connect> method is provided for the (extremely rare) situation in
+which you need a raw connection to the database, evading the normal tracking
+and management provided of the ORM.
+
+The use of raw connections in this manner is strongly discouraged, as you
+can create fatal deadlocks in SQLite if either the core ORM or the raw
+connection uses a transaction at any time.
+
+To summarise, do not use this method unless you B<REALLY> know what you are
+doing.
+
+B<YOU HAVE BEEN WARNED!>
+
+=head2 connected
+
+ my $active = Foo::Bar->connected;
+
+The C<connected> method provides introspection of the connection status
+of the library. It returns true if there is any connection or transaction
+open to the database, or false otherwise.
+
=head2 begin
Foo::Bar->begin;
Modified: branches/upstream/liborlite-perl/current/t/02_basics.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/02_basics.t?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/02_basics.t (original)
+++ branches/upstream/liborlite-perl/current/t/02_basics.t Wed Mar 10 01:12:24 2010
@@ -9,7 +9,7 @@
$^W = 1;
}
-use Test::More tests => 68;
+use Test::More tests => 71;
use File::Spec::Functions ':ALL';
use t::lib::Test;
@@ -142,10 +142,13 @@
# Transaction testing
SCOPE: {
+ is( Foo::Bar->connected, !1, '->connected is false' );
ok( Foo::Bar->begin, '->begin' );
+ is( Foo::Bar->connected, 1, '->connected is true' );
isa_ok( Foo::Bar::TableOne->create, 'Foo::Bar::TableOne' );
is( Foo::Bar::TableOne->count, 1, 'One row created' );
ok( Foo::Bar->rollback, '->rollback' );
+ is( Foo::Bar->connected, !1, '->connected is false' );
is( Foo::Bar::TableOne->count, 0, 'Commit ok' );
ok( Foo::Bar->begin, '->begin' );
Modified: branches/upstream/liborlite-perl/current/t/08_prune.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/08_prune.pl?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/08_prune.pl (original)
+++ branches/upstream/liborlite-perl/current/t/08_prune.pl Wed Mar 10 01:12:24 2010
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '1.40';
+our $VERSION = '1.41';
unless ( $ORLite::VERSION eq $VERSION ) {
die('Failed to load correct ORLite version');
Modified: branches/upstream/liborlite-perl/current/t/lib/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/lib/Test.pm?rev=54015&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/lib/Test.pm (original)
+++ branches/upstream/liborlite-perl/current/t/lib/Test.pm Wed Mar 10 01:12:24 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA @EXPORT};
BEGIN {
- $VERSION = '1.40';
+ $VERSION = '1.41';
@ISA = 'Exporter';
@EXPORT = qw{ test_db connect_ok create_ok };
}
Added: branches/upstream/liborlite-perl/current/xt/meta.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/xt/meta.t?rev=54015&op=file
==============================================================================
--- branches/upstream/liborlite-perl/current/xt/meta.t (added)
+++ branches/upstream/liborlite-perl/current/xt/meta.t Wed Mar 10 01:12:24 2010
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our META.yml file matches the current specification.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::CPAN::Meta 0.12';
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing module
+eval "use $MODULE";
+if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+}
+
+meta_yaml_ok();
Added: branches/upstream/liborlite-perl/current/xt/pmv.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/xt/pmv.t?rev=54015&op=file
==============================================================================
--- branches/upstream/liborlite-perl/current/xt/pmv.t (added)
+++ branches/upstream/liborlite-perl/current/xt/pmv.t Wed Mar 10 01:12:24 2010
@@ -1,0 +1,32 @@
+#!/usr/bin/perl
+
+# Test that our declared minimum Perl version matches our syntax
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Perl::MinimumVersion 1.20',
+ 'Test::MinimumVersion 0.008',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
+all_minimum_version_from_metayml_ok();
Added: branches/upstream/liborlite-perl/current/xt/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/xt/pod.t?rev=54015&op=file
==============================================================================
--- branches/upstream/liborlite-perl/current/xt/pod.t (added)
+++ branches/upstream/liborlite-perl/current/xt/pod.t Wed Mar 10 01:12:24 2010
@@ -1,0 +1,32 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Pod::Simple 3.07',
+ 'Test::Pod 1.26',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list