r33326 - in /branches/upstream/libclass-dbi-pg-perl: ./ current/ current/lib/ current/lib/Class/ current/lib/Class/DBI/ current/t/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Thu Apr 16 03:12:10 UTC 2009
Author: ryan52-guest
Date: Thu Apr 16 03:12:05 2009
New Revision: 33326
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33326
Log:
[svn-inject] Installing original source of libclass-dbi-pg-perl
Added:
branches/upstream/libclass-dbi-pg-perl/
branches/upstream/libclass-dbi-pg-perl/current/
branches/upstream/libclass-dbi-pg-perl/current/Build.PL (with props)
branches/upstream/libclass-dbi-pg-perl/current/Changes
branches/upstream/libclass-dbi-pg-perl/current/MANIFEST
branches/upstream/libclass-dbi-pg-perl/current/META.yml
branches/upstream/libclass-dbi-pg-perl/current/Makefile.PL
branches/upstream/libclass-dbi-pg-perl/current/README
branches/upstream/libclass-dbi-pg-perl/current/lib/
branches/upstream/libclass-dbi-pg-perl/current/lib/Class/
branches/upstream/libclass-dbi-pg-perl/current/lib/Class/DBI/
branches/upstream/libclass-dbi-pg-perl/current/lib/Class/DBI/Pg.pm
branches/upstream/libclass-dbi-pg-perl/current/t/
branches/upstream/libclass-dbi-pg-perl/current/t/00_compile.t
branches/upstream/libclass-dbi-pg-perl/current/t/01_table.t
branches/upstream/libclass-dbi-pg-perl/current/t/99-pod-coverage.t
branches/upstream/libclass-dbi-pg-perl/current/t/99-pod.t
Added: branches/upstream/libclass-dbi-pg-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/Build.PL?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/Build.PL (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/Build.PL Thu Apr 16 03:12:05 2009
@@ -1,0 +1,23 @@
+# $Id: /mirror/Class-DBI-Pg/Build.PL 1974 2006-05-20T01:18:11.362146Z daisuke $
+#
+# Copyright (c) 2006 Daisuke Maki <dmaki at cpan.org>
+# All rights reserved.
+
+use strict;
+use Module::Build;
+
+my $build = Module::Build->new(
+ dist_name => 'Class-DBI-Pg',
+ dist_version_from => 'lib/Class/DBI/Pg.pm',
+ requires => {
+ 'Class::DBI' => '>= 0.89',
+ 'DBD::Pg' => '>= 1.13',
+ },
+ build_requires => {
+ 'Test::More' => 0
+ },
+ license => 'perl',
+ create_readme => 1,
+ create_makefile_pl => 'traditional',
+);
+$build->create_build_script;
Propchange: branches/upstream/libclass-dbi-pg-perl/current/Build.PL
------------------------------------------------------------------------------
svn:executable =
Added: branches/upstream/libclass-dbi-pg-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/Changes?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/Changes (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/Changes Thu Apr 16 03:12:05 2009
@@ -1,0 +1,44 @@
+Revision history for Perl extension Class::DBI::Pg
+
+0.09 Mon Jul 10 03:40:00 2006
+ * "I'm doind this as I watch the World Cup Finals" release
+ - Add POD tests
+
+0.08_02 Mon May 29 15:30:00 2006
+ - Apply patches from Boris Sukholitko. Adds "Primary As Option" and
+ "Column Groups" features
+
+0.08_01 Sat May 20 10:00:00 2006
+ - Fix typo in the sequence detection
+ - Restructure directory structure
+
+0.08 Sat Mar 11 17:00:00 2006
+ - Stop using _croak (#18093)
+
+0.07 Thu Jan 26 03:00:00 2006
+ - work with PostgreSQL 8.1's new sequence display
+ - pg_version(full_version => 1) gets you the major, minor, micro
+ version strings
+ - maintainer changed to Daisuke Maki
+
+0.06 Wed Dec 02 18:00:00 2004
+ - support for compound primary keys (Simon Flack)
+
+0.05 Wed Dec 01 14:00:00 2004
+ - no more warnings for missing sequences (Marcus Ramberg)
+
+0.04 Wed Dec 01 10:00:00 2004
+ - cleanup
+
+0.03 Thu Sep 10 00:00:00 2004
+ - 0.03
+ - treat dropped column correctly.
+ - fixed sequence test.
+ - added pg_version().
+ - fixed PREREQ_PM
+
+0.02 Thu Aug 08 00:00:00 2004
+ - 0.01
+ - original version
+ - 0.02
+ - added SERIAL type support.
Added: branches/upstream/libclass-dbi-pg-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/MANIFEST?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/MANIFEST (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/MANIFEST Thu Apr 16 03:12:05 2009
@@ -1,0 +1,11 @@
+Build.PL
+Changes
+lib/Class/DBI/Pg.pm
+MANIFEST This list of files
+t/00_compile.t
+t/01_table.t
+t/99-pod-coverage.t
+t/99-pod.t
+Makefile.PL
+README
+META.yml
Added: branches/upstream/libclass-dbi-pg-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/META.yml?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/META.yml (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/META.yml Thu Apr 16 03:12:05 2009
@@ -1,0 +1,22 @@
+---
+name: Class-DBI-Pg
+version: 0.09
+author:
+ - 'Daisuke Maki C<dmaki at cpan.org>'
+abstract: Class::DBI extension for Postgres
+license: perl
+resources:
+ license: http://dev.perl.org/licenses/
+requires:
+ Class::DBI: '>= 0.89'
+ DBD::Pg: '>= 1.13'
+build_requires:
+ Test::More: 0
+provides:
+ Class::DBI::Pg:
+ file: lib/Class/DBI/Pg.pm
+ version: 0.09
+generated_by: Module::Build version 0.2801
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Added: branches/upstream/libclass-dbi-pg-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/Makefile.PL?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/Makefile.PL (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/Makefile.PL Thu Apr 16 03:12:05 2009
@@ -1,0 +1,16 @@
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+use ExtUtils::MakeMaker;
+WriteMakefile
+(
+ 'DISTNAME' => 'Class-DBI-Pg',
+ 'VERSION_FROM' => 'lib/Class/DBI/Pg.pm',
+ 'PREREQ_PM' => {
+ 'Class::DBI' => '>= 0.89',
+ 'DBD::Pg' => '>= 1.13',
+ 'Test::More' => '0'
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
+ )
+;
Added: branches/upstream/libclass-dbi-pg-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/README?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/README (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/README Thu Apr 16 03:12:05 2009
@@ -1,0 +1,81 @@
+NAME
+ Class::DBI::Pg - Class::DBI extension for Postgres
+
+SYNOPSIS
+ use strict;
+ use base qw(Class::DBI::Pg);
+
+ __PACKAGE__->set_db(Main => 'dbi:Pg:dbname=dbname', 'user', 'password');
+ __PACKAGE__->set_up_table('film');
+
+DESCRIPTION
+ Class::DBI::Pg automate the setup of Class::DBI columns and primary key
+ for Postgres.
+
+ select Postgres system catalog and find out all columns, primary key and
+ SERIAL type column.
+
+ create table.
+
+ CREATE TABLE cd (
+ id SERIAL NOT NULL PRIMARY KEY,
+ title TEXT,
+ artist TEXT,
+ release_date DATE
+ );
+
+ setup your class.
+
+ package CD;
+ use strict;
+ use base qw(Class::DBI::Pg);
+
+ __PACKAGE__->set_db(Main => 'dbi:Pg:dbname=db', 'user', 'password');
+ __PACKAGE__->set_up_table('cd');
+
+ This is almost the same as the following way.
+
+ package CD;
+
+ use strict;
+ use base qw(Class::DBI);
+
+ __PACKAGE__->set_db(Main => 'dbi:Pg:dbname=db', 'user', 'password');
+ __PACKAGE__->table('cd');
+ __PACKAGE__->columns(Primary => 'id');
+ __PACKAGE__->columns(All => qw(id title artist release_date));
+ __PACKAGE__->sequence('cd_id_seq');
+
+METHODS
+ set_up_table TABLENAME HASHREF
+ Declares the Class::DBI class specified by TABLENAME. HASHREF can
+ specify options to when setting up the table.
+
+ ColumnGroup
+ You can specify the column group that you want your columns to be
+ in.
+
+ $class->set_up_table($table, { ColumnGroup => 'Essential' });
+
+ The default is 'All'
+
+ Primary
+ Overrides primary key setting. This can be useful when working with
+ views instead of tables.
+
+ pg_version
+ Returns the postgres version that you are currently using.
+
+AUTHOR
+ Daisuke Maki "dmaki at cpan.org"
+
+AUTHOR EMERITUS
+ Sebastian Riedel, "sri at oook.de" IKEBE Tomohiro, "ikebe at edge.co.jp"
+
+LICENSE
+ This library is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
+
+SEE ALSO
+ Class::DBI Class::DBI::mysql DBD::Pg
+
Added: branches/upstream/libclass-dbi-pg-perl/current/lib/Class/DBI/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/lib/Class/DBI/Pg.pm?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/lib/Class/DBI/Pg.pm (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/lib/Class/DBI/Pg.pm Thu Apr 16 03:12:05 2009
@@ -1,0 +1,218 @@
+# $Id: /mirror/Class-DBI-Pg/lib/Class/DBI/Pg.pm 1980 2006-07-09T18:42:00.901499Z daisuke $
+#
+# Copyright (c) Ikebe Tomohiro
+# Sebastian Riedel
+# 2006 Daisuke Maki
+# All rights reserved.
+
+package Class::DBI::Pg;
+use strict;
+require Class::DBI;
+use base 'Class::DBI';
+use vars qw($VERSION);
+
+$VERSION = '0.09';
+
+sub set_up_table {
+ my ( $class, $table, $opts ) = @_;
+ $opts ||= {};
+
+ my $dbh = $class->db_Main;
+ my $catalog = "";
+ if ( $class->pg_version >= 7.3 ) {
+ $catalog = 'pg_catalog.';
+ }
+
+ # find primary key
+ my $sth = $dbh->prepare(<<"SQL");
+SELECT indkey FROM ${catalog}pg_index
+WHERE indisprimary=true AND indrelid=(
+SELECT oid FROM ${catalog}pg_class
+WHERE relname = ?)
+SQL
+ $sth->execute($table);
+ my %prinum = map { $_ => 1 } split ' ', ($sth->fetchrow_array || '');
+ $sth->finish;
+
+ # find all columns
+ $sth = $dbh->prepare(<<"SQL");
+SELECT a.attname, a.attnum
+FROM ${catalog}pg_class c, ${catalog}pg_attribute a
+WHERE c.relname = ?
+ AND a.attnum > 0 AND a.attrelid = c.oid
+ORDER BY a.attnum
+SQL
+ $sth->execute($table);
+ my $columns = $sth->fetchall_arrayref;
+ $sth->finish;
+
+ # find SERIAL type.
+ # nextval('"table_id_seq"'::text)
+ $sth = $dbh->prepare(<<"SQL");
+SELECT adsrc FROM ${catalog}pg_attrdef
+WHERE
+adrelid=(SELECT oid FROM ${catalog}pg_class WHERE relname=?)
+SQL
+ $sth->execute($table);
+ my ($nextval_str) = $sth->fetchrow_array;
+ $sth->finish;
+
+ # the text representation for nextval() changed between 7.x and 8.x
+ my $sequence;
+ if ($nextval_str) {
+ if ($class->pg_version() >= 8.1) {
+ # hackish, but oh well...
+ ($sequence) =
+ $nextval_str =~ m!^nextval\('"?([^"']+)"?'::regclass\)!i ?
+ $1 :
+ $nextval_str =~ m!^nextval\(\('"?([^"']+)"?'::text\)?::regclass\)!i ?
+ $1 :
+ undef;
+ } else {
+ ($sequence) = $nextval_str =~ m!^nextval\('"?([^"']+)"?'::text\)!;
+ }
+ }
+
+ my ( @cols, @primary );
+ foreach my $col (@$columns) {
+ # skip dropped column.
+ next if $col->[0] =~ /^\.+pg\.dropped\.\d+\.+$/;
+ push @cols, $col->[0];
+ next unless $prinum{ $col->[1] };
+ push @primary, $col->[0];
+ }
+
+ @primary = @{ $opts->{Primary} } if $opts->{Primary};
+ if (!@primary) {
+ require Carp;
+ Carp::croak("$table has no primary key");
+ }
+
+ if ($opts->{Primary} && (! $opts->{ColumnGroup} || $opts->{ColumnGroup} eq 'All')) {
+ $opts->{ColumnGroup} = 'Essential';
+ }
+
+ $class->table($table);
+ $class->columns( Primary => @primary );
+ $class->columns( ($opts->{ColumnGroup} || 'All') => @cols );
+ $class->sequence($sequence) if $sequence;
+}
+
+sub pg_version {
+ my $class = shift;
+ my %args = @_;
+
+ my $dbh = $class->db_Main;
+ my $sth = $dbh->prepare("SELECT version()");
+ $sth->execute;
+ my ($ver_str) = $sth->fetchrow_array;
+ $sth->finish;
+ my ($ver) =
+ $args{full_version} ?
+ $ver_str =~ m/^PostgreSQL ([\d\.]{5})/ :
+ $ver_str =~ m/^PostgreSQL ([\d\.]{3})/;
+ return $ver;
+}
+
+__END__
+
+=head1 NAME
+
+Class::DBI::Pg - Class::DBI extension for Postgres
+
+=head1 SYNOPSIS
+
+ use strict;
+ use base qw(Class::DBI::Pg);
+
+ __PACKAGE__->set_db(Main => 'dbi:Pg:dbname=dbname', 'user', 'password');
+ __PACKAGE__->set_up_table('film');
+
+=head1 DESCRIPTION
+
+Class::DBI::Pg automate the setup of Class::DBI columns and primary key
+for Postgres.
+
+select Postgres system catalog and find out all columns, primary key and
+SERIAL type column.
+
+create table.
+
+ CREATE TABLE cd (
+ id SERIAL NOT NULL PRIMARY KEY,
+ title TEXT,
+ artist TEXT,
+ release_date DATE
+ );
+
+setup your class.
+
+ package CD;
+ use strict;
+ use base qw(Class::DBI::Pg);
+
+ __PACKAGE__->set_db(Main => 'dbi:Pg:dbname=db', 'user', 'password');
+ __PACKAGE__->set_up_table('cd');
+
+This is almost the same as the following way.
+
+ package CD;
+
+ use strict;
+ use base qw(Class::DBI);
+
+ __PACKAGE__->set_db(Main => 'dbi:Pg:dbname=db', 'user', 'password');
+ __PACKAGE__->table('cd');
+ __PACKAGE__->columns(Primary => 'id');
+ __PACKAGE__->columns(All => qw(id title artist release_date));
+ __PACKAGE__->sequence('cd_id_seq');
+
+=head1 METHODS
+
+=head2 set_up_table TABLENAME HASHREF
+
+Declares the Class::DBI class specified by TABLENAME. HASHREF can specify
+options to when setting up the table.
+
+=over 4
+
+=item ColumnGroup
+
+You can specify the column group that you want your columns to be in.
+
+ $class->set_up_table($table, { ColumnGroup => 'Essential' });
+
+The default is 'All'
+
+=item Primary
+
+Overrides primary key setting. This can be useful when working with views
+instead of tables.
+
+=back
+
+=head2 pg_version
+
+Returns the postgres version that you are currently using.
+
+=head1 AUTHOR
+
+Daisuke Maki C<dmaki at cpan.org>
+
+=head1 AUTHOR EMERITUS
+
+Sebastian Riedel, C<sri at oook.de>
+IKEBE Tomohiro, C<ikebe at edge.co.jp>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Class::DBI> L<Class::DBI::mysql> L<DBD::Pg>
+
+=cut
+
+
Added: branches/upstream/libclass-dbi-pg-perl/current/t/00_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/t/00_compile.t?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/t/00_compile.t (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/t/00_compile.t Thu Apr 16 03:12:05 2009
@@ -1,0 +1,4 @@
+use strict;
+use Test::More tests => 1;
+
+BEGIN { use_ok 'Class::DBI::Pg' }
Added: branches/upstream/libclass-dbi-pg-perl/current/t/01_table.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/t/01_table.t?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/t/01_table.t (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/t/01_table.t Thu Apr 16 03:12:05 2009
@@ -1,0 +1,102 @@
+use strict;
+use Test::More tests => 8;
+
+use DBI;
+
+my $dbh;
+my $database = $ENV{DB_NAME};
+my $user = $ENV{DB_USER};
+my $password = $ENV{DB_PASS};
+
+SKIP: {
+ skip
+ 'You need to set the DB_NAME, DB_USER and DB_PASS environment variables',
+ 8
+ unless ( $database && $user );
+ my $dsn = "dbi:Pg:dbname=$database" if $database;
+ $dbh = DBI->connect(
+ $dsn, $user,
+ $password,
+ {
+ AutoCommit => 1,
+ PrintError => 0,
+ RaiseError => 1,
+ }
+ );
+
+ $dbh->do(<<'SQL');
+CREATE TABLE class_dbi_pg1 (
+ id SERIAL NOT NULL PRIMARY KEY,
+ dat TEXT
+)
+SQL
+
+ my $sth = $dbh->prepare(<<"SQL");
+INSERT INTO class_dbi_pg1 (dat) VALUES(?)
+SQL
+
+ for my $dat (qw(foo bar baz)) {
+ $sth->execute($dat);
+ }
+ $sth->finish;
+
+ eval <<'' or die $@;
+package Class::DBI::Pg::Test;
+use base qw(Class::DBI::Pg);
+__PACKAGE__->set_db( Main => $dsn, $user, $password );
+__PACKAGE__->set_up_table('class_dbi_pg1');
+1;
+
+ is( Class::DBI::Pg::Test->retrieve_all, 3 );
+ my $obj = Class::DBI::Pg::Test->retrieve(2);
+ is( $obj->dat, 'bar' );
+ my ($obj2) = Class::DBI::Pg::Test->search( dat => 'foo' );
+ is( $obj2->id, 1 );
+
+ like( Class::DBI::Pg::Test->sequence, qr/class_dbi_pg1_id_seq/ );
+ my $new_obj = Class::DBI::Pg::Test->create( { dat => 'newone' } );
+ is( $new_obj->id, 4 );
+
+ eval <<'' or die $@;
+package Class::DBI::Pg::Test2;
+use base qw(Class::DBI::Pg);
+__PACKAGE__->set_db( Main => $dsn, $user, $password );
+__PACKAGE__->set_up_table('class_dbi_pg1', { ColumnGroup => 'Essential' });
+1;
+
+ $obj = Class::DBI::Pg::Test2->retrieve(2);
+ is( $obj->dat, 'bar' );
+ is_deeply( [ $obj->columns('Essential') ], [ qw(id dat) ] );
+
+ $dbh->do(<<'SQL');
+CREATE VIEW class_dbi_pg1_v AS SELECT * FROM class_dbi_pg1
+SQL
+
+ eval <<'' or die $@;
+package Class::DBI::Pg::TestView;
+use base qw(Class::DBI::Pg);
+__PACKAGE__->set_db( Main => $dsn, $user, $password );
+__PACKAGE__->set_up_table('class_dbi_pg1_v', { Primary => [ qw(id) ] });
+1;
+
+ $obj = Class::DBI::Pg::TestView->retrieve(2);
+ is( $obj->dat, 'bar' );
+
+ Class::DBI::Pg::Test->db_Main->disconnect;
+ Class::DBI::Pg::Test2->db_Main->disconnect;
+ Class::DBI::Pg::TestView->db_Main->disconnect;
+
+}
+
+END {
+ if ($dbh) {
+ eval {
+ unless ( Class::DBI::Pg::Test->pg_version >= 7.3 )
+ {
+ $dbh->do('DROP SEQUENCE class_dbi_pg1_id_seq');
+ }
+ $dbh->do('DROP TABLE class_dbi_pg1 CASCADE');
+ };
+ $dbh->disconnect;
+ }
+}
Added: branches/upstream/libclass-dbi-pg-perl/current/t/99-pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/t/99-pod-coverage.t?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/t/99-pod-coverage.t (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/t/99-pod-coverage.t Thu Apr 16 03:12:05 2009
@@ -1,0 +1,12 @@
+#!perl
+use Test::More;
+BEGIN {
+ eval "use Test::Pod";
+ eval "use Test::Pod::Coverage";
+ if ($@) {
+ plan(skip_all => "Test::Pod::Coverage required for testing POD");
+ eval "sub all_pod_coverage_ok {}";
+ }
+}
+
+all_pod_coverage_ok();
Added: branches/upstream/libclass-dbi-pg-perl/current/t/99-pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-pg-perl/current/t/99-pod.t?rev=33326&op=file
==============================================================================
--- branches/upstream/libclass-dbi-pg-perl/current/t/99-pod.t (added)
+++ branches/upstream/libclass-dbi-pg-perl/current/t/99-pod.t Thu Apr 16 03:12:05 2009
@@ -1,0 +1,11 @@
+use Test::More;
+BEGIN
+{
+ eval "use Test::Pod";
+ if ($@) {
+ plan skip_all => "Test::Pod required for testing POD";
+ eval "sub all_pod_files_ok {}";
+ eval "sub all_pod_files {}";
+ }
+}
+all_pod_files_ok(all_pod_files(qw(blib)));
More information about the Pkg-perl-cvs-commits
mailing list