Commit 0c776cea10ad4bb4ab06586a2623d4af65b5eab5 - libexception-class-dbi-perl

+9

-2

Build.PL less more

2	2	my $build = Module::Build->new(
3	3	module_name => 'Exception::Class::DBI',
4	4	license => 'perl',
5		create_makefile_pl => 'passthrough',
	5	create_makefile_pl => 'traditional',
6	6	configure_requires => { 'Module::Build' => '0.2701' },
7		recommends => { 'Test::Pod' => '1.20' },
	7	recommends => { 'Test::Pod' => '1.41' },
8	8	build_requires => {
9	9	'Module::Build' => '0.2701',
10	10	'Test::More' => '0.17',

14	14	'DBI' => '1.28',
15	15	'Exception::Class' => '1.02',
16	16	},
	17	meta_merge => {
	18	resources => {
	19	homepage => 'http://search.cpan.org/dist/Exception-Class-DBI/',
	20	bugtracker => 'http://github.com/theory/exception-class-dbi/issues/',
	21	repository => 'http://github.com/theory/exception-class-dbi/',
	22	}
	23	},
17	24	);
18	25	$build->create_build_script;

+6

-0

Changes less more

0	0	Revision history for Perl extension Exception::Class::DBI.
	1
	2	1.01 2011-06-20T04:27:43
	3	- Fixed a warning in `t/sth.t`.
	4	- Moved repostitory to
	5	[GitHub](https://github.com/theory/exception-class-dbi/).
	6	- Switched to a "traditional" `Makefile.PL`.
1	7
2	8	1.00 2008-05-22T03:28:50
3	9	- Fixed a test failure on Perl 5.5. Reported by Slaven Rezic.

+2

-1

MANIFEST less more

2	2	lib/Exception/Class/DBI.pm
3	3	Makefile.PL
4	4	MANIFEST This list of files
	5	META.json
5	6	META.yml
6		README
	7	README.md
7	8	t/dbh.t
8	9	t/dbi.t
9	10	t/drh.t

+71

-0

META.json less more

	0	{
	1	"abstract" : "DBI Exception objects",
	2	"author" : [
	3	"David E. Wheeler <david@justatheory.com>"
	4	],
	5	"dynamic_config" : 1,
	6	"generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.110440",
	7	"license" : [
	8	"perl_5"
	9	],
	10	"meta-spec" : {
	11	"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
	12	"version" : "2"
	13	},
	14	"name" : "Exception-Class-DBI",
	15	"prereqs" : {
	16	"build" : {
	17	"requires" : {
	18	"Module::Build" : "0.2701",
	19	"Test::Harness" : "2.03",
	20	"Test::More" : "0.17"
	21	}
	22	},
	23	"configure" : {
	24	"requires" : {
	25	"Module::Build" : "0.2701"
	26	}
	27	},
	28	"runtime" : {
	29	"recommends" : {
	30	"Test::Pod" : "1.41"
	31	},
	32	"requires" : {
	33	"DBI" : "1.28",
	34	"Exception::Class" : "1.02"
	35	}
	36	}
	37	},
	38	"provides" : {
	39	"Exception::Class::DBI" : {
	40	"file" : "lib/Exception/Class/DBI.pm",
	41	"version" : "1.01"
	42	},
	43	"Exception::Class::DBI::DBH" : {
	44	"file" : "lib/Exception/Class/DBI.pm",
	45	"version" : 0
	46	},
	47	"Exception::Class::DBI::H" : {
	48	"file" : "lib/Exception/Class/DBI.pm",
	49	"version" : 0
	50	},
	51	"Exception::Class::DBI::STH" : {
	52	"file" : "lib/Exception/Class/DBI.pm",
	53	"version" : 0
	54	}
	55	},
	56	"release_status" : "stable",
	57	"resources" : {
	58	"bugtracker" : {
	59	"web" : "http://github.com/theory/exception-class-dbi/issues/"
	60	},
	61	"homepage" : "http://search.cpan.org/dist/Exception-Class-DBI/",
	62	"license" : [
	63	"http://dev.perl.org/licenses/"
	64	],
	65	"repository" : {
	66	"url" : "http://github.com/theory/exception-class-dbi/"
	67	}
	68	},
	69	"version" : "1.01"
	70	}

+26

-19

META.yml less more

0	0	---
1		name: Exception-Class-DBI
2		version: 1.00
	1	abstract: 'DBI Exception objects'
3	2	author:
4		- 'David Wheeler <david@kineticode.com>'
5		abstract: DBI Exception objects
6		license: perl
7		resources:
8		license: http://dev.perl.org/licenses/
9		configure_requires:
10		Module::Build: 0.2701
11		requires:
12		DBI: 1.28
13		Exception::Class: 1.02
	3	- 'David E. Wheeler <david@justatheory.com>'
14	4	build_requires:
15	5	Module::Build: 0.2701
16	6	Test::Harness: 2.03
17	7	Test::More: 0.17
18		recommends:
19		Test::Pod: 1.20
	8	configure_requires:
	9	Module::Build: 0.2701
	10	dynamic_config: 1
	11	generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.110440'
	12	license: perl
	13	meta-spec:
	14	url: http://module-build.sourceforge.net/META-spec-v1.4.html
	15	version: 1.4
	16	name: Exception-Class-DBI
20	17	provides:
21	18	Exception::Class::DBI:
22	19	file: lib/Exception/Class/DBI.pm
23		version: 1.00
	20	version: 1.01
24	21	Exception::Class::DBI::DBH:
25	22	file: lib/Exception/Class/DBI.pm
	23	version: 0
26	24	Exception::Class::DBI::H:
27	25	file: lib/Exception/Class/DBI.pm
	26	version: 0
28	27	Exception::Class::DBI::STH:
29	28	file: lib/Exception/Class/DBI.pm
30		generated_by: Module::Build version 0.280801
31		meta-spec:
32		url: http://module-build.sourceforge.net/META-spec-v1.2.html
33		version: 1.2
	29	version: 0
	30	recommends:
	31	Test::Pod: 1.41
	32	requires:
	33	DBI: 1.28
	34	Exception::Class: 1.02
	35	resources:
	36	bugtracker: http://github.com/theory/exception-class-dbi/issues/
	37	homepage: http://search.cpan.org/dist/Exception-Class-DBI/
	38	license: http://dev.perl.org/licenses/
	39	repository: http://github.com/theory/exception-class-dbi/
	40	version: 1.01

+18

-31

Makefile.PL less more

0		# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
1
2		unless (eval "use Module::Build::Compat 0.02; 1" ) {
3		print "This module requires Module::Build to install itself.\n";
4
5		require ExtUtils::MakeMaker;
6		my $yn = ExtUtils::MakeMaker::prompt
7		(' Install Module::Build now from CPAN?', 'y');
8
9		unless ($yn =~ /^y/i) {
10		die " *** Cannot install without Module::Build. Exiting ...\n";
11		}
12
13		require Cwd;
14		require File::Spec;
15		require CPAN;
16
17		# Save this 'cause CPAN will chdir all over the place.
18		my $cwd = Cwd::cwd();
19
20		CPAN::Shell->install('Module::Build::Compat');
21		CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
22		or die "Couldn't install Module::Build, giving up.\n";
23
24		chdir $cwd or die "Cannot chdir() back to $cwd: $!";
25		}
26		eval "use Module::Build::Compat 0.02; 1" or die $@;
27
28		Module::Build::Compat->run_build_pl(args => \@ARGV);
29		require Module::Build;
30		Module::Build::Compat->write_makefile(build_class => 'Module::Build');
	0	# Note: this file was auto-generated by Module::Build::Compat version 0.3800
	1	use ExtUtils::MakeMaker;
	2	WriteMakefile
	3	(
	4	'NAME' => 'Exception::Class::DBI',
	5	'VERSION_FROM' => 'lib/Exception/Class/DBI.pm',
	6	'PREREQ_PM' => {
	7	'DBI' => '1.28',
	8	'Exception::Class' => '1.02',
	9	'Module::Build' => '0.2701',
	10	'Test::Harness' => '2.03',
	11	'Test::More' => '0.17'
	12	},
	13	'INSTALLDIRS' => 'site',
	14	'EXE_FILES' => [],
	15	'PL_FILES' => {}
	16	)
	17	;

+0

-49

~~README~~ less more

0		Exception/Class/DBI version 1.00
1		================================
2
3		This module offers a set of DBI-specific exception classes. They inherit from
4		Exception::Class::Base, the base class for all exception objects created by
5		the Exception::Class module from the CPAN. Exception::Class::DBI itself offers
6		a single class method, C<handler()>, that returns a code reference appropriate
7		for passing the DBI C<HandleError> attribute.
8
9		The exception classes created by Exception::Class::DBI are designed to be
10		thrown in certain DBI contexts; the code reference returned by handler() and
11		passed to the DBI C<HandleError> attribute determines the context, assembles
12		the necessary metadata, and throws the apopropriate exception.
13
14		Each of the Exception::Class::DBI classes offers a set of object accessor
15		methods in addition to those provided by Exception::Class::Base. These can be
16		used to output detailed output in the event of an exception.
17
18		INSTALLATION
19
20		To install this module, type the following:
21
22		perl Build.PL
23		./Build
24		./Build test
25		./Build install
26
27		Or, if you don't have Module::Build installed, type the following:
28
29		perl Makefile.PL
30		make
31		make test
32		make install
33
34		DEPENDENCIES
35
36		This module requires these other modules and libraries:
37
38		DBI 1.28 or later (1.30 or later strongly recommended).
39		Exception::Class 1.02 or later (1.05 or later strongly recommended).
40		Test::Simple 0.40 (for testing).
41
42		COPYRIGHT AND LICENCE
43
44		Copyright (c) 2002-2008, David Wheeler. Some Rights Reserved.
45
46		This module is free software; you can redistribute it and/or modify it under
47		the same terms as Perl itself.
48

+53

-0

README.md less more

	0	Exception/Class/DBI version 1.01
	1	================================
	2
	3	This module offers a set of DBI-specific exception classes. They inherit from
	4	Exception::Class::Base, the base class for all exception objects created by
	5	the [Exception::Class](http://search.cpan.org/perldoc?Exception::Class) module
	6	from the CPAN. Exception::Class::DBI itself offers a single class method,
	7	`handler()`, that returns a code reference appropriate for passing the
	8	[DBI](http://search.cpan.org/perldoc?DBI) `HandleError` attribute.
	9
	10	The exception classes created by Exception::Class::DBI are designed to be
	11	thrown in certain DBI contexts; the code reference returned by `handler()` and
	12	passed to the DBI `HandleError attribute determines the context, assembles the
	13	necessary metadata, and throws the apopropriate exception.
	14
	15	Each of the Exception::Class::DBI classes offers a set of object accessor
	16	methods in addition to those provided by Exception::Class::Base. These can be
	17	used to output detailed output in the event of an exception.
	18
	19	Installation
	20	------------
	21
	22	To install this module, type the following:
	23
	24	perl Build.PL
	25	./Build
	26	./Build test
	27	./Build install
	28
	29	Or, if you don't have Module::Build installed, type the following:
	30
	31	perl Makefile.PL
	32	make
	33	make test
	34	make install
	35
	36	Dependencies
	37	------------
	38
	39	This module requires these other modules and libraries:
	40
	41	* DBI 1.28 or later (1.30 or later strongly recommended).
	42	* Exception::Class 1.02 or later (1.05 or later strongly recommended).
	43	* Test::Simple 0.40 (for testing).
	44
	45	Copyright and Licence
	46	---------------------
	47
	48	Copyright (c) 2002-2011, David E. Wheeler. Some Rights Reserved.
	49
	50	This module is free software; you can redistribute it and/or modify it under
	51	the same terms as Perl itself.
	52

+12

-32

lib/Exception/Class/DBI.pm less more

0	0	package Exception::Class::DBI;
1
2		# $Id: DBI.pm 3906 2008-05-15 03:28:13Z david $
3	1
4	2	use 5.00500;
5	3	use strict;
6	4	use Exception::Class;
7	5	use vars qw($VERSION);
8		$VERSION = '1.00';
	6	$VERSION = '1.01';
9	7
10	8	use Exception::Class (
11	9	'Exception::Class::DBI' => {

125	123	1;
126	124	__END__
127	125
128		=begin comment
129
130		Fake-out Module::Build. Delete if it ever changes to support =head1 headers
131		other than all uppercase.
132
133		=head1 NAME
134
135		Exception::Class::DBI - DBI Exception objects
136
137		=end comment
138
139	126	=head1 Name
140	127
141	128	Exception::Class::DBI - DBI Exception objects

175	162	The exception classes created by Exception::Class::DBI are designed to be
176	163	thrown in certain DBI contexts; the code reference returned by C<handler()>
177	164	and passed to the DBI C<HandleError> attribute determines the context and
178		throws the apopropriate exception.
	165	throws the appropriate exception.
179	166
180	167	Each of the Exception::Class::DBI classes offers a set of object accessor
181	168	methods in addition to those provided by Exception::Class. These can be used

616	603
617	604	=head1 Support
618	605
619		This module is stored in an open repository at the following address:
620
621		L<https://svn.kineticode.com/Exception-Class-DBI/trunk/>
622
623		Patches against Exception::Class::DBI are welcome. Please send bug reports to
624		<bug-exception-class-dbi@rt.cpan.org>.
	606	This module is stored in an open L<GitHub
	607	repository\|http://github.com/theory/exception-class-dbi/>. Feel free to fork
	608	and contribute!
	609
	610	Please file bug reports via L<GitHub
	611	Issues\|http://github.com/theory/exception-class-dbi/issues/> or by sending
	612	mail to
	613	L<bug-Exception-Class-DBI.cpan.org\|mailto:bug-Exception-Class-DBI.cpan.org>.
625	614
626	615	=head1 Author
627	616
628		=begin comment
629
630		Fake-out Module::Build. Delete if it ever changes to support =head1 headers
631		other than all uppercase.
632
633		=head1 AUTHOR
634
635		=end comment
636
637		David Wheeler <david@kineticode.com>
	617	David E. Wheeler <david@justatheory.com>
638	618
639	619	=head1 See Also
640	620

647	627
648	628	=head1 COPYRIGHT AND LICENSE
649	629
650		Copyright (c) 2002-2008, David Wheeler. Some Rights Reserved.
	630	Copyright (c) 2002-2011, David E. Wheeler. Some Rights Reserved.
651	631
652	632	This module is free software; you can redistribute it and/or modify it under
653	633	the same terms as Perl itself.

+0

-2

t/dbh.t less more

0	0	#!/usr/bin/perl -w
1
2		# $Id: dbh.t 3917 2008-05-15 17:06:33Z david $
3	1
4	2	use strict;
5	3	use Test::More tests => 27;

+0

-2

t/dbi.t less more

0	0	#!/usr/bin/perl -w
1
2		# $Id: dbi.t 3831 2008-05-06 17:49:25Z david $
3	1
4	2	use strict;
5	3	use Test::More tests => 14;

+0

-2

t/drh.t less more

0	0	#!/usr/bin/perl -w
1
2		# $Id: drh.t 3831 2008-05-06 17:49:25Z david $
3	1
4	2	use strict;
5	3	use Test::More tests => 21;

+1

-3

t/sth.t less more

0	0	#!/usr/bin/perl -w
1
2		# $Id: sth.t 3831 2008-05-06 17:49:25Z david $
3	1
4	2	use strict;
5	3	use Test::More tests => 35;

52	50	{
53	51	# PurePerl->{TraceLevel} should return an integer, but it doesn't. It
54	52	# returns undef instead.
55		local $^W;
	53	local $SIG{__WARN__} = sub {};
56	54	cmp_ok( $err->trace_level, '==', 0, 'Check trace_level' );
57	55	}
58	56

+3

-5

t/z_pod.t less more

0		#!perl -w
1
2		# $Id: z_pod.t 3713 2008-05-02 20:25:02Z david $
	0	#!/usr/bin/perl -w
3	1
4	2	use strict;
5	3	use Test::More;
6		eval "use Test::Pod 1.20";
7		plan skip_all => "Test::Pod 1.20 required for testing POD" if $@;
	4	eval "use Test::Pod 1.41";
	5	plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
8	6	all_pod_files_ok();