[Bast-commits] r3929 - in DBIx-Class-Partitioned/1.000/trunk: . lib
lib/DBIx lib/DBIx/Class t
edenc at dev.catalyst.perl.org
edenc at dev.catalyst.perl.org
Fri Jan 11 23:41:05 GMT 2008
Author: edenc
Date: 2008-01-11 23:41:05 +0000 (Fri, 11 Jan 2008)
New Revision: 3929
Added:
DBIx-Class-Partitioned/1.000/trunk/Changes
DBIx-Class-Partitioned/1.000/trunk/MANIFEST
DBIx-Class-Partitioned/1.000/trunk/Makefile.PL
DBIx-Class-Partitioned/1.000/trunk/README
DBIx-Class-Partitioned/1.000/trunk/lib/
DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/
DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/
DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
DBIx-Class-Partitioned/1.000/trunk/t/
DBIx-Class-Partitioned/1.000/trunk/t/00-load.t
DBIx-Class-Partitioned/1.000/trunk/t/pod-coverage.t
DBIx-Class-Partitioned/1.000/trunk/t/pod.t
Log:
initial DBIC-Partitioned module structure
Added: DBIx-Class-Partitioned/1.000/trunk/Changes
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/Changes (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/Changes 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,4 @@
+Revision history for DBIx-Class-Partitioned
+
+1.000 01/11/2008 First version, released on an unsuspecting world.
+
Added: DBIx-Class-Partitioned/1.000/trunk/MANIFEST
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/MANIFEST (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/MANIFEST 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,8 @@
+Changes
+MANIFEST
+Makefile.PL
+README
+lib/DBIx/Class/Partitioned.pm
+t/00-load.t
+t/pod-coverage.t
+t/pod.t
Added: DBIx-Class-Partitioned/1.000/trunk/Makefile.PL
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/Makefile.PL (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/Makefile.PL 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'DBIx::Class::Partitioned',
+ AUTHOR => 'Eden Cardim <edenc at shadowcatsystems.co.uk>',
+ VERSION_FROM => 'lib/DBIx/Class/Partitioned.pm',
+ ABSTRACT_FROM => 'lib/DBIx/Class/Partitioned.pm',
+ PL_FILES => {},
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'DBIx-Class-Partitioned-*' },
+);
Added: DBIx-Class-Partitioned/1.000/trunk/README
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/README (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/README 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,22 @@
+DBIx-Class-Partitioned
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+COPYRIGHT AND LICENCE
+
+Development sponsored by takkle.com
+
+Copyright (C) 2008 Eden Cardim <edenc at shadowcatsystems.com>, some rights reserved.
+
+Copyright (C) 2008 Matt Trout <mst at shadowcatsystems.co.uk>, some rights reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
Added: DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,76 @@
+package DBIx::Class::Partitioned;
+
+use warnings;
+use strict;
+
+=head1 NAME
+
+DBIx::Class::Partitioned - Partition a L<DBIx::Class::ResultSource> across
+several tables
+
+=head1 VERSION
+
+Version 1.000
+
+=cut
+
+our $VERSION = '1.000';
+
+=head1 SYNOPSIS
+
+ package My::Schema::Foo;
+ use base qw/DBIx::Class/;
+
+ __PACKAGE__->load_components(qw/Partitioned Core/);
+ __PACKAGE__->partitions(qw/Foo1 Foo2/);
+ __PACKAGE__->default_partition('Foo1');
+
+ package My::Schema::Foo1;
+ use base qw/DBIx::Class/;
+
+ __PACKAGE__->load_components(qw/Partition Core/);
+ __PACKAGE__->partition_of('Foo');
+
+ # [ insert fields here ]
+
+ package My::Schema::Foo2;
+ use base qw/DBIx::Class/;
+
+ __PACKAGE__->load_components(qw/Partition Core/);
+ __PACKAGE__->partition_of('Foo');
+
+ # [ insert fields here ]
+
+ # meanwhile in a nearby piece of code...
+
+ my $foo_rs = $schema->resultset('Foo');
+ my @rows = $foo_rs->all; # selects rows from foo1 and foo2
+ $foo_rs->new({ ... })->insert; # inserts to foo1
+
+=cut
+
+=head1 AUTHOR
+
+Eden Cardim, C<< <edenc at shadowcatsystems.co.uk> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-dbix-class-partitioned at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DBIx-Class-Partitioned>. I will be notified, and then you'll
+automatically be notified of progress on your bug as I make changes.
+
+=head1 COPYRIGHT & LICENSE
+
+Development sponsored by L<Takkle Inc.|http://takkle.com>
+
+Copyright 2008 Eden Cardim C<< <edenc at shadowcatsystems.co.uk >>, some rights reserved.
+
+Copyright 2008 Matt Trout C<< <mst at shadowcatsystems.co.uk >>, some rights reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+
+=cut
+
+1;
Added: DBIx-Class-Partitioned/1.000/trunk/t/00-load.t
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/t/00-load.t (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/t/00-load.t 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,9 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok( 'DBIx::Class::Partitioned' );
+}
+
+diag( "Testing DBIx::Class::Partitioned $DBIx::Class::Partitioned::VERSION, Perl $], $^X" );
Added: DBIx-Class-Partitioned/1.000/trunk/t/pod-coverage.t
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/t/pod-coverage.t (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/t/pod-coverage.t 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod::Coverage
+my $min_tpc = 1.08;
+eval "use Test::Pod::Coverage $min_tpc";
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
+ if $@;
+
+# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
+# but older versions don't recognize some common documentation styles
+my $min_pc = 0.18;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+ if $@;
+
+all_pod_coverage_ok();
Added: DBIx-Class-Partitioned/1.000/trunk/t/pod.t
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/t/pod.t (rev 0)
+++ DBIx-Class-Partitioned/1.000/trunk/t/pod.t 2008-01-11 23:41:05 UTC (rev 3929)
@@ -0,0 +1,12 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();
More information about the Bast-commits
mailing list